/* GCC BASILYS GENERATED FILE warmelt-genobj-3.c - DO NOT EDIT */ /* generated on Tue May 5 15:51:59 2009 */ #include "run-basilys.h" /**** warmelt-genobj-3.c declarations ****/ #define basilys_HAS_INITIAL_ENVIRONMENT 1 /**!!** Copyright 2008, 2009 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 . **!!**/ static basilys_ptr_t rout_1_COMPILOBJ_CATCHALL_NREP(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_2_PUTOBJDEST_CATCHALL_OBJCODE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_3_PUTOBJDEST_CATCHALL_ANYDISCR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_4_GETCTYPE_OBJVALUE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_5_GECTYP_OBJNIL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_6_DBGOUT_ROUTINEOBJ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_7_PUTOBJDEST_OBJDESTINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_8_PUTOBJDEST_OBJFINALRETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_9_COMPILE2OBJ_PROCEDURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_10_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_11_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_12_APPEND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_13_APPEND_COMMENTCONST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_14_COMPILE2OBJ_INITPROC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_15_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_16_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_17_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_18_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_19_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_20_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_21_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_22_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_23_GET_FREE_OBJLOCPTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_24_GET_FREE_OBJLOCLONG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_25_GET_FREE_OBJLOCTYPED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_26_DISPOSE_OBJLOC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_27_DISPOSE_BND_OBJ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_28_COMPILOBJ_NREP_CHUNK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_29_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_30_GETCTYPE_TYPEXPR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_31_COMPILOBJ_NREP_NIL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_32_COMPILOBJ_NREP_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_33_COMPILOBJ_NREP_LOCSYMOCC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_34_COMPILOBJ_NREP_CLOSEDOCC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_35_COMPILOBJ_NREP_CONSTOCC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_36_COMPILOBJ_NREP_IMPORTEDVAL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_37_COMPILOBJ_NREP_QUASICONSTANT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_38_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_39_COMPILOBJ_NREP_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_40_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_41_COMPILOBJ_NREP_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_42_COMPILOBJ_DISCRANY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_43_COMPILOBJ_NREP_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_44_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_45_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_46_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_47_COMPILOBJ_NREP_CITERATION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_48_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_49_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_50_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_51_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_52_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_53_COMPILOBJ_NREP_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_54_COMPILOBJ_NREP_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_55_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_56_COMPILOBJ_NREP_MULTACC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_58_COMPILOBJ_NREP_FIELDACC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_59_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_60_COMPILOBJ_NREP_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_61_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_62_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_63_COMPILOBJ_NREP_APPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_64_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_65_COMPILOBJ_NREP_MULTIAPPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_66_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_67_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_68_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_71_COMPILOBJ_NREP_MSEND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_73_COMPILOBJ_NREP_MULTIMSEND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_74_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_78_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_79_COMPILOBJ_ANY_BINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_80_COMPILOBJ_VALUE_BINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_81_COMPILOBJ_FIXED_BINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_82_PUTOBJDEST_OBJVALUE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_83_PUTOBJDEST_INTEGER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_84_PUTOBJDEST_NULL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_85_PUTOBJDEST_OBJBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_86_PUTOBJDEST_OBJMULTIBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_87_PUTOBJDEST_OBJLOOP(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_88_PUTOBJDEST_OBJEXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_89_COMPILOBJ_NREP_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_90_COMPILOBJ_NREP_IFISA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_91_PUTOBJDEST_OBJCOND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_92_COMPILOBJ_NREP_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_93_PUTOBJDEST_OBJCPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_94_COMPILOBJ_NREP_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_95_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_96_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_97_COMPILOBJ_NREP_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_98_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_99_COMPILOBJ_NREP_MAKEINST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_100_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_101_COMPILOBJ_ROUTPROC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_102_COMPILOBJ_PREDEF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_103_COMPIL_DATA_AND_SLOTS_FILL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_104_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_105_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_106_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_107_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_108_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_109_COMPILOBJ_DATASYMBOL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_110_COMPILOBJ_DATAINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_111_COMPILOBJ_DATATUPLE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_112_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_113_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_114_COMPILOBJ_DATASTRING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_115_COMPILOBJ_DATACLOSURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_116_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_117_COMPILOBJ_DATAROUTINE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_118_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_119_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_120_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_121_COMPILOBJ_NREP_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_122_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_123_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_124_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_125_COMPILTST_ANYTESTER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_126_COMPILOBJ_NREP_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_127_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_128_NORMTESTER_LABELINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_129_NORMTESTER_GOTOINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_130_ENDMATCH_GOTOINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_131_NORMTESTER_FREE_OBJLOC_LIST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_132_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_133_COMPILTST_NORMTESTER_MATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_134_COMPILTST_NORMTESTER_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_135_COMPILTST_NORMTESTER_SAME(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_136_COMPILTST_NORMTESTER_SUCCESS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_137_COMPILMATCHER_CMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_138_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_139_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_140_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_141_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); void* start_module_basilys(void*); void mark_module_basilys(void*); void* initial_frame_basilys; /**** warmelt-genobj-3.c implementations ****/ static basilys_ptr_t rout_1_COMPILOBJ_CATCHALL_NREP(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_1_COMPILOBJ_CATCHALL_NREP_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_CATCHALL_NREP", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:564:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:564:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:564:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:565:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:565:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:565:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:565:/ apply.arg"); argtab[0].bp_cstring = "class_rep compile_obj gcx"; BASILYS_LOCATION("warmelt-genobj.melt:565:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:565:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:565:/ apply.arg"); argtab[3].bp_long = 565; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:565:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:565:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:565:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:566:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:566:/ apply.arg"); argtab[0].bp_cstring = "class_rep compile_obj recv"; /*_.DISPLAYDEBUGMSG__V6*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPLAYDEBUGMSG*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilys_puts(stderr,( "* compilobj unimplemented reciever class ")); BASILYS_LOCATION("warmelt-genobj.melt:568:/ block"); /*block*/{ /*_.DISCR__V7*/ curfptr[6] = (basilys_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:568:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V7*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:568:/ clear"); /*clear*/ /*_.DISCR__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:568:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:570:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:570:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:570:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:570:/ cond.then"); /*_.IFELSE___V10*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:570:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:570:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@compile_obj should be implemented in nrep-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(570)?(570):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:570:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:570:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:564:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V9*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:564:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:564:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:564:/ clear"); /*clear*/ /*_.DISPLAYDEBUGMSG__V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:564:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_CATCHALL_NREP", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_1_COMPILOBJ_CATCHALL_NREP*/ static basilys_ptr_t rout_2_PUTOBJDEST_CATCHALL_OBJCODE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_2_PUTOBJDEST_CATCHALL_OBJCODE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_CATCHALL_OBJCODE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:574:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:574:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:574:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:575:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:575:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:575:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:575:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_catchall_objcode recv@@ "; BASILYS_LOCATION("warmelt-genobj.melt:575:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:575:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:575:/ apply.arg"); argtab[3].bp_long = 575; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:575:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:575:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:575:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:576:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:576:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:576:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:576:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_catchall_objcode desto@@ "; BASILYS_LOCATION("warmelt-genobj.melt:576:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:576:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:576:/ apply.arg"); argtab[3].bp_long = 576; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:576:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:576:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:576:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_puts(stderr,( "* putobjdest unimplemented reciever class ")); BASILYS_LOCATION("warmelt-genobj.melt:578:/ block"); /*block*/{ /*_.DISCR__V8*/ curfptr[6] = (basilys_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:578:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:578:/ clear"); /*clear*/ /*_.DISCR__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:578:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:580:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:580:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:580:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:580:/ cond.then"); /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:580:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:580:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@ unexpected catchall putobjdest objcod"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(580)?(580):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:580:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:580:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:574:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:574:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:574:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:574:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:574:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_CATCHALL_OBJCODE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_2_PUTOBJDEST_CATCHALL_OBJCODE*/ static basilys_ptr_t rout_3_PUTOBJDEST_CATCHALL_ANYDISCR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_3_PUTOBJDEST_CATCHALL_ANYDISCR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_CATCHALL_ANYDISCR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:584:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:584:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:584:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:585:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:585:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:585:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:585:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_catchall_anydiscr recv@@ "; BASILYS_LOCATION("warmelt-genobj.melt:585:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:585:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:585:/ apply.arg"); argtab[3].bp_long = 585; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:585:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:585:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:585:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:586:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:586:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:586:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:586:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_catchall_anydiscr desto@@ "; BASILYS_LOCATION("warmelt-genobj.melt:586:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:586:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:586:/ apply.arg"); argtab[3].bp_long = 586; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:586:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:586:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:586:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_puts(stderr,( "* putobjdest unimplemented reciever discriminant ")); BASILYS_LOCATION("warmelt-genobj.melt:588:/ block"); /*block*/{ /*_.DISCR__V8*/ curfptr[6] = (basilys_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:589:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:588:/ clear"); /*clear*/ /*_.DISCR__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:588:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:591:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:591:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:591:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:591:/ cond.then"); /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:591:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:591:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@ unexpected catchall putobjdest anydiscr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(591)?(591):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:591:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:591:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:584:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:584:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:584:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:584:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:584:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_CATCHALL_ANYDISCR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_3_PUTOBJDEST_CATCHALL_ANYDISCR*/ static basilys_ptr_t rout_4_GETCTYPE_OBJVALUE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_4_GETCTYPE_OBJVALUE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("GETCTYPE_OBJVALUE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:595:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:595:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:595:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:596:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:596:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:596:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:596:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:596:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:596:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv objvalue"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(596)?(596):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:596:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:596:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:596:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:597:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V6*/ curfptr[4] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:595:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBV_TYPE__V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-genobj.melt:595:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:595:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:595:/ clear"); /*clear*/ /*_.OBV_TYPE__V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GETCTYPE_OBJVALUE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_4_GETCTYPE_OBJVALUE*/ static basilys_ptr_t rout_5_GECTYP_OBJNIL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_5_GECTYP_OBJNIL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("GECTYP_OBJNIL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:605:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:605:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:605:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:606:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:606:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:606:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:606:/ apply.arg"); argtab[0].bp_cstring = "gectyp_objnil recv"; BASILYS_LOCATION("warmelt-genobj.melt:606:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:606:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:606:/ apply.arg"); argtab[3].bp_long = 606; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:606:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:606:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:606:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:605:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[1]);; BASILYS_LOCATION("warmelt-genobj.melt:605:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:605:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GECTYP_OBJNIL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_5_GECTYP_OBJNIL*/ static basilys_ptr_t rout_6_DBGOUT_ROUTINEOBJ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_6_DBGOUT_ROUTINEOBJ_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("DBGOUT_ROUTINEOBJ", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:612:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:612:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:612:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:612:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));; BASILYS_LOCATION("warmelt-genobj.melt:613:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:613:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:613:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:614:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:614:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:614:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:613:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V5*/ curfptr[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:613:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:613:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:615:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:615:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:615:/ apply.arg"); argtab[1].bp_long = 30; /*_.DBGOUT_NAMEDOBJECT_METHOD__V6*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V6*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:613:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V6*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:612:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-genobj.melt:612:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:612:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:612:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("DBGOUT_ROUTINEOBJ", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_6_DBGOUT_ROUTINEOBJ*/ static basilys_ptr_t rout_7_PUTOBJDEST_OBJDESTINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_7_PUTOBJDEST_OBJDESTINSTR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJDESTINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:620:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:620:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:620:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:621:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:621:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJDESTINSTR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:621:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:621:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:621:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:621:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "putobjdest_objdestinstr check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(621)?(621):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:621:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:621:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:621:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:622:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:622:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:622:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:622:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objdestinstr recv"; BASILYS_LOCATION("warmelt-genobj.melt:622:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:622:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:622:/ apply.arg"); argtab[3].bp_long = 622; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:622:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:622:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:622:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:623:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:623:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:623:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:623:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objdestinstr desto@@ "; BASILYS_LOCATION("warmelt-genobj.melt:623:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:623:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:623:/ apply.arg"); argtab[3].bp_long = 623; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:623:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:623:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:623:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:624:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:624:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTL__V11*/ curfptr[10] = slot; }; ; /*_#IS_LIST__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.DESTL__V11*/ curfptr[10])) == OBMAG_LIST);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_LIST__L4*/ curfnum[0]));; BASILYS_LOCATION("warmelt-genobj.melt:625:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:625:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:625:/ block"); /*block*/{ /*_.MAKE_LIST__V12*/ curfptr[11] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; BASILYS_LOCATION("warmelt-genobj.melt:627:/ compute"); /*_.DESTL__V11*/ curfptr[10] = /*_.SETQ___V13*/ curfptr[12] = /*_.MAKE_LIST__V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:628:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:628:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]))));basilys_putfield_object((/*_.RECV__V2*/ curfptr[1]), (1), (/*_.DESTL__V11*/ curfptr[10]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:628:/ touch"); basilysgc_touch(/*_.RECV__V2*/ curfptr[1]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-genobj.melt:626:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:625:/ clear"); /*clear*/ /*_.MAKE_LIST__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:625:/ clear"); /*clear*/ /*_.SETQ___V13*/ curfptr[12] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:629:/ block"); /*block*/{ /*_.LIST_FIRST__V15*/ curfptr[12] = (basilys_list_first((basilys_ptr_t)(/*_.DESTL__V11*/ curfptr[10])));; /*_.FIRSTD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_FIRST__V15*/ curfptr[12])));; /*_#__L6*/ curfnum[5] = ((/*_.FIRSTD__V16*/ curfptr[15]) == (/*_.DESTO__V3*/ curfptr[2]));; BASILYS_LOCATION("warmelt-genobj.melt:630:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:630:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:630:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:631:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:631:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:630:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:630:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:630:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.DESTL__V11*/ curfptr[10]), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])); BASILYS_LOCATION("warmelt-genobj.melt:634:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:634:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:632:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:630:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:630:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } ; /*_.LET___V14*/ curfptr[11] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:629:/ clear"); /*clear*/ /*_.LIST_FIRST__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:629:/ clear"); /*clear*/ /*_.FIRSTD__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:629:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:629:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V14*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:624:/ clear"); /*clear*/ /*_.DESTL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:624:/ clear"); /*clear*/ /*_#IS_LIST__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:624:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:624:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[11] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:620:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:620:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:620:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:620:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:620:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:620:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJDESTINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_7_PUTOBJDEST_OBJDESTINSTR*/ static basilys_ptr_t rout_8_PUTOBJDEST_OBJFINALRETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_8_PUTOBJDEST_OBJFINALRETURN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJFINALRETURN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:657:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:657:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:657:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:658:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:658:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:658:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:658:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:658:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:658:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(658)?(658):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:658:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:658:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:658:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:657:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:657:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:657:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJFINALRETURN", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_8_PUTOBJDEST_OBJFINALRETURN*/ static basilys_ptr_t rout_9_COMPILE2OBJ_PROCEDURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_9_COMPILE2OBJ_PROCEDURE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 64 void* varptr[64]; #define CURFRAM_NBVARNUM 18 long varnum[18]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<64; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 64; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILE2OBJ_PROCEDURE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:668:/ getarg"); /*_.PRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:668:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODCTX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:668:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.COMPICACHE__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.COMPICACHE__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-genobj.melt:668:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#NUM__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:668:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:669:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:669:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:669:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:669:/ apply.arg"); argtab[0].bp_cstring = "compilproc pro"; BASILYS_LOCATION("warmelt-genobj.melt:669:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:669:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:669:/ apply.arg"); argtab[3].bp_long = 669; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:669:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:669:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:669:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:671:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:671:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:671:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:671:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:671:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:671:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(671)?(671):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:671:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:671:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:671:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:672:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:672:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L4*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.COMPICACHE__V4*/ curfptr[3])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-genobj.melt:672:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:672:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:672:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:672:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check compicache"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(672)?(672):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:672:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:672:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:672:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:673:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:673:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.MODCTX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:673:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:673:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:673:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:673:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modctx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(673)?(673):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:673:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:673:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:673:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:674:/ block"); /*block*/{ /*_.NAMSBUF__V14*/ curfptr[13] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);; /*_.ROUTFUNAM__V15*/ curfptr[14] = (NULL);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMSBUF__V14*/ curfptr[13]), ( "rout_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMSBUF__V14*/ curfptr[13]), (/*_#NUM__L1*/ curfnum[0])); /*_#IS_A__L6*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:679:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:679:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:679:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:680:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:680:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), 2, "NRPRO_NAME");/*_.PRONAM__V16*/ curfptr[15] = slot; }; ; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRONAM__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:682:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:682:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:682:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:684:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRONAM__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:684:/ compute"); /*_.ROUTFUNAM__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.NAMED_NAME__V17*/ curfptr[16];; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMSBUF__V14*/ curfptr[13]), ( "_")); BASILYS_LOCATION("warmelt-genobj.melt:686:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRONAM__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMSBUF__V14*/ curfptr[13]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18]))); BASILYS_LOCATION("warmelt-genobj.melt:683:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:682:/ clear"); /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:682:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:682:/ clear"); /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:680:/ clear"); /*clear*/ /*_.PRONAM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:680:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:689:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), 1, "NPROC_BODY");/*_.NBODY__V21*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:690:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V22*/ curfptr[18] = slot; }; ; /*_#IS_A__L8*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:691:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:691:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:691:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:691:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), 3, "NRPRO_ARGB");/*_.NRPRO_ARGB__V24*/ curfptr[23] = slot; }; ; /*_.NARGB__V23*/ curfptr[15] = /*_.NRPRO_ARGB__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:691:/ clear"); /*clear*/ /*_.NRPRO_ARGB__V24*/ curfptr[23] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:691:/ cond.else"); /*_.NARGB__V23*/ curfptr[15] = NULL;; } ; /*_.OBODYLIST__V25*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.STRBUF2STRING__V26*/ curfptr[25] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMSBUF__V14*/ curfptr[13]))));; /*_.MAKE_INTEGERBOX__V27*/ curfptr[26] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (0)));; /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (0)));; /*_.MAKE_LIST__V29*/ curfptr[28] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (0)));; BASILYS_LOCATION("warmelt-genobj.melt:693:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:693:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[6])), (12), "CLASS_PROCROUTINEOBJ");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.STRBUF2STRING__V26*/ curfptr[25]), "NAMED_NAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.PRO__V2*/ curfptr[1]), "OBROUT_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.OBODYLIST__V25*/ curfptr[23]), "OBROUT_BODY"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (4), (/*_.MAKE_INTEGERBOX__V27*/ curfptr[26]), "OBROUT_NBVAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (5), (/*_.MAKE_INTEGERBOX__V28*/ curfptr[27]), "OBROUT_NBLONG"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (6), (/*_.MAKE_LIST__V29*/ curfptr[28]), "OBROUT_OTHERS"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (8), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "OBROUT_CNTCITER"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (10), (/*_.NLOC__V22*/ curfptr[18]), "OPROUT_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (11>=0 && 11< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (11), (/*_.ROUTFUNAM__V15*/ curfptr[14]), "OPROUT_FUNAM"); ; /*_.OBROUT__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = (basilys_multiple_length((basilys_ptr_t)(/*_.NARGB__V23*/ curfptr[15])));; /*_#I__L10*/ curfnum[9] = ((3) * (/*_#MULTIPLE_LENGTH__L9*/ curfnum[8]));; /*_#I__L11*/ curfnum[10] = ((20) + (/*_#I__L10*/ curfnum[9]));; /*_.LOCMAP__V33*/ curfptr[32] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[9])), (/*_#I__L11*/ curfnum[10])));; /*_.MAKE_LIST__V34*/ curfptr[33] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.MAKE_LIST__V35*/ curfptr[34] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.MAKE_MAPOBJECT__V36*/ curfptr[35] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[9])), (20)));; /*_.MAKE_MAPOBJECT__V37*/ curfptr[36] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[9])), (40)));; BASILYS_LOCATION("warmelt-genobj.melt:705:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:705:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[10])), (9), "CLASS_GENERCONTEXT");/*_.INST__V39*/ curfptr[38] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.OBROUT__V31*/ curfptr[30]), "GNCX_OBJROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.LOCMAP__V33*/ curfptr[32]), "GNCX_LOCMAP"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.MAKE_LIST__V34*/ curfptr[33]), "GNCX_FREEPTRLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.MAKE_LIST__V35*/ curfptr[34]), "GNCX_FREELONGLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (4), (/*_.MAKE_MAPOBJECT__V36*/ curfptr[35]), "GNCX_FREEOTHERMAPS"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (6), (/*_.COMPICACHE__V4*/ curfptr[3]), "GNCX_COMPICACHE"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (7), (/*_.MODCTX__V3*/ curfptr[2]), "GNCX_MODULCONTEXT"); ; BASILYS_LOCATION("warmelt-genobj.melt:705:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (8), (/*_.MAKE_MAPOBJECT__V37*/ curfptr[36]), "GNCX_MATCHMAP"); ; /*_.GCX__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} ; BASILYS_LOCATION("warmelt-genobj.melt:716:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:716:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:716:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_12_RETVAL_*/ curfrout->tabval[12]); /*_.RETL__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.GCX__V38*/ curfptr[37]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:717:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:717:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.GCX__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.GCX__V38*/ curfptr[37]))));basilys_putfield_object((/*_.GCX__V38*/ curfptr[37]), (5), (/*_.RETL__V41*/ curfptr[40]), "GNCX_RETLOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:717:/ touch"); basilysgc_touch(/*_.GCX__V38*/ curfptr[37]); ; /*epilog*/} ; /*_.LET___V40*/ curfptr[39] = /*_.RETL__V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:716:/ clear"); /*clear*/ /*_.RETL__V41*/ curfptr[40] = 0 ;} ; /*_.RETLOC__V42*/ curfptr[40] = /*_.LET___V40*/ curfptr[39];; BASILYS_LOCATION("warmelt-genobj.melt:722:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:722:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:722:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V38*/ curfptr[37]); ; BASILYS_LOCATION("warmelt-genobj.melt:722:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[1] = (basilys_ptr_t)(/*_.NLOC__V22*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-genobj.melt:722:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[2] = (basilys_ptr_t)(/*_.LOCMAP__V33*/ curfptr[32]); ; /*_.LAMBDA___V43*/ curfptr[42] = /*_.LAMBDA___V44*/ curfptr[43];;} ; BASILYS_LOCATION("warmelt-genobj.melt:720:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:720:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[42]; /*_.GTATUP__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.NARGB__V23*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V4*/ curfptr[3]), (basilysobject_ptr_t) (/*_.PRO__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBROUT__V31*/ curfptr[30])); BASILYS_LOCATION("warmelt-genobj.melt:750:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:750:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OBROUT__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (9>=0 && 9< basilys_object_length((basilys_ptr_t)(/*_.OBROUT__V31*/ curfptr[30]))));basilys_putfield_object((/*_.OBROUT__V31*/ curfptr[30]), (9), (/*_.GTATUP__V45*/ curfptr[44]), "OPROUT_GETARGS"); ; BASILYS_LOCATION("warmelt-genobj.melt:750:/ touch"); basilysgc_touch(/*_.OBROUT__V31*/ curfptr[30]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:751:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:751:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:751:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:751:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_procedure obrout"; BASILYS_LOCATION("warmelt-genobj.melt:751:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:751:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:751:/ apply.arg"); argtab[3].bp_long = 751; /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBROUT__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:751:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:751:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:751:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:752:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:752:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:752:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:752:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_procedure nbody"; BASILYS_LOCATION("warmelt-genobj.melt:752:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:752:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:752:/ apply.arg"); argtab[3].bp_long = 752; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBODY__V21*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:752:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:752:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:752:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:753:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:753:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.NBODY__V21*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[22])));; BASILYS_LOCATION("warmelt-genobj.melt:753:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:753:/ cond.then"); /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:753:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:753:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbody"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(753)?(753):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:753:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:753:/ clear"); /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:753:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L15*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:754:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:754:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:754:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:755:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:755:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), 8, "NRPRO_THUNKLIST");/*_.PTHULS__V54*/ curfptr[53] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:756:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:756:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:756:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:756:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_procedure pthuls"; BASILYS_LOCATION("warmelt-genobj.melt:756:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15]; BASILYS_LOCATION("warmelt-genobj.melt:756:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:756:/ apply.arg"); argtab[3].bp_long = 756; /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PTHULS__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V55*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:756:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:756:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:756:/ cppif.else"); /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:759:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:759:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:759:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V38*/ curfptr[37]); ; /*_.LAMBDA___V57*/ curfptr[55] = /*_.LAMBDA___V58*/ curfptr[57];;} ; BASILYS_LOCATION("warmelt-genobj.melt:757:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:757:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[55]; /*_.LIST_EVERY__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[23])), (basilys_ptr_t)(/*_.PTHULS__V54*/ curfptr[53]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V53*/ curfptr[52] = /*_.LIST_EVERY__V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:755:/ clear"); /*clear*/ /*_.PTHULS__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:755:/ clear"); /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:755:/ clear"); /*clear*/ /*_.LAMBDA___V57*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:755:/ clear"); /*clear*/ /*_.LIST_EVERY__V59*/ curfptr[58] = 0 ;} ; /*_.IF___V52*/ curfptr[50] = /*_.LET___V53*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:754:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:754:/ cond.else"); /*_.IF___V52*/ curfptr[50] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:765:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:765:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:765:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V38*/ curfptr[37]; /*_.OBODY__V60*/ curfptr[53] = basilysgc_send((basilys_ptr_t)(/*_.NBODY__V21*/ curfptr[17]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[26])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:767:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:767:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:767:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:767:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_procedure obody"; BASILYS_LOCATION("warmelt-genobj.melt:767:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[15]; BASILYS_LOCATION("warmelt-genobj.melt:767:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:767:/ apply.arg"); argtab[3].bp_long = 767; /*_.DEBUG_MSG_FUN__V62*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBODY__V60*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V61*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:767:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:767:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[55] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:767:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODYLIST__V25*/ curfptr[23]), (basilys_ptr_t)(/*_.OBODY__V60*/ curfptr[53])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:765:/ clear"); /*clear*/ /*_.OBODY__V60*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:765:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[54] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:770:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:770:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:770:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:770:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_procedure return obrout"; BASILYS_LOCATION("warmelt-genobj.melt:770:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[15]; BASILYS_LOCATION("warmelt-genobj.melt:770:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:770:/ apply.arg"); argtab[3].bp_long = 770; /*_.DEBUG_MSG_FUN__V64*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBROUT__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V63*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:770:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:770:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:770:/ cppif.else"); /*_.IFCPP___V63*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V20*/ curfptr[16] = /*_.OBROUT__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.NBODY__V21*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.NLOC__V22*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.NARGB__V23*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.OBODYLIST__V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.STRBUF2STRING__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_LIST__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.OBROUT__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.LOCMAP__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_LIST__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.GCX__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.RETLOC__V42*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.LAMBDA___V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.GTATUP__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.IF___V52*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:688:/ clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[58] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V20*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:674:/ clear"); /*clear*/ /*_.NAMSBUF__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:674:/ clear"); /*clear*/ /*_.ROUTFUNAM__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:674:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:674:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:668:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:668:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:668:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:668:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:668:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:668:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:668:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILE2OBJ_PROCEDURE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_9_COMPILE2OBJ_PROCEDURE*/ static basilys_ptr_t rout_10_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_10_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 15 void* varptr[15]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<15; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 15; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:722:/ getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:722:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:722:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:723:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:723:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:723:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:723:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:723:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:723:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(723)?(723):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:723:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:723:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:723:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:725:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.BCTYP__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:726:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BNAM__V7*/ curfptr[6] = slot; }; ; /*_#__L3*/ curfnum[1] = ((/*_.BCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:728:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:728:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:728:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:729:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:729:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BNAM__V7*/ curfptr[6]; /*_.GET_FREE_OBJLOCPTR__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OLOC__V8*/ curfptr[7] = /*_.GET_FREE_OBJLOCPTR__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:728:/ clear"); /*clear*/ /*_.GET_FREE_OBJLOCPTR__V9*/ curfptr[8] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:728:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:728:/ block"); /*block*/{ /*_#__L4*/ curfnum[3] = ((/*_.BCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_LONG*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:730:/ cond"); /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:730:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:730:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:731:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:731:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BNAM__V7*/ curfptr[6]; /*_.GET_FREE_OBJLOCLONG__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCLONG*/ curfrout->tabval[4])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V10*/ curfptr[8] = /*_.GET_FREE_OBJLOCLONG__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:730:/ clear"); /*clear*/ /*_.GET_FREE_OBJLOCLONG__V11*/ curfptr[10] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:730:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:730:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:733:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:733:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BNAM__V7*/ curfptr[6]; BASILYS_LOCATION("warmelt-genobj.melt:733:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.BCTYP__V6*/ curfptr[5]; /*_.GET_FREE_OBJLOCTYPED__V12*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[5])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:732:/ block"); /*block*/{ /*_.PROGN___V13*/ curfptr[12] = /*_.GET_FREE_OBJLOCTYPED__V12*/ curfptr[10];;} ; /*_.IFELSE___V10*/ curfptr[8] = /*_.PROGN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:730:/ clear"); /*clear*/ /*_.GET_FREE_OBJLOCTYPED__V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:730:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } ; /*_.OLOC__V8*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:728:/ clear"); /*clear*/ /*_#__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:728:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[8] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:736:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:736:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGETARG*/ curfrout->tabval[6])), (3), "CLASS_OBJGETARG");/*_.INST__V15*/ curfptr[12] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:736:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[12]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:736:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[12]), (1), (/*_.OLOC__V8*/ curfptr[7]), "OBARG_OBLOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:736:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[12]), (2), (/*_.BND__V2*/ curfptr[1]), "OBARG_BIND"); ; /*_.OGARG__V14*/ curfptr[10] = /*_.INST__V15*/ curfptr[12];;} ; /*_#I__L5*/ curfnum[3] = ((/*_#IX__L1*/ curfnum[0]) <= (0));; BASILYS_LOCATION("warmelt-genobj.melt:741:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:741:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:741:/ block"); /*block*/{ /*_#__L7*/ curfnum[6] = ((/*_.BCTYP__V6*/ curfptr[5]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));; /*_#IF___L6*/ curfnum[5] = /*_#__L7*/ curfnum[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:741:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:741:/ cond.else"); /*_#IF___L6*/ curfnum[5] = 0;; } ; BASILYS_LOCATION("warmelt-genobj.melt:741:/ cond"); /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:741:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:741:/ block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~NLOC*/ curfclos->tabval[1])), ( "first argument of function should be a value"), (basilys_ptr_t)0); /*epilog*/} ; } /*noelse*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[2])), (basilysobject_ptr_t) (/*_.BND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OLOC__V8*/ curfptr[7])); /*_.LET___V5*/ curfptr[3] = /*_.OGARG__V14*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_.BCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_.BNAM__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_.OLOC__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_.OGARG__V14*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:725:/ clear"); /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:722:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-genobj.melt:722:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:722:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:722:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_10_LAMBDA_*/ static basilys_ptr_t rout_11_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_11_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:759:/ getarg"); /*_.PTHU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:759:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:760:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:760:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:760:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:760:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_procedure pthu"; BASILYS_LOCATION("warmelt-genobj.melt:760:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:760:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:760:/ apply.arg"); argtab[3].bp_long = 760; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PTHU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:760:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:760:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:760:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:761:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:761:/ block"); /*block*/{ /*_#IS_CLOSURE__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.PTHU__V2*/ curfptr[1])) == OBMAG_CLOSURE);; BASILYS_LOCATION("warmelt-genobj.melt:761:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:761:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:761:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:761:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compile2obj_procedure check pthu"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(761)?(761):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:761:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:761:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:761:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:762:/ apply"); /*apply*/{ /*_.PTHU__V7*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)(/*_.PTHU__V2*/ curfptr[1]), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:759:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PTHU__V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:759:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:759:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:759:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:759:/ clear"); /*clear*/ /*_.PTHU__V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_11_LAMBDA_*/ static basilys_ptr_t rout_12_APPEND_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_12_APPEND_COMMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("APPEND_COMMENT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:783:/ getarg"); /*_.ILIST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:783:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.COMSTR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.COMSTR__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:783:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.ILOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ILOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:783:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:784:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:784:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])), (2), "CLASS_OBJCOMMENTINSTR");/*_.INST__V6*/ curfptr[5] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:784:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), (/*_.ILOC__V4*/ curfptr[3]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:784:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.COMSTR__V3*/ curfptr[2]), "OBCI_COMMENT"); ; /*_.INST___V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.ILIST__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.INST___V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:783:/ clear"); /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("APPEND_COMMENT", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_12_APPEND_COMMENT*/ static basilys_ptr_t rout_13_APPEND_COMMENTCONST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_13_APPEND_COMMENTCONST_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ const char* loc_CTYPE_CSTRING__o0; long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("APPEND_COMMENTCONST", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:785:/ getarg"); /*_.ILIST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:785:/ getarg"); if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CTYPE_CSTRING__o0 = xargtab_[0].bp_cstring; /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:785:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.ILOC__V3*/ curfptr[2] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ILOC__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:785:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[1])), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0)));; BASILYS_LOCATION("warmelt-genobj.melt:786:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:786:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])), (2), "CLASS_OBJCOMMENTINSTR");/*_.INST__V6*/ curfptr[5] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:786:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), (/*_.ILOC__V3*/ curfptr[2]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:786:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.MAKE_STRINGCONST__V4*/ curfptr[3]), "OBCI_COMMENT"); ; /*_.INST___V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.ILIST__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.INST___V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:785:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:785:/ clear"); /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("APPEND_COMMENTCONST", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_13_APPEND_COMMENTCONST*/ static basilys_ptr_t rout_14_COMPILE2OBJ_INITPROC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_14_COMPILE2OBJ_INITPROC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 156 void* varptr[156]; #define CURFRAM_NBVARNUM 20 long varnum[20]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<156; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 156; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILE2OBJ_INITPROC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ getarg"); /*_.IPRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODCTX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IDATA__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IDATA__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.COMPICACHE__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4])) != NULL); /*getarg#4*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.PROCURMODENVLIST__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PROCURMODENVLIST__V6*/ curfptr[5])) != NULL); /*getarg#5*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.IMPORTVALUES__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:790:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:790:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.IPRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:790:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:790:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:790:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:790:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ipro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(790)?(790):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:790:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:790:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:790:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:791:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:791:/ block"); /*block*/{ /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.IDATA__V4*/ curfptr[3])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:791:/ cond"); /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:791:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:791:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:791:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check idata"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(791)?(791):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:791:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:791:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:791:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:792:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:792:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MODCTX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:792:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:792:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:792:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:792:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modctx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(792)?(792):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:792:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:792:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:792:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:793:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:793:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-genobj.melt:793:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:793:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:793:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:793:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check compicache"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(793)?(793):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:793:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:793:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:793:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:794:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:794:/ block"); /*block*/{ /*_#IS_LIST__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:794:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:794:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:794:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:794:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check importvalues"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(794)?(794):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:794:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:794:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:794:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:795:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:795:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:795:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:795:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc ipro"; BASILYS_LOCATION("warmelt-genobj.melt:795:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:795:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:795:/ apply.arg"); argtab[3].bp_long = 795; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.IPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:795:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:795:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:795:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:796:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:796:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:796:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:796:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc compicache"; BASILYS_LOCATION("warmelt-genobj.melt:796:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:796:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:796:/ apply.arg"); argtab[3].bp_long = 796; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:796:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:796:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:796:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:797:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:797:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:797:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:797:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc start procurmodenvlist"; BASILYS_LOCATION("warmelt-genobj.melt:797:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:797:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:797:/ apply.arg"); argtab[3].bp_long = 797; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PROCURMODENVLIST__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:797:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:797:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:797:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:798:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:798:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:798:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:798:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc start importvalues"; BASILYS_LOCATION("warmelt-genobj.melt:798:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:798:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:798:/ apply.arg"); argtab[3].bp_long = 798; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:798:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:798:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:798:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ block"); /*block*/{ /*_.LOCMAP__V27*/ curfptr[26] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[3])), (50)));; /*_.OINIPROLOG__V28*/ curfptr[27] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.OINIBODY__V29*/ curfptr[28] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.MAKE_STRINGCONST__V30*/ curfptr[29] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), ( "start_module_basilys")));; /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (0)));; /*_.MAKE_INTEGERBOX__V32*/ curfptr[31] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (0)));; /*_.MAKE_LIST__V33*/ curfptr[32] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (0)));; /*_.MAKE_LIST__V35*/ curfptr[34] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-genobj.melt:803:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:803:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[5])), (12), "CLASS_INITIALROUTINEOBJ");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.MAKE_STRINGCONST__V30*/ curfptr[29]), "NAMED_NAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.IPRO__V2*/ curfptr[1]), "OBROUT_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (3), (/*_.OINIBODY__V29*/ curfptr[28]), "OBROUT_BODY"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (4), (/*_.MAKE_INTEGERBOX__V31*/ curfptr[30]), "OBROUT_NBVAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.MAKE_INTEGERBOX__V32*/ curfptr[31]), "OBROUT_NBLONG"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (6), (/*_.MAKE_LIST__V33*/ curfptr[32]), "OBROUT_OTHERS"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (8), (/*_.MAKE_INTEGERBOX__V34*/ curfptr[33]), "OBROUT_CNTCITER"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (11>=0 && 11< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (11), (/*_.MAKE_LIST__V35*/ curfptr[34]), "OIROUT_FILL"); ; BASILYS_LOCATION("warmelt-genobj.melt:803:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (10), (/*_.OINIPROLOG__V28*/ curfptr[27]), "OIROUT_PROLOG"); ; /*_.OINITROUT__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; /*_.IMPORTMAP__V38*/ curfptr[37] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[3])), (50)));; /*_.MAKE_LIST__V39*/ curfptr[38] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.MAKE_LIST__V40*/ curfptr[39] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.MAKE_MAPOBJECT__V41*/ curfptr[40] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[3])), (20)));; /*_.MAKE_MAPOBJECT__V42*/ curfptr[41] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[3])), (60)));; BASILYS_LOCATION("warmelt-genobj.melt:828:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:828:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:828:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (basilys_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4]); ; /*_.LAMBDA___V43*/ curfptr[42] = /*_.LAMBDA___V44*/ curfptr[43];;} ; BASILYS_LOCATION("warmelt-genobj.melt:826:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:826:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[42]; /*_.LIST_MAP__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PROCURMODENVLIST__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:815:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_INITGENERCONTEXT*/ curfrout->tabval[8])), (13), "CLASS_INITGENERCONTEXT");/*_.INST__V47*/ curfptr[46] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (0), (/*_.OINITROUT__V36*/ curfptr[35]), "GNCX_OBJROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.LOCMAP__V27*/ curfptr[26]), "GNCX_LOCMAP"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.MAKE_LIST__V39*/ curfptr[38]), "GNCX_FREEPTRLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (3), (/*_.MAKE_LIST__V40*/ curfptr[39]), "GNCX_FREELONGLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (4), (/*_.MAKE_MAPOBJECT__V41*/ curfptr[40]), "GNCX_FREEOTHERMAPS"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (6), (/*_.COMPICACHE__V5*/ curfptr[4]), "GNCX_COMPICACHE"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (7), (/*_.MODCTX__V3*/ curfptr[2]), "GNCX_MODULCONTEXT"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (8), (/*_.MAKE_MAPOBJECT__V42*/ curfptr[41]), "GNCX_MATCHMAP"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (11>=0 && 11< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (11), (/*_.LIST_MAP__V45*/ curfptr[44]), "IGNCX_PROCURMODENVLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:815:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (12>=0 && 12< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (12), (/*_.IMPORTMAP__V38*/ curfptr[37]), "IGNCX_IMPORTMAP"); ; /*_.GCX__V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;} ; BASILYS_LOCATION("warmelt-genobj.melt:838:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:838:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:838:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_13_RETINIT_*/ curfrout->tabval[13]); /*_.RETI__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:839:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:839:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]))));basilys_putfield_object((/*_.GCX__V46*/ curfptr[45]), (5), (/*_.RETI__V49*/ curfptr[48]), "GNCX_RETLOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:839:/ touch"); basilysgc_touch(/*_.GCX__V46*/ curfptr[45]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-genobj.melt:840:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:840:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OINITROUT__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.OINITROUT__V36*/ curfptr[35]))));basilys_putfield_object((/*_.OINITROUT__V36*/ curfptr[35]), (7), (/*_.RETI__V49*/ curfptr[48]), "OBROUT_RETVAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:840:/ touch"); basilysgc_touch(/*_.OINITROUT__V36*/ curfptr[35]); ; /*epilog*/} ; /*_.LET___V48*/ curfptr[47] = /*_.RETI__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:838:/ clear"); /*clear*/ /*_.RETI__V49*/ curfptr[48] = 0 ;} ; /*_.RETINIT__V50*/ curfptr[48] = /*_.LET___V48*/ curfptr[47];; BASILYS_LOCATION("warmelt-genobj.melt:843:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:843:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:843:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_14_CONTENV_*/ curfrout->tabval[14]); /*_.BOXL__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:844:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:844:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]))));basilys_putfield_object((/*_.GCX__V46*/ curfptr[45]), (10), (/*_.BOXL__V52*/ curfptr[51]), "IGNCX_CONTENVLOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:844:/ touch"); basilysgc_touch(/*_.GCX__V46*/ curfptr[45]); ; /*epilog*/} ; /*_.LET___V51*/ curfptr[50] = /*_.BOXL__V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:843:/ clear"); /*clear*/ /*_.BOXL__V52*/ curfptr[51] = 0 ;} ; /*_.BOXLOC__V53*/ curfptr[51] = /*_.LET___V51*/ curfptr[50];; BASILYS_LOCATION("warmelt-genobj.melt:846:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:846:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_15_FRESHENV_*/ curfrout->tabval[15]); /*_.OFRESHENV__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:847:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:847:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:847:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_16_PREVENV_*/ curfrout->tabval[16]); /*_.PREVE__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:849:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:849:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (9>=0 && 9< basilys_object_length((basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]))));basilys_putfield_object((/*_.GCX__V46*/ curfptr[45]), (9), (/*_.PREVE__V56*/ curfptr[55]), "IGNCX_PREVENVLOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:849:/ touch"); basilysgc_touch(/*_.GCX__V46*/ curfptr[45]); ; /*epilog*/} ; /*_.LET___V55*/ curfptr[54] = /*_.PREVE__V56*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:847:/ clear"); /*clear*/ /*_.PREVE__V56*/ curfptr[55] = 0 ;} ; /*_.OPREVENV__V57*/ curfptr[55] = /*_.LET___V55*/ curfptr[54];; BASILYS_LOCATION("warmelt-genobj.melt:851:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:851:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_17_VALEXPORT_*/ curfrout->tabval[17]); /*_.OVALUEEXPORTER__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:852:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:852:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_18_VALIMPORT_*/ curfrout->tabval[18]); /*_.OVALUEIMPORTER__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:854:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:854:/ apply.arg"); argtab[0].bp_cstring = "start of oinibody"; /*_.APPEND_COMMENTCONST__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:855:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:855:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:855:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:855:/ apply.arg"); argtab[0].bp_cstring = "boxloc is"; BASILYS_LOCATION("warmelt-genobj.melt:855:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:855:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:855:/ apply.arg"); argtab[3].bp_long = 855; /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BOXLOC__V53*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:855:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:855:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:855:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:860:/ block"); /*block*/{ /*_.BODFEL__V65*/ curfptr[64] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-genobj.melt:862:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:862:/ apply.arg"); argtab[0].bp_cstring = "start computing boxloc"; /*_.APPEND_COMMENTCONST__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.BODFEL__V65*/ curfptr[64]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:866:/ apply"); /*apply*/{ /*_.LIST1__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.OFRESHENV__V54*/ curfptr[53]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:865:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:865:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[20])), (4), "CLASS_OBJGETSLOT");/*_.INST__V69*/ curfptr[68] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:865:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V69*/ curfptr[68])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V69*/ curfptr[68]))));basilys_putfield_object((/*_.INST__V69*/ curfptr[68]), (1), (/*_.LIST1__V67*/ curfptr[66]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:865:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V69*/ curfptr[68])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V69*/ curfptr[68]))));basilys_putfield_object((/*_.INST__V69*/ curfptr[68]), (2), ((/*!INITIALSYSTEMDATA_OBJPREDEF*/ curfrout->tabval[22])), "OGETSL_OBJ"); ; BASILYS_LOCATION("warmelt-genobj.melt:865:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V69*/ curfptr[68])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V69*/ curfptr[68]))));basilys_putfield_object((/*_.INST__V69*/ curfptr[68]), (3), ((/*!SYSDATA_CONT_FRESH_ENV*/ curfrout->tabval[23])), "OGETSL_FIELD"); ; /*_.INST___V68*/ curfptr[67] = /*_.INST__V69*/ curfptr[68];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.BODFEL__V65*/ curfptr[64]), (basilys_ptr_t)(/*_.INST___V68*/ curfptr[67])); /*_.MAKE_STRINGCONST__V70*/ curfptr[69] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( "if ((")));; /*_.MAKE_STRINGCONST__V71*/ curfptr[70] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( ") && basilys_magic_discr((basilys_ptr_t)(")));; /*_.MAKE_STRINGCONST__V72*/ curfptr[71] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( ")) != OBMAG_CLOSURE) warning(0, \"bad BASILYS fresh_env @%p in system data <%s:%d>\", ")));; /*_.MAKE_STRINGCONST__V73*/ curfptr[72] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( ", __FILE__, __LINE__);")));; /*_.MAKE_TUPLE7__V74*/ curfptr[73] = (basilysgc_new_mult7((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V70*/ curfptr[69]), (basilys_ptr_t)(/*_.OPREVENV__V57*/ curfptr[55]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V71*/ curfptr[70]), (basilys_ptr_t)(/*_.OFRESHENV__V54*/ curfptr[53]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V72*/ curfptr[71]), (basilys_ptr_t)(/*_.OFRESHENV__V54*/ curfptr[53]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V73*/ curfptr[72])));; BASILYS_LOCATION("warmelt-genobj.melt:872:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:872:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[24])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V76*/ curfptr[75] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:872:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V76*/ curfptr[75]))));basilys_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.MAKE_TUPLE7__V74*/ curfptr[73]), "OBCPT_EXPR"); ; /*_.INST___V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.BODFEL__V65*/ curfptr[64]), (basilys_ptr_t)(/*_.INST___V75*/ curfptr[74])); BASILYS_LOCATION("warmelt-genobj.melt:889:/ apply"); /*apply*/{ /*_.LIST1__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.BOXLOC__V53*/ curfptr[51]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.MAKE_TUPLE1__V78*/ curfptr[77] = (basilysgc_new_mult1((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (basilys_ptr_t)(/*_.OPREVENV__V57*/ curfptr[55])));; BASILYS_LOCATION("warmelt-genobj.melt:888:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:888:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[27])), (4), "CLASS_OBJAPPLY");/*_.INST__V80*/ curfptr[79] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:888:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79]))));basilys_putfield_object((/*_.INST__V80*/ curfptr[79]), (1), (/*_.LIST1__V77*/ curfptr[76]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:888:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79]))));basilys_putfield_object((/*_.INST__V80*/ curfptr[79]), (2), (/*_.OFRESHENV__V54*/ curfptr[53]), "OBAPP_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:888:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79]))));basilys_putfield_object((/*_.INST__V80*/ curfptr[79]), (3), (/*_.MAKE_TUPLE1__V78*/ curfptr[77]), "OBAPP_ARGS"); ; /*_.INST___V79*/ curfptr[78] = /*_.INST__V80*/ curfptr[79];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.BODFEL__V65*/ curfptr[64]), (basilys_ptr_t)(/*_.INST___V79*/ curfptr[78])); /*_.THE_NULL__V81*/ curfptr[80] = (NULL);; /*_.MAKE_STRINGCONST__V82*/ curfptr[81] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), ( "compute fresh module environment")));; BASILYS_LOCATION("warmelt-genobj.melt:893:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:893:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[28])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V84*/ curfptr[83] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:893:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V84*/ curfptr[83])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V84*/ curfptr[83]))));basilys_putfield_object((/*_.INST__V84*/ curfptr[83]), (1), (/*_.BODFEL__V65*/ curfptr[64]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:893:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V84*/ curfptr[83])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V84*/ curfptr[83]))));basilys_putfield_object((/*_.INST__V84*/ curfptr[83]), (2), (/*_.THE_NULL__V81*/ curfptr[80]), "OBLO_EPIL"); ; BASILYS_LOCATION("warmelt-genobj.melt:893:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V84*/ curfptr[83])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V84*/ curfptr[83]))));basilys_putfield_object((/*_.INST__V84*/ curfptr[83]), (3), (/*_.MAKE_STRINGCONST__V82*/ curfptr[81]), "OCOMBLO_COMMENT"); ; /*_.INST___V83*/ curfptr[82] = /*_.INST__V84*/ curfptr[83];;} ; /*_.LET___V64*/ curfptr[63] = /*_.INST___V83*/ curfptr[82];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.BODFEL__V65*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.LIST1__V67*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.INST___V68*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V70*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V71*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V72*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V73*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_TUPLE7__V74*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.INST___V75*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.LIST1__V77*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_TUPLE1__V78*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.INST___V79*/ curfptr[78] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.THE_NULL__V81*/ curfptr[80] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V82*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:860:/ clear"); /*clear*/ /*_.INST___V83*/ curfptr[82] = 0 ;} ; /*_.OCOMPUTBOXLOC__V85*/ curfptr[64] = /*_.LET___V64*/ curfptr[63];; /*_.MAKE_STRINGCONST__V86*/ curfptr[65] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( " || basilys_object_length((basilys_ptr_t)BASILYSG(INITIAL_SYSTEM_DATA))tabval[25])), (basilys_ptr_t)(/*_.BOXLOC__V53*/ curfptr[51]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V86*/ curfptr[65])));; BASILYS_LOCATION("warmelt-genobj.melt:902:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:902:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[30])), (2), "CLASS_OBJEXPV");/*_.INST__V89*/ curfptr[69] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:902:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V89*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V89*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V89*/ curfptr[69]), (1), (/*_.MAKE_TUPLE2__V87*/ curfptr[66]), "OBX_CONT"); ; /*_.INST___V88*/ curfptr[67] = /*_.INST__V89*/ curfptr[69];;} ; /*_.THE_NULL__V90*/ curfptr[70] = (NULL);; BASILYS_LOCATION("warmelt-genobj.melt:900:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:900:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[29])), (4), "CLASS_OBJCOND");/*_.INST__V92*/ curfptr[72] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:900:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V92*/ curfptr[72])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V92*/ curfptr[72]))));basilys_putfield_object((/*_.INST__V92*/ curfptr[72]), (1), (/*_.INST___V88*/ curfptr[67]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:900:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V92*/ curfptr[72])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V92*/ curfptr[72]))));basilys_putfield_object((/*_.INST__V92*/ curfptr[72]), (2), (/*_.THE_NULL__V90*/ curfptr[70]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:900:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V92*/ curfptr[72])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V92*/ curfptr[72]))));basilys_putfield_object((/*_.INST__V92*/ curfptr[72]), (3), (/*_.OCOMPUTBOXLOC__V85*/ curfptr[64]), "OBCOND_ELSE"); ; /*_.OTESTCOMPUTBOXLOC__V91*/ curfptr[71] = /*_.INST__V92*/ curfptr[72];;} ; BASILYS_LOCATION("warmelt-genobj.melt:917:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:917:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V94*/ curfptr[74] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_34*/ curfrout->tabval[34])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:917:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V94*/ curfptr[74])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V94*/ curfptr[74]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V94*/ curfptr[74])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]); ; BASILYS_LOCATION("warmelt-genobj.melt:917:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V94*/ curfptr[74])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V94*/ curfptr[74]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V94*/ curfptr[74])->tabval[1] = (basilys_ptr_t)(/*_.IMPORTMAP__V38*/ curfptr[37]); ; /*_.LAMBDA___V93*/ curfptr[73] = /*_.LAMBDA___V94*/ curfptr[74];;} ; BASILYS_LOCATION("warmelt-genobj.melt:915:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:915:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V93*/ curfptr[73]; /*_.LIMPLOCV__V95*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:928:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:928:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:928:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:928:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc otestcomputboxloc"; BASILYS_LOCATION("warmelt-genobj.melt:928:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:928:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:928:/ apply.arg"); argtab[3].bp_long = 928; /*_.DEBUG_MSG_FUN__V97*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OTESTCOMPUTBOXLOC__V91*/ curfptr[71]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V96*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[78];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:928:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:928:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[78] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:928:/ cppif.else"); /*_.IFCPP___V96*/ curfptr[77] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:931:/ block"); /*block*/{ /*_.LISDEST__V98*/ curfptr[80] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; basilysgc_append_list((basilys_ptr_t)(/*_.LISDEST__V98*/ curfptr[80]), (basilys_ptr_t)(/*_.OPREVENV__V57*/ curfptr[55])); BASILYS_LOCATION("warmelt-genobj.melt:933:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:933:/ apply.arg"); argtab[0].bp_cstring = "get previous environment"; /*_.APPEND_COMMENTCONST__V99*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_STRINGCONST__V100*/ curfptr[82] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( "modargp_")));; BASILYS_LOCATION("warmelt-genobj.melt:935:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:935:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[24])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V102*/ curfptr[101] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:935:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V102*/ curfptr[101])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V102*/ curfptr[101]))));basilys_putfield_object((/*_.INST__V102*/ curfptr[101]), (1), (/*_.LISDEST__V98*/ curfptr[80]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:935:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V102*/ curfptr[101])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V102*/ curfptr[101]))));basilys_putfield_object((/*_.INST__V102*/ curfptr[101]), (2), (/*_.MAKE_STRINGCONST__V100*/ curfptr[82]), "OBCPT_EXPR"); ; /*_.INST___V101*/ curfptr[78] = /*_.INST__V102*/ curfptr[101];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (basilys_ptr_t)(/*_.INST___V101*/ curfptr[78])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:931:/ clear"); /*clear*/ /*_.LISDEST__V98*/ curfptr[80] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:931:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V99*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:931:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V100*/ curfptr[82] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:931:/ clear"); /*clear*/ /*_.INST___V101*/ curfptr[78] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:940:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:940:/ apply.arg"); argtab[0].bp_cstring = "compute boxloc"; /*_.APPEND_COMMENTCONST__V103*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (basilys_ptr_t)(/*_.OTESTCOMPUTBOXLOC__V91*/ curfptr[71])); BASILYS_LOCATION("warmelt-genobj.melt:944:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:948:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:948:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V106*/ curfptr[78] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_38*/ curfrout->tabval[38])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:948:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V106*/ curfptr[78])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V106*/ curfptr[78]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V106*/ curfptr[78])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]); ; /*_.LAMBDA___V105*/ curfptr[82] = /*_.LAMBDA___V106*/ curfptr[78];;} ; BASILYS_LOCATION("warmelt-genobj.melt:946:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:946:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[25]); BASILYS_LOCATION("warmelt-genobj.melt:946:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V105*/ curfptr[82]; /*_.ODATATUP__V107*/ curfptr[106] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[35])), (basilys_ptr_t)(/*_.IDATA__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:954:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.IPRO__V2*/ curfptr[1]), 2, "NINIT_TOPL");/*_.TOPLIS__V108*/ curfptr[107] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:956:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:956:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OINITROUT__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (9>=0 && 9< basilys_object_length((basilys_ptr_t)(/*_.OINITROUT__V36*/ curfptr[35]))));basilys_putfield_object((/*_.OINITROUT__V36*/ curfptr[35]), (9), (/*_.ODATATUP__V107*/ curfptr[106]), "OIROUT_DATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:956:/ touch"); basilysgc_touch(/*_.OINITROUT__V36*/ curfptr[35]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:958:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:958:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L12*/ curfnum[0] = ((/*_.TOPLIS__V108*/ curfptr[107]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.TOPLIS__V108*/ curfptr[107])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-genobj.melt:958:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L12*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:958:/ cond.then"); /*_.IFELSE___V110*/ curfptr[109] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:958:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:958:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check toplis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(958)?(958):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V110*/ curfptr[109] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V109*/ curfptr[108] = /*_.IFELSE___V110*/ curfptr[109];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:958:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:958:/ clear"); /*clear*/ /*_.IFELSE___V110*/ curfptr[109] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:958:/ cppif.else"); /*_.IFCPP___V109*/ curfptr[108] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:963:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:963:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V113*/ curfptr[112] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_41*/ curfrout->tabval[41])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:963:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V113*/ curfptr[112])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V113*/ curfptr[112]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V113*/ curfptr[112])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]); ; /*_.LAMBDA___V112*/ curfptr[111] = /*_.LAMBDA___V113*/ curfptr[112];;} ; BASILYS_LOCATION("warmelt-genobj.melt:961:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:961:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V112*/ curfptr[111]; /*_.OBJTOPLIS__V114*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.TOPLIS__V108*/ curfptr[107]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:969:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:969:/ apply.arg"); argtab[0].bp_cstring = "get symbols & keywords"; /*_.APPEND_COMMENTCONST__V115*/ curfptr[114] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:972:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:972:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V117*/ curfptr[116] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_49*/ curfrout->tabval[49])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V117*/ curfptr[116])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V117*/ curfptr[116]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V117*/ curfptr[116])->tabval[0] = (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]); ; /*_.LAMBDA___V116*/ curfptr[115] = /*_.LAMBDA___V117*/ curfptr[116];;} ; BASILYS_LOCATION("warmelt-genobj.melt:970:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:970:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V116*/ curfptr[115]; /*_.MULTIPLE_EVERY__V118*/ curfptr[117] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[42])), (basilys_ptr_t)(/*_.ODATATUP__V107*/ curfptr[106]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#MAPOBJECT_COUNT__L13*/ curfnum[0] = (basilys_count_mapobjects((basilysmapobjects_ptr_t)(/*_.IMPORTMAP__V38*/ curfptr[37])));; /*_#I__L14*/ curfnum[13] = ((/*_#MAPOBJECT_COUNT__L13*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-genobj.melt:995:/ cond"); /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:995:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:995:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:997:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:997:/ apply.arg"); argtab[0].bp_cstring = "get the value importer"; /*_.APPEND_COMMENTCONST__V119*/ curfptr[118] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1000:/ apply"); /*apply*/{ /*_.LIST1__V120*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.OVALUEIMPORTER__V59*/ curfptr[58]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:999:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:999:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[20])), (4), "CLASS_OBJGETSLOT");/*_.INST__V122*/ curfptr[121] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:999:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (1), (/*_.LIST1__V120*/ curfptr[119]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:999:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (2), ((/*!INITIALSYSTEMDATA_OBJPREDEF*/ curfrout->tabval[22])), "OGETSL_OBJ"); ; BASILYS_LOCATION("warmelt-genobj.melt:999:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V122*/ curfptr[121]))));basilys_putfield_object((/*_.INST__V122*/ curfptr[121]), (3), ((/*!SYSDATA_VALUE_IMPORTER*/ curfrout->tabval[50])), "OGETSL_FIELD"); ; /*_.INST___V121*/ curfptr[120] = /*_.INST__V122*/ curfptr[121];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (basilys_ptr_t)(/*_.INST___V121*/ curfptr[120])); BASILYS_LOCATION("warmelt-genobj.melt:996:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:995:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V119*/ curfptr[118] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:995:/ clear"); /*clear*/ /*_.LIST1__V120*/ curfptr[119] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:995:/ clear"); /*clear*/ /*_.INST___V121*/ curfptr[120] = 0 ;} ; } /*noelse*/ ; /*_#LIST_LENGTH__L15*/ curfnum[14] = (basilys_list_length((basilys_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6])));; /*_#I__L16*/ curfnum[15] = ((/*_#LIST_LENGTH__L15*/ curfnum[14]) > (0));; BASILYS_LOCATION("warmelt-genobj.melt:1004:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1004:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1004:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1006:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1006:/ apply.arg"); argtab[0].bp_cstring = "before getting imported values"; /*_.APPEND_COMMENTCONST__V124*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1010:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V126*/ curfptr[125] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_58*/ curfrout->tabval[58])), (5)); ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V126*/ curfptr[125])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V126*/ curfptr[125]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V126*/ curfptr[125])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]); ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V126*/ curfptr[125])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V126*/ curfptr[125]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V126*/ curfptr[125])->tabval[1] = (basilys_ptr_t)(/*_.IMPORTMAP__V38*/ curfptr[37]); ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V126*/ curfptr[125])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V126*/ curfptr[125]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V126*/ curfptr[125])->tabval[2] = (basilys_ptr_t)(/*_.OVALUEIMPORTER__V59*/ curfptr[58]); ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V126*/ curfptr[125])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V126*/ curfptr[125]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V126*/ curfptr[125])->tabval[3] = (basilys_ptr_t)(/*_.OPREVENV__V57*/ curfptr[55]); ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V126*/ curfptr[125])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V126*/ curfptr[125]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V126*/ curfptr[125])->tabval[4] = (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]); ; /*_.LAMBDA___V125*/ curfptr[120] = /*_.LAMBDA___V126*/ curfptr[125];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1008:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1008:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V125*/ curfptr[120]; /*_.LIST_EVERY__V127*/ curfptr[126] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[51])), (basilys_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1024:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1024:/ apply.arg"); argtab[0].bp_cstring = "after getting imported values"; /*_.APPEND_COMMENTCONST__V128*/ curfptr[127] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1005:/ block"); /*block*/{ /*_.PROGN___V129*/ curfptr[128] = /*_.APPEND_COMMENTCONST__V128*/ curfptr[127];;} ; /*_.IF___V123*/ curfptr[118] = /*_.PROGN___V129*/ curfptr[128];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1004:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V124*/ curfptr[119] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1004:/ clear"); /*clear*/ /*_.LAMBDA___V125*/ curfptr[120] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1004:/ clear"); /*clear*/ /*_.LIST_EVERY__V127*/ curfptr[126] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1004:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V128*/ curfptr[127] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1004:/ clear"); /*clear*/ /*_.PROGN___V129*/ curfptr[128] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1004:/ cond.else"); /*_.IF___V123*/ curfptr[118] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:1027:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1027:/ apply.arg"); argtab[0].bp_cstring = "before toplevel body"; /*_.APPEND_COMMENTCONST__V130*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1030:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1030:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V132*/ curfptr[126] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_59*/ curfrout->tabval[59])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:1030:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V132*/ curfptr[126])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V132*/ curfptr[126]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V132*/ curfptr[126])->tabval[0] = (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]); ; /*_.LAMBDA___V131*/ curfptr[120] = /*_.LAMBDA___V132*/ curfptr[126];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1028:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1028:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V131*/ curfptr[120]; /*_.LIST_EVERY__V133*/ curfptr[127] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[51])), (basilys_ptr_t)(/*_.OBJTOPLIS__V114*/ curfptr[113]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1032:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1032:/ apply.arg"); argtab[0].bp_cstring = "after toplevel body"; /*_.APPEND_COMMENTCONST__V134*/ curfptr[128] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1034:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1034:/ apply.arg"); argtab[0].bp_cstring = "compute boxloc again"; /*_.APPEND_COMMENTCONST__V135*/ curfptr[134] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.OTESTCOMPUTBOXLOC__V91*/ curfptr[71])); BASILYS_LOCATION("warmelt-genobj.melt:1036:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1036:/ apply.arg"); argtab[0].bp_cstring = "intern symbols"; /*_.APPEND_COMMENTCONST__V136*/ curfptr[135] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1040:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1040:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V138*/ curfptr[137] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_66*/ curfrout->tabval[66])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V138*/ curfptr[137])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V138*/ curfptr[137]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V138*/ curfptr[137])->tabval[0] = (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]); ; /*_.LAMBDA___V137*/ curfptr[136] = /*_.LAMBDA___V138*/ curfptr[137];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1038:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1038:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V137*/ curfptr[136]; /*_.MULTIPLE_EVERY__V139*/ curfptr[138] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[42])), (basilys_ptr_t)(/*_.ODATATUP__V107*/ curfptr[106]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V111*/ curfptr[109] = /*_.MULTIPLE_EVERY__V139*/ curfptr[138];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.LAMBDA___V112*/ curfptr[111] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.OBJTOPLIS__V114*/ curfptr[113] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V115*/ curfptr[114] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.LAMBDA___V116*/ curfptr[115] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V118*/ curfptr[117] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_#MAPOBJECT_COUNT__L13*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_#LIST_LENGTH__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.IF___V123*/ curfptr[118] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V130*/ curfptr[119] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.LAMBDA___V131*/ curfptr[120] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.LIST_EVERY__V133*/ curfptr[127] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V134*/ curfptr[128] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V135*/ curfptr[134] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V136*/ curfptr[135] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.LAMBDA___V137*/ curfptr[136] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:960:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V139*/ curfptr[138] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1063:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1063:/ apply.arg"); argtab[0].bp_cstring = "set retinit from boxloc"; /*_.APPEND_COMMENTCONST__V140*/ curfptr[111] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1065:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1068:/ apply"); /*apply*/{ /*_.LIST1__V141*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.RETINIT__V50*/ curfptr[48]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.MAKE_STRINGCONST__V142*/ curfptr[114] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( "/*final freshenv get*/ basilys_container_value((basilys_ptr_t)(")));; /*_.MAKE_STRINGCONST__V143*/ curfptr[115] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[26])), ( "))")));; /*_.MAKE_TUPLE3__V144*/ curfptr[117] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V142*/ curfptr[114]), (basilys_ptr_t)(/*_.BOXLOC__V53*/ curfptr[51]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V143*/ curfptr[115])));; BASILYS_LOCATION("warmelt-genobj.melt:1066:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1066:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[24])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V146*/ curfptr[119] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1066:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V146*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V146*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V146*/ curfptr[119]), (1), (/*_.LIST1__V141*/ curfptr[113]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:1066:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V146*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V146*/ curfptr[119]))));basilys_putfield_object((/*_.INST__V146*/ curfptr[119]), (2), (/*_.MAKE_TUPLE3__V144*/ curfptr[117]), "OBCPT_EXPR"); ; /*_.OSETRETINIT__V145*/ curfptr[118] = /*_.INST__V146*/ curfptr[119];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1078:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1078:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1078:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1078:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc adding osetretinit"; BASILYS_LOCATION("warmelt-genobj.melt:1078:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1078:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1078:/ apply.arg"); argtab[3].bp_long = 1078; /*_.DEBUG_MSG_FUN__V148*/ curfptr[127] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OSETRETINIT__V145*/ curfptr[118]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V147*/ curfptr[120] = /*_.DEBUG_MSG_FUN__V148*/ curfptr[127];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1078:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1078:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V148*/ curfptr[127] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1078:/ cppif.else"); /*_.IFCPP___V147*/ curfptr[120] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.OSETRETINIT__V145*/ curfptr[118])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1065:/ clear"); /*clear*/ /*_.LIST1__V141*/ curfptr[113] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1065:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V142*/ curfptr[114] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1065:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V143*/ curfptr[115] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1065:/ clear"); /*clear*/ /*_.MAKE_TUPLE3__V144*/ curfptr[117] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1065:/ clear"); /*clear*/ /*_.OSETRETINIT__V145*/ curfptr[118] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1065:/ clear"); /*clear*/ /*_.IFCPP___V147*/ curfptr[120] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1081:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1081:/ apply.arg"); argtab[0].bp_cstring = "end the initproc"; /*_.APPEND_COMMENTCONST__V149*/ curfptr[128] = basilys_apply ((basilysclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1082:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1082:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1082:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1082:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc final oinibody"; BASILYS_LOCATION("warmelt-genobj.melt:1082:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13]; BASILYS_LOCATION("warmelt-genobj.melt:1082:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1082:/ apply.arg"); argtab[3].bp_long = 1082; /*_.DEBUG_MSG_FUN__V151*/ curfptr[135] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V150*/ curfptr[134] = /*_.DEBUG_MSG_FUN__V151*/ curfptr[135];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1082:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1082:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V151*/ curfptr[135] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1082:/ cppif.else"); /*_.IFCPP___V150*/ curfptr[134] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1083:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1083:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1083:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1083:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc final gcx"; BASILYS_LOCATION("warmelt-genobj.melt:1083:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:1083:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1083:/ apply.arg"); argtab[3].bp_long = 1083; /*_.DEBUG_MSG_FUN__V153*/ curfptr[138] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.GCX__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V152*/ curfptr[136] = /*_.DEBUG_MSG_FUN__V153*/ curfptr[138];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1083:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1083:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V153*/ curfptr[138] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1083:/ cppif.else"); /*_.IFCPP___V152*/ curfptr[136] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1084:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1084:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1084:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1084:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc final oinitrout"; BASILYS_LOCATION("warmelt-genobj.melt:1084:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[15]; BASILYS_LOCATION("warmelt-genobj.melt:1084:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1084:/ apply.arg"); argtab[3].bp_long = 1084; /*_.DEBUG_MSG_FUN__V155*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OINITROUT__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V154*/ curfptr[127] = /*_.DEBUG_MSG_FUN__V155*/ curfptr[113];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1084:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1084:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V155*/ curfptr[113] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1084:/ cppif.else"); /*_.IFCPP___V154*/ curfptr[127] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1085:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OINITROUT__V36*/ curfptr[35];; BASILYS_LOCATION("warmelt-genobj.melt:1085:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V104*/ curfptr[81] = /*_.RETURN___V156*/ curfptr[114];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.LAMBDA___V105*/ curfptr[82] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.ODATATUP__V107*/ curfptr[106] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.TOPLIS__V108*/ curfptr[107] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.IFCPP___V109*/ curfptr[108] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.LET___V111*/ curfptr[109] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V140*/ curfptr[111] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V149*/ curfptr[128] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.IFCPP___V150*/ curfptr[134] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.IFCPP___V152*/ curfptr[136] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.IFCPP___V154*/ curfptr[127] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:944:/ clear"); /*clear*/ /*_.RETURN___V156*/ curfptr[114] = 0 ;} ; /*_.LET___V63*/ curfptr[61] = /*_.LET___V104*/ curfptr[81];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.LET___V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.OCOMPUTBOXLOC__V85*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V86*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V87*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.INST___V88*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.THE_NULL__V90*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.OTESTCOMPUTBOXLOC__V91*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.LAMBDA___V93*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.LIMPLOCV__V95*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.IFCPP___V96*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V103*/ curfptr[80] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:857:/ clear"); /*clear*/ /*_.LET___V104*/ curfptr[81] = 0 ;} ; /*_.LET___V26*/ curfptr[24] = /*_.LET___V63*/ curfptr[61];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LOCMAP__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OINIPROLOG__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OINIBODY__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_LIST__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_LIST__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OINITROUT__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.IMPORTMAP__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_LIST__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_LIST__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LAMBDA___V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LIST_MAP__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.GCX__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LET___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.RETINIT__V50*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LET___V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.BOXLOC__V53*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OFRESHENV__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LET___V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OPREVENV__V57*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OVALUEEXPORTER__V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.OVALUEIMPORTER__V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.APPEND_COMMENTCONST__V60*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:799:/ clear"); /*clear*/ /*_.LET___V63*/ curfptr[61] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V26*/ curfptr[24];; BASILYS_LOCATION("warmelt-genobj.melt:789:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:789:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[24] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILE2OBJ_INITPROC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_14_COMPILE2OBJ_INITPROC*/ static basilys_ptr_t rout_15_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_15_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:828:/ getarg"); /*_.CURPRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:828:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:829:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:829:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:829:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:829:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc procurmodenvlist curpro"; BASILYS_LOCATION("warmelt-genobj.melt:829:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:829:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:829:/ apply.arg"); argtab[3].bp_long = 829; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:829:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:829:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:829:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:830:/ block"); /*block*/{ /*_.CUROU__V6*/ curfptr[5] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)((/*~COMPICACHE*/ curfclos->tabval[0])), (basilysobject_ptr_t)(/*_.CURPRO__V2*/ curfptr[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:831:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:831:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:831:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:831:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc procurmodenvlist curou"; BASILYS_LOCATION("warmelt-genobj.melt:831:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:831:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:831:/ apply.arg"); argtab[3].bp_long = 831; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUROU__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:831:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:831:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:831:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:832:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:832:/ block"); /*block*/{ /*_#IS_OBJECT__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.CUROU__V6*/ curfptr[5])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:832:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:832:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:832:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:832:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(832)?(832):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:832:/ clear"); /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:832:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:832:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V5*/ curfptr[3] = /*_.CUROU__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:830:/ clear"); /*clear*/ /*_.CUROU__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:830:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:830:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:828:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-genobj.melt:828:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:828:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:828:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_15_LAMBDA_*/ static basilys_ptr_t rout_16_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_16_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:917:/ getarg"); /*_.IVAL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:917:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:918:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:918:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:918:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:918:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc imported ival"; BASILYS_LOCATION("warmelt-genobj.melt:918:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:918:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:918:/ apply.arg"); argtab[3].bp_long = 918; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.IVAL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:918:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:918:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:918:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:919:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:919:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.IVAL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:919:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:919:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:919:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:919:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ival"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(919)?(919):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:919:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:919:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:919:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:920:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:920:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.IVAL__V2*/ curfptr[1]), 1, "NIMPORT_SYMB");/*_.ISYM__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:921:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:921:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ISYM__V8*/ curfptr[7]; /*_.ILOCV__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:923:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:923:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:923:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:923:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc imported ilocv"; BASILYS_LOCATION("warmelt-genobj.melt:923:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:923:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:923:/ apply.arg"); argtab[3].bp_long = 923; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ILOCV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:923:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:923:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:923:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~IMPORTMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.ISYM__V8*/ curfptr[7]), (basilys_ptr_t)(/*_.ILOCV__V9*/ curfptr[8])); /*_.LET___V7*/ curfptr[5] = /*_.ILOCV__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:920:/ clear"); /*clear*/ /*_.ISYM__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:920:/ clear"); /*clear*/ /*_.ILOCV__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:920:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:917:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:917:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:917:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:917:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:917:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_16_LAMBDA_*/ static basilys_ptr_t rout_17_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_17_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:948:/ getarg"); /*_.CURDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:948:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:950:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:950:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:950:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:950:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:950:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:950:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curdat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(950)?(950):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:950:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:950:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:950:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:951:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:951:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:951:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.CUROBD__V6*/ curfptr[5] = basilysgc_send((basilys_ptr_t)(/*_.CURDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V5*/ curfptr[3] = /*_.CUROBD__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:951:/ clear"); /*clear*/ /*_.CUROBD__V6*/ curfptr[5] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:948:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-genobj.melt:948:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:948:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:948:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_17_LAMBDA_*/ static basilys_ptr_t rout_18_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_18_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:963:/ getarg"); /*_.CURTOP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:963:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:964:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:964:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:964:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OTOP__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CURTOP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:965:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:965:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:965:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:965:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc otop"; BASILYS_LOCATION("warmelt-genobj.melt:965:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:965:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:965:/ apply.arg"); argtab[3].bp_long = 965; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OTOP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:965:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:965:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:965:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V3*/ curfptr[2] = /*_.OTOP__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:964:/ clear"); /*clear*/ /*_.OTOP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:964:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:963:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:963:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:963:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_18_LAMBDA_*/ static basilys_ptr_t rout_19_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_19_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:972:/ getarg"); /*_.CURPDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:972:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:972:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:973:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:973:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:973:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:974:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:974:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODAT__V5*/ curfptr[4] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:976:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:976:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:976:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:976:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc getting curpdat"; BASILYS_LOCATION("warmelt-genobj.melt:976:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; BASILYS_LOCATION("warmelt-genobj.melt:976:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:976:/ apply.arg"); argtab[3].bp_long = 976; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:976:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:976:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:976:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L4*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:979:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:979:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:979:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:980:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:980:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:980:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGETNAMEDKEYWORD*/ curfrout->tabval[3])), (2), "CLASS_OBJGETNAMEDKEYWORD");/*_.INST__V11*/ curfptr[10] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:980:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V11*/ curfptr[10]))));basilys_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBGNAMED_IOBJ"); ; /*_.OGKW__V10*/ curfptr[9] = /*_.INST__V11*/ curfptr[10];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OINIPROLOG*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.OGKW__V10*/ curfptr[9])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:984:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:984:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:984:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:984:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc added keyword getting ogkw"; BASILYS_LOCATION("warmelt-genobj.melt:984:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:984:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:984:/ apply.arg"); argtab[3].bp_long = 984; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OGKW__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:984:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:984:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:984:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V9*/ curfptr[8] = /*_.IFCPP___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:980:/ clear"); /*clear*/ /*_.OGKW__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:980:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;} ; /*_.IFELSE___V8*/ curfptr[6] = /*_.LET___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:979:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:979:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:979:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:986:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:986:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:986:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:987:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:987:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:987:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGETNAMEDSYMBOL*/ curfrout->tabval[5])), (2), "CLASS_OBJGETNAMEDSYMBOL");/*_.INST__V17*/ curfptr[8] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:987:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[8])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[8]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[8]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBGNAMED_IOBJ"); ; /*_.OGSY__V16*/ curfptr[11] = /*_.INST__V17*/ curfptr[8];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OINIPROLOG*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.OGSY__V16*/ curfptr[11])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:991:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:991:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:991:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:991:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc added symbol getting ogsy"; BASILYS_LOCATION("warmelt-genobj.melt:991:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:991:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:991:/ apply.arg"); argtab[3].bp_long = 991; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OGSY__V16*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:991:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:991:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:991:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V15*/ curfptr[9] = /*_.IFCPP___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:987:/ clear"); /*clear*/ /*_.OGSY__V16*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:987:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;} ; /*_.IFELSE___V14*/ curfptr[12] = /*_.LET___V15*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:986:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:986:/ cond.else"); /*_.IFELSE___V14*/ curfptr[12] = NULL;; } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.IFELSE___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:979:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:979:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;} ; } ; /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V8*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:974:/ clear"); /*clear*/ /*_.ODAT__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:974:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:974:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:974:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; /*_.IF___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:973:/ clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:973:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:972:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:972:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:972:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:972:/ clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_19_LAMBDA_*/ static basilys_ptr_t rout_20_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_20_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1010:/ getarg"); /*_.CURIMPORT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1010:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1011:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1011:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1011:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1011:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc curimport"; BASILYS_LOCATION("warmelt-genobj.melt:1011:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1011:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1011:/ apply.arg"); argtab[3].bp_long = 1011; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1011:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1011:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1011:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1012:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1012:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1012:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1012:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1012:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1012:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curimport"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1012)?(1012):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1012:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1012:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1012:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1013:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), 1, "NIMPORT_SYMB");/*_.IMPSYM__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1014:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), 2, "NIMPORT_SYDATA");/*_.IMPSYDAT__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1015:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1015:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OSYMDAT__V9*/ curfptr[8] = basilysgc_send((basilys_ptr_t)(/*_.IMPSYDAT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OIMPLOCV__V10*/ curfptr[9] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)((/*~IMPORTMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t)(/*_.IMPSYM__V7*/ curfptr[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1018:/ apply"); /*apply*/{ /*_.LIST1__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OIMPLOCV__V10*/ curfptr[9]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.MAKE_TUPLE2__V12*/ curfptr[11] = (basilysgc_new_mult2((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OSYMDAT__V9*/ curfptr[8]), (basilys_ptr_t)((/*~OPREVENV*/ curfclos->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:1017:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1017:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[3])), (4), "CLASS_OBJAPPLY");/*_.INST__V14*/ curfptr[13] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1017:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), (/*_.LIST1__V11*/ curfptr[10]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:1017:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), ((/*~OVALUEIMPORTER*/ curfclos->tabval[2])), "OBAPP_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:1017:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), (/*_.MAKE_TUPLE2__V12*/ curfptr[11]), "OBAPP_ARGS"); ; /*_.OIMPAPPL__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OINIPROLOG*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.OIMPAPPL__V13*/ curfptr[12])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.IMPSYM__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.IMPSYDAT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.OSYMDAT__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.OIMPLOCV__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.LIST1__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1013:/ clear"); /*clear*/ /*_.OIMPAPPL__V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1010:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1010:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_20_LAMBDA_*/ static basilys_ptr_t rout_21_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_21_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1030:/ getarg"); /*_.CUROBJT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1030:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~OINIBODY*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.CUROBJT__V2*/ curfptr[1])); /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_21_LAMBDA_*/ static basilys_ptr_t rout_22_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_22_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1040:/ getarg"); /*_.CURPDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1040:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1040:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1041:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1041:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1041:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1042:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1042:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODAT__V5*/ curfptr[4] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1044:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1044:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1044:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1044:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc interning curpdat"; BASILYS_LOCATION("warmelt-genobj.melt:1044:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; BASILYS_LOCATION("warmelt-genobj.melt:1044:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1044:/ apply.arg"); argtab[3].bp_long = 1044; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1044:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1044:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1044:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L4*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:1047:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1047:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1047:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1048:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1048:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1048:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINTERNKEYWORD*/ curfrout->tabval[3])), (2), "CLASS_OBJINTERNKEYWORD");/*_.INST__V11*/ curfptr[10] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1048:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V11*/ curfptr[10]))));basilys_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBINTERN_IOBJ"); ; /*_.OIKW__V10*/ curfptr[9] = /*_.INST__V11*/ curfptr[10];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OINIBODY*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.OIKW__V10*/ curfptr[9])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1052:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1052:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1052:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1052:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc added keyword interning oikw"; BASILYS_LOCATION("warmelt-genobj.melt:1052:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:1052:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1052:/ apply.arg"); argtab[3].bp_long = 1052; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OIKW__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1052:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1052:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1052:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V9*/ curfptr[8] = /*_.IFCPP___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1048:/ clear"); /*clear*/ /*_.OIKW__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1048:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;} ; /*_.IFELSE___V8*/ curfptr[6] = /*_.LET___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1047:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1047:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1047:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1054:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1054:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1054:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1055:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1055:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1055:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINTERNSYMBOL*/ curfrout->tabval[5])), (2), "CLASS_OBJINTERNSYMBOL");/*_.INST__V17*/ curfptr[8] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1055:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[8])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[8]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[8]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBINTERN_IOBJ"); ; /*_.OISY__V16*/ curfptr[11] = /*_.INST__V17*/ curfptr[8];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OINIBODY*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.OISY__V16*/ curfptr[11])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1059:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1059:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1059:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1059:/ apply.arg"); argtab[0].bp_cstring = "compile2obj_initproc added symbol interning oisy"; BASILYS_LOCATION("warmelt-genobj.melt:1059:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:1059:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1059:/ apply.arg"); argtab[3].bp_long = 1059; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OISY__V16*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1059:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1059:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1059:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V15*/ curfptr[9] = /*_.IFCPP___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1055:/ clear"); /*clear*/ /*_.OISY__V16*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1055:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;} ; /*_.IFELSE___V14*/ curfptr[12] = /*_.LET___V15*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1054:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1054:/ cond.else"); /*_.IFELSE___V14*/ curfptr[12] = NULL;; } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.IFELSE___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1047:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1047:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;} ; } ; /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V8*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1042:/ clear"); /*clear*/ /*_.ODAT__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1042:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1042:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1042:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; /*_.IF___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1041:/ clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1041:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:1040:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:1040:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1040:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1040:/ clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_22_LAMBDA_*/ static basilys_ptr_t rout_23_GET_FREE_OBJLOCPTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_23_GET_FREE_OBJLOCPTR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 39 void* varptr[39]; #define CURFRAM_NBVARNUM 25 long varnum[25]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<39; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 39; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("GET_FREE_OBJLOCPTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1097:/ getarg"); /*_.GCX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1097:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NAM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1097:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1098:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1098:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1098:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1098:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1098:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1098:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1098)?(1098):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1098:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1098:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1098:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1100:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 0, "GNCX_OBJROUT");/*_.OROUT__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1101:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 2, "GNCX_FREEPTRLIST");/*_.FREELI__V8*/ curfptr[7] = slot; }; ; /*_.PFREE__V9*/ curfptr[8] = (basilysgc_popfirst_list((basilys_ptr_t)(/*_.FREELI__V8*/ curfptr[7])));; /*_#OFF__L2*/ curfnum[0] = -1;; /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[1])));; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_A__L3*/ curfnum[2]));; BASILYS_LOCATION("warmelt-genobj.melt:1107:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1107:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1107:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1108:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1108:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1108:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1108:/ apply.arg"); argtab[0].bp_cstring = "get_free_objlocptr bad orout"; BASILYS_LOCATION("warmelt-genobj.melt:1108:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:1108:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1108:/ apply.arg"); argtab[3].bp_long = 1108; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1108:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1108:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1108:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.IF___V10*/ curfptr[9] = /*_.IFCPP___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1107:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1107:/ cond.else"); /*_.IF___V10*/ curfptr[9] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1109:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1109:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1109:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1109:/ cond.then"); /*_.IFELSE___V14*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1109:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1109:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1109)?(1109):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1109:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1109:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1109:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L7*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1110:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1110:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1110:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1111:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1111:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), 1, "OBL_OFF");/*_.OFFPFREE__V15*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1112:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1112:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1112:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1112:/ apply.arg"); argtab[0].bp_cstring = "get_free_objlocptr pfree"; BASILYS_LOCATION("warmelt-genobj.melt:1112:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; BASILYS_LOCATION("warmelt-genobj.melt:1112:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1112:/ apply.arg"); argtab[3].bp_long = 1112; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1112:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1112:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1112:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1113:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1113:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L11*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.OFFPFREE__V15*/ curfptr[10])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:1113:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L11*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1113:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1113:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1113:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "get_free_objlocptr check offpfree"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1113)?(1113):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1113:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L11*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1113:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1113:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1115:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1115:/ block"); /*block*/{ /*_#GET_INT__L12*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8])));; /*_#NOT__L13*/ curfnum[12] = (!(/*_#GET_INT__L12*/ curfnum[9]));; BASILYS_LOCATION("warmelt-genobj.melt:1115:/ cond"); /*cond*/ if (/*_#NOT__L13*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1115:/ cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1115:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1115:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pfree not used"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1115)?(1115):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1115:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1115:/ clear"); /*clear*/ /*_#NOT__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1115:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1115:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L14*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)(/*_.OFFPFREE__V15*/ curfptr[10])));; BASILYS_LOCATION("warmelt-genobj.melt:1116:/ compute"); /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L15*/ curfnum[12] = /*_#GET_INT__L14*/ curfnum[9];; /*_#LET___L9*/ curfnum[8] = /*_#SETQ___L15*/ curfnum[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1111:/ clear"); /*clear*/ /*_.OFFPFREE__V15*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1111:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1111:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1111:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1111:/ clear"); /*clear*/ /*_#GET_INT__L14*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1111:/ clear"); /*clear*/ /*_#SETQ___L15*/ curfnum[12] = 0 ;} ; /*_#IFELSE___L8*/ curfnum[7] = /*_#LET___L9*/ curfnum[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1110:/ clear"); /*clear*/ /*_#LET___L9*/ curfnum[8] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1110:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1110:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1117:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1117:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 4, "OBROUT_NBVAL");/*_.NBVALOROUT__V22*/ curfptr[20] = slot; }; ; /*_#GET_INT__L17*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)(/*_.NBVALOROUT__V22*/ curfptr[20])));; BASILYS_LOCATION("warmelt-genobj.melt:1118:/ compute"); /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L18*/ curfnum[8] = /*_#GET_INT__L17*/ curfnum[12];; /*_#LET___L16*/ curfnum[9] = /*_#SETQ___L18*/ curfnum[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1117:/ clear"); /*clear*/ /*_.NBVALOROUT__V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1117:/ clear"); /*clear*/ /*_#GET_INT__L17*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1117:/ clear"); /*clear*/ /*_#SETQ___L18*/ curfnum[8] = 0 ;} ; /*_#IFELSE___L8*/ curfnum[7] = /*_#LET___L16*/ curfnum[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1110:/ clear"); /*clear*/ /*_#LET___L16*/ curfnum[9] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1120:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1120:/ block"); /*block*/{ /*_#I__L19*/ curfnum[12] = ((/*_#OFF__L2*/ curfnum[0]) >= (0));; BASILYS_LOCATION("warmelt-genobj.melt:1120:/ cond"); /*cond*/ if (/*_#I__L19*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1120:/ cond.then"); /*_.IFELSE___V24*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1120:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1120:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check off"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1120)?(1120):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[10] = /*_.IFELSE___V24*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1120:/ clear"); /*clear*/ /*_#I__L19*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1120:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1120:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1121:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 4, "OBROUT_NBVAL");/*_.NBVALBOX__V26*/ curfptr[18] = slot; }; ; /*_#NBVAL__L20*/ curfnum[8] = (basilys_get_int((basilys_ptr_t)(/*_.NBVALBOX__V26*/ curfptr[18])));; /*_.NAMBUF__V27*/ curfptr[20] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; /*_#IS_A__L21*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1125:/ cond"); /*cond*/ if (/*_#IS_A__L21*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1125:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1125:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1126:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1126:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMSTR__V29*/ curfptr[28] = slot; }; ; /*block*/{ basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]), basilys_string_str((basilys_ptr_t)(/*_.NAMSTR__V29*/ curfptr[28]))); /*clear*/ /*_.IFELSE___V28*/ curfptr[15] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1126:/ clear"); /*clear*/ /*_.NAMSTR__V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1125:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1125:/ block"); /*block*/{ /*_#IS_STRING__L22*/ curfnum[12] = (basilys_magic_discr((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:1128:/ cond"); /*cond*/ if (/*_#IS_STRING__L22*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1128:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1128:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]), basilys_string_str((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]))); /*clear*/ /*_.IFELSE___V30*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1128:/ cond.else"); /*_.IFELSE___V30*/ curfptr[28] = NULL;; } ; /*_.IFELSE___V28*/ curfptr[15] = /*_.IFELSE___V30*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1125:/ clear"); /*clear*/ /*_#IS_STRING__L22*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1125:/ clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[28] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]), ( "__V")); /*_#I__L23*/ curfnum[12] = ((/*_#NBVAL__L20*/ curfnum[8]) + (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]), (/*_#I__L23*/ curfnum[12])); /*_#I__L24*/ curfnum[23] = ((/*_#NBVAL__L20*/ curfnum[8]) + (1));; basilys_put_int((basilys_ptr_t)(/*_.NBVALBOX__V26*/ curfptr[18]), (/*_#I__L24*/ curfnum[23])); BASILYS_LOCATION("warmelt-genobj.melt:1133:/ block"); /*block*/{ /*_.NAMSTR__V32*/ curfptr[31] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]))));; /*_.OLDNBVALBOX__V33*/ curfptr[32] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#NBVAL__L20*/ curfnum[8])));; /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#OFF__L2*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1135:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1135:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])), (4), "CLASS_OBJLOCV");/*_.INST__V36*/ curfptr[35] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.MAKE_INTEGERBOX__V34*/ curfptr[33]), "OBL_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:1135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.OROUT__V7*/ curfptr[6]), "OBL_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.NAMSTR__V32*/ curfptr[31]), "OBL_CNAME"); ; /*_.NLOC__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1141:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1141:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1141:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1141:/ apply.arg"); argtab[0].bp_cstring = "get_free_objlocptr new nloc"; BASILYS_LOCATION("warmelt-genobj.melt:1141:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24]; BASILYS_LOCATION("warmelt-genobj.melt:1141:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1141:/ apply.arg"); argtab[3].bp_long = 1141; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NLOC__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1141:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1141:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1141:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1142:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NLOC__V35*/ curfptr[34];; BASILYS_LOCATION("warmelt-genobj.melt:1142:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V31*/ curfptr[28] = /*_.RETURN___V39*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1133:/ clear"); /*clear*/ /*_.NAMSTR__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1133:/ clear"); /*clear*/ /*_.OLDNBVALBOX__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1133:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1133:/ clear"); /*clear*/ /*_.NLOC__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1133:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1133:/ clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;} ; /*_.LET___V25*/ curfptr[16] = /*_.LET___V31*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_.NBVALBOX__V26*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_#NBVAL__L20*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_.NAMBUF__V27*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_#IS_A__L21*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1121:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[28] = 0 ;} ; /*_.LET___V6*/ curfptr[4] = /*_.LET___V25*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.OROUT__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.FREELI__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.PFREE__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_#OFF__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_#IFELSE___L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1100:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1097:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-genobj.melt:1097:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1097:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1097:/ clear"); /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GET_FREE_OBJLOCPTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_23_GET_FREE_OBJLOCPTR*/ static basilys_ptr_t rout_24_GET_FREE_OBJLOCLONG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_24_GET_FREE_OBJLOCLONG_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 37 void* varptr[37]; #define CURFRAM_NBVARNUM 23 long varnum[23]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<37; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 37; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("GET_FREE_OBJLOCLONG", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1148:/ getarg"); /*_.GCX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1148:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NAM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1148:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1149:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1149:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1149:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1149:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1149:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1149:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1149)?(1149):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1149:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1149:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1149:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1150:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 0, "GNCX_OBJROUT");/*_.OROUT__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1151:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 3, "GNCX_FREELONGLIST");/*_.FREELI__V8*/ curfptr[7] = slot; }; ; /*_.PFREE__V9*/ curfptr[8] = (basilysgc_popfirst_list((basilys_ptr_t)(/*_.FREELI__V8*/ curfptr[7])));; /*_#OFF__L2*/ curfnum[0] = -1;; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1155:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1155:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1155:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1155:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1155:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1155:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1155)?(1155):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1155:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1155:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1155:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L4*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:1156:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1156:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1156:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1157:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1157:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), 1, "OBL_OFF");/*_.OFFPFREE__V12*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1158:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1158:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1158:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1158:/ apply.arg"); argtab[0].bp_cstring = "get_free_objloclong pfree"; BASILYS_LOCATION("warmelt-genobj.melt:1158:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:1158:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1158:/ apply.arg"); argtab[3].bp_long = 1158; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1158:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1158:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1158:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1159:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1159:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L8*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.OFFPFREE__V12*/ curfptr[10])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:1159:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1159:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1159:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1159:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check offpfree"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1159)?(1159):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1159:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1159:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1159:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1161:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1161:/ block"); /*block*/{ /*_#GET_INT__L9*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.PFREE__V9*/ curfptr[8])));; /*_#NOT__L10*/ curfnum[9] = (!(/*_#GET_INT__L9*/ curfnum[6]));; BASILYS_LOCATION("warmelt-genobj.melt:1161:/ cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1161:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1161:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1161:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pfree not used"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1161)?(1161):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1161:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1161:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1161:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1161:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L11*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.OFFPFREE__V12*/ curfptr[10])));; BASILYS_LOCATION("warmelt-genobj.melt:1162:/ compute"); /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L12*/ curfnum[9] = /*_#GET_INT__L11*/ curfnum[6];; /*_#LET___L6*/ curfnum[5] = /*_#SETQ___L12*/ curfnum[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1157:/ clear"); /*clear*/ /*_.OFFPFREE__V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1157:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1157:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1157:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1157:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1157:/ clear"); /*clear*/ /*_#SETQ___L12*/ curfnum[9] = 0 ;} ; /*_#IFELSE___L5*/ curfnum[4] = /*_#LET___L6*/ curfnum[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1156:/ clear"); /*clear*/ /*_#LET___L6*/ curfnum[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1156:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1156:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1163:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1163:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 5, "OBROUT_NBLONG");/*_.NBLONGOROUT__V19*/ curfptr[17] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1164:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1164:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L14*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBLONGOROUT__V19*/ curfptr[17])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:1164:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L14*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1164:/ cond.then"); /*_.IFELSE___V21*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1164:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1164:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nblongorout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1164)?(1164):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[10] = /*_.IFELSE___V21*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1164:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L14*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1164:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1164:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L15*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.NBLONGOROUT__V19*/ curfptr[17])));; BASILYS_LOCATION("warmelt-genobj.melt:1165:/ compute"); /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L16*/ curfnum[9] = /*_#GET_INT__L15*/ curfnum[5];; /*_#LET___L13*/ curfnum[6] = /*_#SETQ___L16*/ curfnum[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1163:/ clear"); /*clear*/ /*_.NBLONGOROUT__V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1163:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1163:/ clear"); /*clear*/ /*_#GET_INT__L15*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1163:/ clear"); /*clear*/ /*_#SETQ___L16*/ curfnum[9] = 0 ;} ; /*_#IFELSE___L5*/ curfnum[4] = /*_#LET___L13*/ curfnum[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1156:/ clear"); /*clear*/ /*_#LET___L13*/ curfnum[6] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1166:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1166:/ block"); /*block*/{ /*_#I__L17*/ curfnum[5] = ((/*_#OFF__L2*/ curfnum[0]) >= (0));; BASILYS_LOCATION("warmelt-genobj.melt:1166:/ cond"); /*cond*/ if (/*_#I__L17*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1166:/ cond.then"); /*_.IFELSE___V23*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1166:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1166:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check off"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1166)?(1166):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[13] = /*_.IFELSE___V23*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1166:/ clear"); /*clear*/ /*_#I__L17*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1166:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1166:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1167:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 5, "OBROUT_NBLONG");/*_.NBLONGBOX__V25*/ curfptr[17] = slot; }; ; /*_#NBLONG__L18*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)(/*_.NBLONGBOX__V25*/ curfptr[17])));; /*_.NAMBUF__V26*/ curfptr[10] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; /*_#IS_A__L19*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1171:/ cond"); /*cond*/ if (/*_#IS_A__L19*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1171:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1171:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1172:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[27] = slot; }; ; /*block*/{ basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[27]))); /*clear*/ /*_.IFELSE___V27*/ curfptr[15] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1171:/ clear"); /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1171:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1171:/ block"); /*block*/{ /*_#IS_STRING__L20*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:1173:/ cond"); /*cond*/ if (/*_#IS_STRING__L20*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1173:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1173:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]), basilys_string_str((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]))); /*clear*/ /*_.IFELSE___V29*/ curfptr[27] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1173:/ cond.else"); /*_.IFELSE___V29*/ curfptr[27] = NULL;; } ; /*_.IFELSE___V27*/ curfptr[15] = /*_.IFELSE___V29*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1171:/ clear"); /*clear*/ /*_#IS_STRING__L20*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1171:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[27] = 0 ;} ; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]), ( "__L")); /*_#I__L21*/ curfnum[5] = ((/*_#NBLONG__L18*/ curfnum[9]) + (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]), (/*_#I__L21*/ curfnum[5])); /*_#I__L22*/ curfnum[21] = ((/*_#NBLONG__L18*/ curfnum[9]) + (1));; basilys_put_int((basilys_ptr_t)(/*_.NBLONGBOX__V25*/ curfptr[17]), (/*_#I__L22*/ curfnum[21])); BASILYS_LOCATION("warmelt-genobj.melt:1179:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#OFF__L2*/ curfnum[0])));; /*_.STRBUF2STRING__V32*/ curfptr[31] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]))));; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1179:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[2])), (4), "CLASS_OBJLOCV");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), ((/*!CTYPE_LONG*/ curfrout->tabval[6])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.MAKE_INTEGERBOX__V31*/ curfptr[30]), "OBL_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.OROUT__V7*/ curfptr[6]), "OBL_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.STRBUF2STRING__V32*/ curfptr[31]), "OBL_CNAME"); ; /*_.NLOC__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1184:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1184:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L23*/ curfnum[22] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1184:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1184:/ apply.arg"); argtab[0].bp_cstring = "get_free_objloclong new nloc"; BASILYS_LOCATION("warmelt-genobj.melt:1184:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[22]; BASILYS_LOCATION("warmelt-genobj.melt:1184:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1184:/ apply.arg"); argtab[3].bp_long = 1184; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NLOC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1184:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1184:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1184:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1185:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NLOC__V33*/ curfptr[32];; BASILYS_LOCATION("warmelt-genobj.melt:1185:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V30*/ curfptr[27] = /*_.RETURN___V37*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1179:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ clear"); /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ clear"); /*clear*/ /*_.NLOC__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1179:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[35] = 0 ;} ; /*_.LET___V24*/ curfptr[12] = /*_.LET___V30*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_.NBLONGBOX__V25*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_#NBLONG__L18*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_.NAMBUF__V26*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_#IS_A__L19*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1167:/ clear"); /*clear*/ /*_.LET___V30*/ curfptr[27] = 0 ;} ; /*_.LET___V6*/ curfptr[4] = /*_.LET___V24*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_.OROUT__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_.FREELI__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_.PFREE__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_#OFF__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_#IFELSE___L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1150:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1148:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-genobj.melt:1148:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1148:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1148:/ clear"); /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GET_FREE_OBJLOCLONG", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_24_GET_FREE_OBJLOCLONG*/ static basilys_ptr_t rout_25_GET_FREE_OBJLOCTYPED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_25_GET_FREE_OBJLOCTYPED_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 59 void* varptr[59]; #define CURFRAM_NBVARNUM 26 long varnum[26]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<59; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 59; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("GET_FREE_OBJLOCTYPED", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1189:/ getarg"); /*_.GCX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1189:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NAM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:1189:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.CTYP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CTYP__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1189:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1190:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1190:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1190:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1190:/ apply.arg"); argtab[0].bp_cstring = "get_free_objloctyped nam"; BASILYS_LOCATION("warmelt-genobj.melt:1190:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1190:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1190:/ apply.arg"); argtab[3].bp_long = 1190; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1190:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1190:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1190:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1191:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1191:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1191:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1191:/ apply.arg"); argtab[0].bp_cstring = "get_free_objloctyped ctyp"; BASILYS_LOCATION("warmelt-genobj.melt:1191:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1191:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1191:/ apply.arg"); argtab[3].bp_long = 1191; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1191:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1191:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1191:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1192:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1192:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1192:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1192:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1192:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1192:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1192)?(1192):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1192:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1192:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1192:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1193:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1193:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:1193:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1193:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1193:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1193:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1193)?(1193):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1193:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1193:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1193:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L5*/ curfnum[0] = ((/*_.CTYP__V4*/ curfptr[3]) == ((/*!CTYPE_LONG*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1194:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1194:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1194:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1195:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1195:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAM__V3*/ curfptr[2]; /*_.GET_FREE_OBJLOCLONG__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCLONG*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1195:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_FREE_OBJLOCLONG__V14*/ curfptr[13];; BASILYS_LOCATION("warmelt-genobj.melt:1195:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V13*/ curfptr[11] = /*_.RETURN___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1194:/ clear"); /*clear*/ /*_.GET_FREE_OBJLOCLONG__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1194:/ clear"); /*clear*/ /*_.RETURN___V15*/ curfptr[14] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1194:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1194:/ block"); /*block*/{ /*_#__L6*/ curfnum[5] = ((/*_.CTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1196:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1196:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1196:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1197:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1197:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAM__V3*/ curfptr[2]; /*_.GET_FREE_OBJLOCPTR__V17*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1197:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_FREE_OBJLOCPTR__V17*/ curfptr[14];; BASILYS_LOCATION("warmelt-genobj.melt:1197:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V16*/ curfptr[13] = /*_.RETURN___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1196:/ clear"); /*clear*/ /*_.GET_FREE_OBJLOCPTR__V17*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1196:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1196:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1196:/ block"); /*block*/{ /*_#__L7*/ curfnum[6] = ((/*_.CTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VOID*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-genobj.melt:1199:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1199:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1199:/ block"); /*block*/{ /*_.THE_NULL__V20*/ curfptr[17] = (NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1200:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V20*/ curfptr[17];; BASILYS_LOCATION("warmelt-genobj.melt:1200:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V19*/ curfptr[14] = /*_.RETURN___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1199:/ clear"); /*clear*/ /*_.THE_NULL__V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1199:/ clear"); /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1199:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1199:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1202:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1202:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1202:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1202:/ apply.arg"); argtab[0].bp_cstring = "getfreeobjloctyped nam"; BASILYS_LOCATION("warmelt-genobj.melt:1202:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-genobj.melt:1202:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1202:/ apply.arg"); argtab[3].bp_long = 1202; /*_.DEBUG_MSG_FUN__V23*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1202:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1202:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1202:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1203:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1203:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1203:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1203:/ apply.arg"); argtab[0].bp_cstring = "getfreeobjloctyped ctyp"; BASILYS_LOCATION("warmelt-genobj.melt:1203:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; BASILYS_LOCATION("warmelt-genobj.melt:1203:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1203:/ apply.arg"); argtab[3].bp_long = 1203; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1203:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1203:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1203:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1204:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1204:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 4, "GNCX_FREEOTHERMAPS");/*_.FREEMAP__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1205:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 0, "GNCX_OBJROUT");/*_.OROUT__V28*/ curfptr[27] = slot; }; ; /*_#OFF__L10*/ curfnum[7] = -1;; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1208:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1208:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L11*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.FREEMAP__V27*/ curfptr[26])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-genobj.melt:1208:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1208:/ cond.then"); /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1208:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1208:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check freemap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1208)?(1208):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.IFELSE___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1208:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1208:/ clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1208:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1209:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1209:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[10] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V28*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-genobj.melt:1209:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1209:/ cond.then"); /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1209:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1209:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1209)?(1209):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1209:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1209:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1209:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1210:/ block"); /*block*/{ /*_.FREELI__V34*/ curfptr[33] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.FREEMAP__V27*/ curfptr[26]), (basilysobject_ptr_t)(/*_.CTYP__V4*/ curfptr[3])));; /*_#NULL__L13*/ curfnum[10] = ((/*_.FREELI__V34*/ curfptr[33]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1211:/ cond"); /*cond*/ if (/*_#NULL__L13*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1211:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1211:/ block"); /*block*/{ /*_.MAKE_LIST__V35*/ curfptr[34] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-genobj.melt:1213:/ compute"); /*_.FREELI__V34*/ curfptr[33] = /*_.SETQ___V36*/ curfptr[35] = /*_.MAKE_LIST__V35*/ curfptr[34];; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.FREEMAP__V27*/ curfptr[26]), (basilysobject_ptr_t) (/*_.CTYP__V4*/ curfptr[3]), (basilys_ptr_t)(/*_.FREELI__V34*/ curfptr[33])); BASILYS_LOCATION("warmelt-genobj.melt:1212:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1211:/ clear"); /*clear*/ /*_.MAKE_LIST__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1211:/ clear"); /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1215:/ block"); /*block*/{ /*_.PFREE__V38*/ curfptr[35] = (basilysgc_popfirst_list((basilys_ptr_t)(/*_.FREELI__V34*/ curfptr[33])));; /*_#IS_A__L14*/ curfnum[13] = basilys_is_instance_of((basilys_ptr_t)(/*_.PFREE__V38*/ curfptr[35]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[10])));; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1216:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1216:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1218:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1218:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1218:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1218:/ apply.arg"); argtab[0].bp_cstring = "get_free_objloctyped pfree"; BASILYS_LOCATION("warmelt-genobj.melt:1218:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15]; BASILYS_LOCATION("warmelt-genobj.melt:1218:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1218:/ apply.arg"); argtab[3].bp_long = 1218; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PFREE__V38*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1218:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1218:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1218:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1219:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1219:/ block"); /*block*/{ /*_#GET_INT__L17*/ curfnum[15] = (basilys_get_int((basilys_ptr_t)(/*_.PFREE__V38*/ curfptr[35])));; /*_#NOT__L18*/ curfnum[17] = (!(/*_#GET_INT__L17*/ curfnum[15]));; BASILYS_LOCATION("warmelt-genobj.melt:1219:/ cond"); /*cond*/ if (/*_#NOT__L18*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1219:/ cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1219:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1219:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pfree was unused"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1219)?(1219):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1219:/ clear"); /*clear*/ /*_#GET_INT__L17*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1219:/ clear"); /*clear*/ /*_#NOT__L18*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1219:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1219:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1220:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PFREE__V38*/ curfptr[35]), 1, "OBL_OFF");/*_.OBL_OFF__V43*/ curfptr[41] = slot; }; ; /*_#GET_INT__L19*/ curfnum[15] = (basilys_get_int((basilys_ptr_t)(/*_.OBL_OFF__V43*/ curfptr[41])));; BASILYS_LOCATION("warmelt-genobj.melt:1220:/ compute"); /*_#OFF__L10*/ curfnum[7] = /*_#SETQ___L20*/ curfnum[17] = /*_#GET_INT__L19*/ curfnum[15];; BASILYS_LOCATION("warmelt-genobj.melt:1217:/ block"); /*block*/{ /*_#PROGN___L21*/ curfnum[20] = /*_#SETQ___L20*/ curfnum[17];;} ; /*_#IFELSE___L15*/ curfnum[14] = /*_#PROGN___L21*/ curfnum[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_.OBL_OFF__V43*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_#GET_INT__L19*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_#SETQ___L20*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_#PROGN___L21*/ curfnum[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1216:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1216:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1222:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V28*/ curfptr[27]), 6, "OBROUT_OTHERS");/*_.OBROUT_OTHERS__V44*/ curfptr[38] = slot; }; ; /*_#LIST_LENGTH__L22*/ curfnum[15] = (basilys_list_length((basilys_ptr_t)(/*_.OBROUT_OTHERS__V44*/ curfptr[38])));; BASILYS_LOCATION("warmelt-genobj.melt:1222:/ compute"); /*_#OFF__L10*/ curfnum[7] = /*_#SETQ___L23*/ curfnum[17] = /*_#LIST_LENGTH__L22*/ curfnum[15];; /*_#IFELSE___L15*/ curfnum[14] = /*_#SETQ___L23*/ curfnum[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_.OBROUT_OTHERS__V44*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_#LIST_LENGTH__L22*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1216:/ clear"); /*clear*/ /*_#SETQ___L23*/ curfnum[17] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1223:/ block"); /*block*/{ /*_.NAMBUF__V46*/ curfptr[41] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[11])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:1225:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V28*/ curfptr[27]), 6, "OBROUT_OTHERS");/*_.OTHERS__V47*/ curfptr[38] = slot; }; ; /*_#NBOTHERS__L24*/ curfnum[20] = (basilys_list_length((basilys_ptr_t)(/*_.OTHERS__V47*/ curfptr[38])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1228:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1228:/ block"); /*block*/{ /*_#IS_LIST__L25*/ curfnum[15] = (basilys_magic_discr((basilys_ptr_t)(/*_.OTHERS__V47*/ curfptr[38])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:1228:/ cond"); /*cond*/ if (/*_#IS_LIST__L25*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1228:/ cond.then"); /*_.IFELSE___V49*/ curfptr[48] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1228:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1228:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check others"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1228)?(1228):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V48*/ curfptr[47] = /*_.IFELSE___V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1228:/ clear"); /*clear*/ /*_#IS_LIST__L25*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1228:/ clear"); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1228:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V46*/ curfptr[41]), ( "loc_")); BASILYS_LOCATION("warmelt-genobj.melt:1230:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[48] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V46*/ curfptr[41]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V50*/ curfptr[48]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V46*/ curfptr[41]), ( "__o")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V46*/ curfptr[41]), (/*_#NBOTHERS__L24*/ curfnum[20])); BASILYS_LOCATION("warmelt-genobj.melt:1233:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[12])), (/*_#OFF__L10*/ curfnum[7])));; /*_.STRBUF2STRING__V53*/ curfptr[52] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V46*/ curfptr[41]))));; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1233:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[10])), (4), "CLASS_OBJLOCV");/*_.INST__V55*/ curfptr[54] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.CTYP__V4*/ curfptr[3]), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.OROUT__V28*/ curfptr[27]), "OBL_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.MAKE_INTEGERBOX__V52*/ curfptr[51]), "OBL_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (3), (/*_.STRBUF2STRING__V53*/ curfptr[52]), "OBL_CNAME"); ; /*_.NLOC__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1238:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1238:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L26*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1238:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1238:/ apply.arg"); argtab[0].bp_cstring = "getfreeobjloctyped new nloc"; BASILYS_LOCATION("warmelt-genobj.melt:1238:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[17]; BASILYS_LOCATION("warmelt-genobj.melt:1238:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1238:/ apply.arg"); argtab[3].bp_long = 1238; /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLOC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1238:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1238:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1238:/ cppif.else"); /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHERS__V47*/ curfptr[38]), (basilys_ptr_t)(/*_.NLOC__V54*/ curfptr[53])); BASILYS_LOCATION("warmelt-genobj.melt:1240:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NLOC__V54*/ curfptr[53];; BASILYS_LOCATION("warmelt-genobj.melt:1240:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V51*/ curfptr[50] = /*_.RETURN___V58*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1233:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ clear"); /*clear*/ /*_.STRBUF2STRING__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ clear"); /*clear*/ /*_.NLOC__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1233:/ clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;} ; /*_.LET___V45*/ curfptr[39] = /*_.LET___V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1223:/ clear"); /*clear*/ /*_.NAMBUF__V46*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1223:/ clear"); /*clear*/ /*_.OTHERS__V47*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1223:/ clear"); /*clear*/ /*_#NBOTHERS__L24*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1223:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1223:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1223:/ clear"); /*clear*/ /*_.LET___V51*/ curfptr[50] = 0 ;} ; /*_.LET___V37*/ curfptr[34] = /*_.LET___V45*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1215:/ clear"); /*clear*/ /*_.PFREE__V38*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1215:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1215:/ clear"); /*clear*/ /*_#IFELSE___L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1215:/ clear"); /*clear*/ /*_.LET___V45*/ curfptr[39] = 0 ;} ; /*_.LET___V33*/ curfptr[31] = /*_.LET___V37*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1210:/ clear"); /*clear*/ /*_.FREELI__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1210:/ clear"); /*clear*/ /*_#NULL__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1210:/ clear"); /*clear*/ /*_.LET___V37*/ curfptr[34] = 0 ;} ; /*_.LET___V26*/ curfptr[24] = /*_.LET___V33*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1204:/ clear"); /*clear*/ /*_.FREEMAP__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1204:/ clear"); /*clear*/ /*_.OROUT__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1204:/ clear"); /*clear*/ /*_#OFF__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1204:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1204:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1204:/ clear"); /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1201:/ block"); /*block*/{ /*_.PROGN___V59*/ curfptr[51] = /*_.LET___V26*/ curfptr[24];;} ; /*_.IFELSE___V19*/ curfptr[14] = /*_.PROGN___V59*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1199:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1199:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1199:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1199:/ clear"); /*clear*/ /*_.PROGN___V59*/ curfptr[51] = 0 ;} ; } ; /*_.IFELSE___V16*/ curfptr[13] = /*_.IFELSE___V19*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1196:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1196:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[14] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[11] = /*_.IFELSE___V16*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1194:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1194:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V13*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1189:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ clear"); /*clear*/ /*_#__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1189:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GET_FREE_OBJLOCTYPED", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_25_GET_FREE_OBJLOCTYPED*/ static basilys_ptr_t rout_26_DISPOSE_OBJLOC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_26_DISPOSE_OBJLOC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("DISPOSE_OBJLOC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1248:/ getarg"); /*_.OLDLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1248:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1248:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1249:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1249:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1249:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1249:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1249:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1249:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oldloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1249)?(1249):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1249:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1249:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1249:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1250:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1250:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1250:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1250:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1250:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1250:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1250)?(1250):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1250:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1250:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1250:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1252:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1252:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1252:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), 2, "OBL_PROC");/*_.OBL_PROC__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1252:/ cond"); /*cond*/ if (/*_.OBL_PROC__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1252:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1252:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1252:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check used oldloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1252)?(1252):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1252:/ clear"); /*clear*/ /*_.OBL_PROC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1252:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1252:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1253:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1253:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OLDCTY__V11*/ curfptr[8] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1254:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1254:/ block"); /*block*/{ /*_#__L3*/ curfnum[0] = ((/*_.OLDCTY__V11*/ curfptr[8]) != ((/*!CTYPE_VOID*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:1254:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1254:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1254:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1254:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oldcty not void"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1254)?(1254):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[9] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1254:/ clear"); /*clear*/ /*_#__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1254:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1254:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1255:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1255:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLDCTY__V11*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1255:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1255:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1255:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1255:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oldcty is ctype"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1255)?(1255):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1255:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1255:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1255:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1256:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1256:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1256:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1256:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]))));basilys_putfield_object((/*_.OLDLOC__V2*/ curfptr[1]), (2), ((/*nil*/NULL)), "OBL_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1256:/ touch"); basilysgc_touch(/*_.OLDLOC__V2*/ curfptr[1]); ; /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1257:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1257:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1257:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1257:/ apply.arg"); argtab[0].bp_cstring = "dispose_objloc freed oldloc"; BASILYS_LOCATION("warmelt-genobj.melt:1257:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1257:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1257:/ apply.arg"); argtab[3].bp_long = 1257; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1257:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1257:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1257:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L6*/ curfnum[0] = ((/*_.OLDCTY__V11*/ curfptr[8]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1258:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1258:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1258:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1259:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1259:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 2, "GNCX_FREEPTRLIST");/*_.FREEPL__V18*/ curfptr[16] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.FREEPL__V18*/ curfptr[16]), (basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1259:/ clear"); /*clear*/ /*_.FREEPL__V18*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1258:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1258:/ block"); /*block*/{ /*_#__L7*/ curfnum[6] = ((/*_.OLDCTY__V11*/ curfptr[8]) == ((/*!CTYPE_LONG*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:1261:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1261:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1261:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1262:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1262:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 3, "GNCX_FREELONGLIST");/*_.FREENL__V19*/ curfptr[16] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.FREENL__V19*/ curfptr[16]), (basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1262:/ clear"); /*clear*/ /*_.FREENL__V19*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1261:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1261:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1265:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1265:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 4, "GNCX_FREEOTHERMAPS");/*_.FREEMAP__V20*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1266:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V21*/ curfptr[20] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1268:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1268:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.FREEMAP__V20*/ curfptr[16])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-genobj.melt:1268:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1268:/ cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1268:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1268:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check freemap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1268)?(1268):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1268:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1268:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1268:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1269:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1269:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-genobj.melt:1269:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1269:/ cond.then"); /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1269:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1269:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1269)?(1269):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1269:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1269:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1269:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1270:/ block"); /*block*/{ /*_.FREELI__V26*/ curfptr[24] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.FREEMAP__V20*/ curfptr[16]), (basilysobject_ptr_t)(/*_.OLDCTY__V11*/ curfptr[8])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1272:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1272:/ block"); /*block*/{ /*_#IS_LIST__L10*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.FREELI__V26*/ curfptr[24])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:1272:/ cond"); /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1272:/ cond.then"); /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1272:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1272:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check freeli"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1272)?(1272):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1272:/ clear"); /*clear*/ /*_#IS_LIST__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1272:/ clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1272:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.FREELI__V26*/ curfptr[24]), (basilys_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1270:/ clear"); /*clear*/ /*_.FREELI__V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1270:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1265:/ clear"); /*clear*/ /*_.FREEMAP__V20*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1265:/ clear"); /*clear*/ /*_.OROUT__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1265:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1265:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1264:/ block"); /*block*/{} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1258:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1253:/ clear"); /*clear*/ /*_.OLDCTY__V11*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1253:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1253:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1253:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1253:/ clear"); /*clear*/ /*_#__L6*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1248:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1248:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1248:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("DISPOSE_OBJLOC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_26_DISPOSE_OBJLOC*/ static basilys_ptr_t rout_27_DISPOSE_BND_OBJ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_27_DISPOSE_BND_OBJ_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 25 void* varptr[25]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<25; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 25; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("DISPOSE_BND_OBJ", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1277:/ getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1277:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1277:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1278:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1278:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1278:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1278:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1278:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1278:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1278)?(1278):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1278:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1278:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1278:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1279:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1279:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1279:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1279:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1279:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1279:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1279)?(1279):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1279:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1279:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1279:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1280:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1280:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1280:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1280:/ apply.arg"); argtab[0].bp_cstring = "dispose_bnd_obj start bnd"; BASILYS_LOCATION("warmelt-genobj.melt:1280:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1280:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1280:/ apply.arg"); argtab[3].bp_long = 1280; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1280:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1280:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1280:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1281:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V11*/ curfptr[10] = slot; }; ; /*_.OLDLOC__V12*/ curfptr[11] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.LOCMAP__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.BND__V2*/ curfptr[1])));; /*_#NULL__L4*/ curfnum[0] = ((/*_.OLDLOC__V12*/ curfptr[11]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1284:/ cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1284:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1284:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1287:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1287:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1287:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1288:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.LETBIND_TYPE__V15*/ curfptr[14] = slot; }; ; /*_#__L6*/ curfnum[5] = ((/*_.LETBIND_TYPE__V15*/ curfptr[14]) == ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1287:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1287:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1287:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1289:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-genobj.melt:1289:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V16*/ curfptr[15] = /*_.RETURN___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1287:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1287:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; /*_.IF___V14*/ curfptr[13] = /*_.IF___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1287:/ clear"); /*clear*/ /*_.LETBIND_TYPE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1287:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1287:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1287:/ cond.else"); /*_.IF___V14*/ curfptr[13] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1290:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1290:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1290:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1290:/ apply.arg"); argtab[0].bp_cstring = "dispose_bnd_obj nulloldloc bnd"; BASILYS_LOCATION("warmelt-genobj.melt:1290:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:1290:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1290:/ apply.arg"); argtab[3].bp_long = 1290; /*_.DEBUG_MSG_FUN__V19*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1290:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1290:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1290:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1285:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[15] = /*_.IFCPP___V18*/ curfptr[16];;} ; /*_.IF___V13*/ curfptr[12] = /*_.PROGN___V20*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1284:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1284:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1284:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1284:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1284:/ cond.else"); /*_.IF___V13*/ curfptr[12] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1292:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1292:/ block"); /*block*/{ /*_#IS_A__L8*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLDLOC__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1292:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1292:/ cond.then"); /*_.IFELSE___V22*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1292:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1292:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oldloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1292)?(1292):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V22*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[14] = /*_.IFELSE___V22*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1292:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1292:/ clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1292:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1294:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1294:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.DISPOSE_OBJLOC__V23*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.OLDLOC__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_remove_mapobjects( (basilysmapobjects_ptr_t) (/*_.LOCMAP__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.BND__V2*/ curfptr[1])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1296:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1296:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1296:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1296:/ apply.arg"); argtab[0].bp_cstring = "dispose_bnd_obj end bnd"; BASILYS_LOCATION("warmelt-genobj.melt:1296:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:1296:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1296:/ apply.arg"); argtab[3].bp_long = 1296; /*_.DEBUG_MSG_FUN__V25*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1296:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1296:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1296:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.IFCPP___V24*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_.LOCMAP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_.OLDLOC__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_.IF___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_.DISPOSE_OBJLOC__V23*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1281:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[15] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1277:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1277:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1277:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1277:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1277:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1277:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("DISPOSE_BND_OBJ", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_27_DISPOSE_BND_OBJ*/ static basilys_ptr_t rout_28_COMPILOBJ_NREP_CHUNK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_28_COMPILOBJ_NREP_CHUNK_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 33 void* varptr[33]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<33; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 33; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_CHUNK", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1300:/ getarg"); /*_.NCHK__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1300:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1300:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1301:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1301:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_CHUNK*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1301:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1301:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1301:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1301:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nchk"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1301)?(1301):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1301:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1301:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1301:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1302:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1302:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1302:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1302:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1302:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1302:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1302)?(1302):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1302:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1302:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1302:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1303:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1303:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1303:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1303:/ apply.arg"); argtab[0].bp_cstring = "compilobj nrepchunk nchk"; BASILYS_LOCATION("warmelt-genobj.melt:1303:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1303:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1303:/ apply.arg"); argtab[3].bp_long = 1303; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1303:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1303:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1303:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1304:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1305:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 2, "NCHUNK_EXPANSION");/*_.NEXP__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1306:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 3, "NCHUNK_OPER");/*_.NOPER__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1307:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NTYP__V14*/ curfptr[13] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1309:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1309:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NOPER__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1309:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1309:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1309:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1309:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check noper"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1309)?(1309):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1309:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1309:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1309:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1310:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1310:/ block"); /*block*/{ /*_#IS_MULTIPLE__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.NEXP__V12*/ curfptr[11])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-genobj.melt:1310:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1310:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1310:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1310:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nexp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1310)?(1310):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1310:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1310:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1310:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1311:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1311:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTYP__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1311:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1311:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1311:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1311:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1311)?(1311):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1311:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1311:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1311:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1312:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1314:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1314:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:1314:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1312:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1312:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21]; /*_.OTUP__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NEXP__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1320:/ cond"); /*cond*/ if (/*_.LOC__V11*/ curfptr[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1320:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1320:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1321:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1321:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V27*/ curfptr[26] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1321:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.NTYP__V14*/ curfptr[13]), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1321:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.OTUP__V24*/ curfptr[23]), "OBX_CONT"); ; BASILYS_LOCATION("warmelt-genobj.melt:1321:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.LOC__V11*/ curfptr[10]), "OBCX_LOC"); ; /*_.INST___V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} ; /*_.OEXP__V25*/ curfptr[24] = /*_.INST___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1320:/ clear"); /*clear*/ /*_.INST___V26*/ curfptr[25] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1320:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1320:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1326:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1326:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[11])), (2), "CLASS_OBJEXPV");/*_.INST__V29*/ curfptr[28] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.NTYP__V14*/ curfptr[13]), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.OTUP__V24*/ curfptr[23]), "OBX_CONT"); ; /*_.INST___V28*/ curfptr[25] = /*_.INST__V29*/ curfptr[28];;} ; /*_.OEXP__V25*/ curfptr[24] = /*_.INST___V28*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1320:/ clear"); /*clear*/ /*_.INST___V28*/ curfptr[25] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1331:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1331:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTYP__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1331:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1331:/ cond.then"); /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1331:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1331:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1331)?(1331):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V30*/ curfptr[25] = /*_.IFELSE___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1331:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1331:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1331:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1332:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1332:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1332:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1332:/ apply.arg"); argtab[0].bp_cstring = "compilobj nrepchunk oexp"; BASILYS_LOCATION("warmelt-genobj.melt:1332:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1332:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1332:/ apply.arg"); argtab[3].bp_long = 1332; /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OEXP__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1332:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1332:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1332:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V21*/ curfptr[19] = /*_.OEXP__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1312:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1312:/ clear"); /*clear*/ /*_.OTUP__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1312:/ clear"); /*clear*/ /*_.OEXP__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1312:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1312:/ clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.NEXP__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.NOPER__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.NTYP__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1304:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1300:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1300:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1300:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1300:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1300:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1300:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_CHUNK", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_28_COMPILOBJ_NREP_CHUNK*/ static basilys_ptr_t rout_29_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_29_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1314:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1314:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1314:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1315:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1315:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1315:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1315:/ apply.arg"); argtab[0].bp_cstring = "compobj nrepchunk comp"; BASILYS_LOCATION("warmelt-genobj.melt:1315:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1315:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1315:/ apply.arg"); argtab[3].bp_long = 1315; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1315:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1315:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1315:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.DISCRIM__V5*/ curfptr[3] = (basilys_discr((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1])));; /*_#__L3*/ curfnum[1] = ((/*_.DISCRIM__V5*/ curfptr[3]) == ((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1316:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1316:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = /*_.COMP__V2*/ curfptr[1];; } else {BASILYS_LOCATION("warmelt-genobj.melt:1316:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1316:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1318:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1318:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.COMPILE_OBJ__V7*/ curfptr[6] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V6*/ curfptr[5] = /*_.COMPILE_OBJ__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1316:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V7*/ curfptr[6] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1314:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V6*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:1314:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1314:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1314:/ clear"); /*clear*/ /*_.DISCRIM__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1314:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1314:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_29_LAMBDA_*/ static basilys_ptr_t rout_30_GETCTYPE_TYPEXPR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_30_GETCTYPE_TYPEXPR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("GETCTYPE_TYPEXPR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1339:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1339:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1339:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1340:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1340:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_TYPEXPR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1340:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1340:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1340:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1340:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1340)?(1340):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1340:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1340:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1340:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1341:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NEXPR_CTYP__V6*/ curfptr[4] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1339:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NEXPR_CTYP__V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-genobj.melt:1339:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1339:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1339:/ clear"); /*clear*/ /*_.NEXPR_CTYP__V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GETCTYPE_TYPEXPR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_30_GETCTYPE_TYPEXPR*/ static basilys_ptr_t rout_31_COMPILOBJ_NREP_NIL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_31_COMPILOBJ_NREP_NIL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_NIL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1345:/ getarg"); /*_.NILO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1345:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1345:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1346:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1346:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NILO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1346:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1346:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1346:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1346:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nilo"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1346)?(1346):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1346:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1346:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1346:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1347:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1347:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1347:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1347:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1347:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1347:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1347)?(1347):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1347:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1347:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1347:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1348:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1348:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1348:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1348:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_nil nilo"; BASILYS_LOCATION("warmelt-genobj.melt:1348:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1348:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1348:/ apply.arg"); argtab[3].bp_long = 1348; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NILO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1348:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1348:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1348:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1349:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1349:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1349:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[3])), (1), "CLASS_OBJNIL");/*_.INST__V12*/ curfptr[11] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1349:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11]))));basilys_putfield_object((/*_.INST__V12*/ curfptr[11]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[4])), "OBV_TYPE"); ; /*_.OBNIL__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1351:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBNIL__V11*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:1351:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1349:/ clear"); /*clear*/ /*_.OBNIL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1349:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1345:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1345:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1345:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1345:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1345:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1345:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_NIL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_31_COMPILOBJ_NREP_NIL*/ static basilys_ptr_t rout_32_COMPILOBJ_NREP_COMMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_32_COMPILOBJ_NREP_COMMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 22 void* varptr[22]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_COMMENT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1357:/ getarg"); /*_.NCOMM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1357:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1357:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1358:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1358:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_COMMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1358:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1358:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1358:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1358:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncomm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1358)?(1358):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1358:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1358:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1358:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1359:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1359:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1359:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1359:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1359:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1359:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1359)?(1359):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1359:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1359:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1359:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1360:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1360:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1360:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1360:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_comment start"; BASILYS_LOCATION("warmelt-genobj.melt:1360:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1360:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1360:/ apply.arg"); argtab[3].bp_long = 1360; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1360:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1360:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1360:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1361:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1361:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), 1, "NCOMM_STRING");/*_.COMS__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1362:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V12*/ curfptr[11] = slot; }; ; /*_.SBUF__V13*/ curfptr[12] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V13*/ curfptr[12]), ( "/**!* ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_ccomment((basilys_ptr_t)(/*_.SBUF__V13*/ curfptr[12]), basilys_string_str((basilys_ptr_t)(/*_.COMS__V11*/ curfptr[10]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V13*/ curfptr[12]), ( " *!**/")); BASILYS_LOCATION("warmelt-genobj.melt:1367:/ block"); /*block*/{ /*_.OSTR__V15*/ curfptr[14] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[4])), basilys_strbuf_str((basilys_ptr_t)(/*_.SBUF__V13*/ curfptr[12]))));; BASILYS_LOCATION("warmelt-genobj.melt:1368:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1368:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[5])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1368:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.NLOC__V12*/ curfptr[11]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1368:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*nil*/NULL)), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:1368:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OSTR__V15*/ curfptr[14]), "OBCPT_EXPR"); ; /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1373:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1373:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1373:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1373:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_comment ostr"; BASILYS_LOCATION("warmelt-genobj.melt:1373:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1373:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1373:/ apply.arg"); argtab[3].bp_long = 1373; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OSTR__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1373:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1373:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1373:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1374:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1374:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1374:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1374:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_comment res"; BASILYS_LOCATION("warmelt-genobj.melt:1374:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1374:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1374:/ apply.arg"); argtab[3].bp_long = 1374; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1374:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1374:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1374:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1375:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; BASILYS_LOCATION("warmelt-genobj.melt:1375:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[13] = /*_.RETURN___V22*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1367:/ clear"); /*clear*/ /*_.OSTR__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1367:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1367:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1367:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1367:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1361:/ clear"); /*clear*/ /*_.COMS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1361:/ clear"); /*clear*/ /*_.NLOC__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1361:/ clear"); /*clear*/ /*_.SBUF__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1361:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1357:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1357:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1357:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1357:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1357:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1357:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_COMMENT", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_32_COMPILOBJ_NREP_COMMENT*/ static basilys_ptr_t rout_33_COMPILOBJ_NREP_LOCSYMOCC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_33_COMPILOBJ_NREP_LOCSYMOCC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 33 void* varptr[33]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<33; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 33; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_LOCSYMOCC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1381:/ getarg"); /*_.LSYO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1381:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1381:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1382:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1382:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1382:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1382:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1382:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1382:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nchk"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1382)?(1382):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1382:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1382:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1382:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1383:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1383:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1383:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1383:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1383:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1383:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1383)?(1383):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1383:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1383:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1383:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1384:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1385:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1386:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.SYM__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1387:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.OTY__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1388:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.SBND__V13*/ curfptr[12] = slot; }; ; /*_.OVAR__V14*/ curfptr[13] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.LOCMAP__V10*/ curfptr[9]), (basilysobject_ptr_t)(/*_.SBND__V13*/ curfptr[12])));; /*_#NULL__L3*/ curfnum[0] = ((/*_.SBND__V13*/ curfptr[12]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1396:/ cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1396:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1396:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1398:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1398:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1398:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1398:/ apply.arg"); argtab[0].bp_cstring = "compilobj locsymocc null sbnd; lsyo="; BASILYS_LOCATION("warmelt-genobj.melt:1398:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:1398:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1398:/ apply.arg"); argtab[3].bp_long = 1398; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1398:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1398:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1398:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1399:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1399:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1399:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1399:/ apply.arg"); argtab[0].bp_cstring = "compilobj locsymocc null sbnd; sym="; BASILYS_LOCATION("warmelt-genobj.melt:1399:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:1399:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1399:/ apply.arg"); argtab[3].bp_long = 1399; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SYM__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1399:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1399:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1399:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1401:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1401:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1401:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1401:/ cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1401:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1401:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "locsymocc without binding"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1401)?(1401):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1401:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1401:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1397:/ block"); /*block*/{ /*_.PROGN___V22*/ curfptr[20] = /*_.IFCPP___V20*/ curfptr[18];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V22*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1396:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1396:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1396:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1396:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1396:/ cond.else"); /*_.IF___V15*/ curfptr[14] = NULL;; } ; /*_#NULL__L6*/ curfnum[3] = ((/*_.OVAR__V14*/ curfptr[13]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1403:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1403:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1403:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1405:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1405:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1405:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1405:/ apply.arg"); argtab[0].bp_cstring = "compilobj locsymocc null ovar sbnd"; BASILYS_LOCATION("warmelt-genobj.melt:1405:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:1405:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1405:/ apply.arg"); argtab[3].bp_long = 1405; /*_.DEBUG_MSG_FUN__V25*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SBND__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1405:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1405:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1405:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1408:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1408:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1408:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1408:/ apply.arg"); argtab[0].bp_cstring = "compilobj locsymocc null ovar lsyo"; BASILYS_LOCATION("warmelt-genobj.melt:1408:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:1408:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1408:/ apply.arg"); argtab[3].bp_long = 1408; /*_.DEBUG_MSG_FUN__V27*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1408:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1408:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1408:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1409:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1409:/ block"); /*block*/{ /*_#__L9*/ curfnum[6] = ((/*_.OTY__V12*/ curfptr[11]) == ((/*!CTYPE_VOID*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1409:/ cond"); /*cond*/ if (/*_#__L9*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1409:/ cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1409:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1409:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj locsymocc null ovar without ctype_void"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1409)?(1409):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[18] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1409:/ clear"); /*clear*/ /*_#__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1409:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1409:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1404:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[28] = /*_.IFCPP___V28*/ curfptr[18];;} ; /*_.IFELSE___V23*/ curfptr[15] = /*_.PROGN___V30*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1403:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1403:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1403:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1403:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[28] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1403:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1403:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1411:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1411:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.OVAR__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1411:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1411:/ cond.then"); /*_.IFELSE___V32*/ curfptr[20] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1411:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1411:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj locsymocc check ovar"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1411)?(1411):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V32*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V31*/ curfptr[16] = /*_.IFELSE___V32*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1411:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1411:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1411:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.IFELSE___V23*/ curfptr[15] = /*_.IFCPP___V31*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1403:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[16] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1413:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OVAR__V14*/ curfptr[13];; BASILYS_LOCATION("warmelt-genobj.melt:1413:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V33*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.LOCMAP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.SYM__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.OTY__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.SBND__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.OVAR__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1384:/ clear"); /*clear*/ /*_.RETURN___V33*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1381:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:1381:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1381:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1381:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1381:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_LOCSYMOCC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_33_COMPILOBJ_NREP_LOCSYMOCC*/ static basilys_ptr_t rout_34_COMPILOBJ_NREP_CLOSEDOCC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_34_COMPILOBJ_NREP_CLOSEDOCC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 42 void* varptr[42]; #define CURFRAM_NBVARNUM 17 long varnum[17]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<42; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 42; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_CLOSEDOCC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1418:/ getarg"); /*_.NCLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1418:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1418:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1419:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1419:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_CLOSEDOCC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1419:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1419:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1419:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1419:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nclo"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1419)?(1419):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1419:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1419:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1419:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1420:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1420:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1420:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1420:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1420:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1420:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1420)?(1420):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1420:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1420:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1420:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1421:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1421:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1421:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1421:/ apply.arg"); argtab[0].bp_cstring = "compilobj closedocc nclo"; BASILYS_LOCATION("warmelt-genobj.melt:1421:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1421:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1421:/ apply.arg"); argtab[3].bp_long = 1421; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1421:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1421:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1421:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1424:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1425:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.OSYM__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1426:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.OBIND__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1427:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 4, "NCLOC_PROCS");/*_.CPROCS__V14*/ curfptr[13] = slot; }; ; /*_.LIST_LAST__V15*/ curfptr[14] = (basilys_list_last((basilys_ptr_t)(/*_.CPROCS__V14*/ curfptr[13])));; /*_.LASTCPROC__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_LAST__V15*/ curfptr[14])));; BASILYS_LOCATION("warmelt-genobj.melt:1429:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V17*/ curfptr[16] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1434:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1434:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCPROC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1434:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1434:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1434:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1434:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lastcproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1434)?(1434):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1434:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1434:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1434:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1435:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1435:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCPROC__V16*/ curfptr[15]), 4, "NRPRO_CLOSEDB");/*_.CLOBLIS__V21*/ curfptr[20] = slot; }; ; /*_#CLORANK__L5*/ curfnum[0] = -1;; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1438:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1438:/ block"); /*block*/{ /*_#IS_LIST__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CLOBLIS__V21*/ curfptr[20])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:1438:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1438:/ cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1438:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1438:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cloblis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1438)?(1438):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1438:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1438:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1438:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1439:/ block"); /*block*/{ /*_.CURPAIR__V25*/ curfptr[24] = (basilys_list_first((basilys_ptr_t)(/*_.CLOBLIS__V21*/ curfptr[20])));; /*_#CURANK__L7*/ curfnum[5] = 0;; BASILYS_LOCATION("warmelt-genobj.melt:1442:/ loop"); /*loop*/{ labloop_LOOPLIS_1:;BASILYS_LOCATION("warmelt-genobj.melt:1442:/ loopbody"); BASILYS_LOCATION("warmelt-genobj.melt:1442:/ block"); /*block*/{ /*_#IS_PAIR__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V25*/ curfptr[24])) == OBMAG_PAIR);; /*_#NOT__L9*/ curfnum[8] = (!(/*_#IS_PAIR__L8*/ curfnum[7]));; BASILYS_LOCATION("warmelt-genobj.melt:1444:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1444:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1444:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1444:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1444:/ compute"); /*_.LOOPLIS__V27*/ curfptr[26] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1444:/ exit"); /*exit*/{ goto labexit_LOOPLIS_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1445:/ block"); /*block*/{ /*_.CURBIND__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V25*/ curfptr[24])));; /*_#__L11*/ curfnum[10] = ((/*_.CURBIND__V28*/ curfptr[27]) == (/*_.OBIND__V13*/ curfptr[12]));; BASILYS_LOCATION("warmelt-genobj.melt:1446:/ cond"); /*cond*/ if (/*_#__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1446:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1446:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1448:/ compute"); /*_#CLORANK__L5*/ curfnum[0] = /*_#SETQ___L12*/ curfnum[11] = /*_#CURANK__L7*/ curfnum[5];; BASILYS_LOCATION("warmelt-genobj.melt:1449:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1449:/ compute"); /*_.LOOPLIS__V27*/ curfptr[26] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1449:/ exit"); /*exit*/{ goto labexit_LOOPLIS_1;} ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1447:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1446:/ clear"); /*clear*/ /*_#SETQ___L12*/ curfnum[11] = 0 ;} ; } /*noelse*/ ; /*_.PAIR_TAIL__V29*/ curfptr[28] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V25*/ curfptr[24])));; BASILYS_LOCATION("warmelt-genobj.melt:1450:/ compute"); /*_.CURPAIR__V25*/ curfptr[24] = /*_.SETQ___V30*/ curfptr[29] = /*_.PAIR_TAIL__V29*/ curfptr[28];; /*_#I__L13*/ curfnum[11] = ((/*_#CURANK__L7*/ curfnum[5]) + (1));; BASILYS_LOCATION("warmelt-genobj.melt:1451:/ compute"); /*_#CURANK__L7*/ curfnum[5] = /*_#SETQ___L14*/ curfnum[13] = /*_#I__L13*/ curfnum[11];; /*_#LET___L10*/ curfnum[9] = /*_#SETQ___L14*/ curfnum[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1445:/ clear"); /*clear*/ /*_.CURBIND__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1445:/ clear"); /*clear*/ /*_#__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1445:/ clear"); /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1445:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1445:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1445:/ clear"); /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1442:/ clear"); /*clear*/ /*_#IS_PAIR__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1442:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1442:/ clear"); /*clear*/ /*_#LET___L10*/ curfnum[9] = 0 ;} ; ; goto labloop_LOOPLIS_1; labexit_LOOPLIS_1:;BASILYS_LOCATION("warmelt-genobj.melt:1442:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V26*/ curfptr[25] = /*_.LOOPLIS__V27*/ curfptr[26];; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1453:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1453:/ block"); /*block*/{ /*_#I__L15*/ curfnum[10] = ((/*_#CLORANK__L5*/ curfnum[0]) >= (0));; BASILYS_LOCATION("warmelt-genobj.melt:1453:/ cond"); /*cond*/ if (/*_#I__L15*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1453:/ cond.then"); /*_.IFELSE___V32*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1453:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1453:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check good closed rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1453)?(1453):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V32*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V31*/ curfptr[27] = /*_.IFELSE___V32*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1453:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1453:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1453:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1454:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1455:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.NCLOTYP__V34*/ curfptr[28] = slot; }; ; /*_.MAKE_INTEGERBOX__V35*/ curfptr[34] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#CLORANK__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1462:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OSYM__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1457:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1457:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLOCCV*/ curfrout->tabval[4])), (4), "CLASS_OBJCLOCCV");/*_.INST__V38*/ curfptr[37] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1457:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), (/*_.NCLOTYP__V34*/ curfptr[28]), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1457:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.MAKE_INTEGERBOX__V35*/ curfptr[34]), "OBC_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:1457:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.LASTCPROC__V16*/ curfptr[15]), "OBC_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1457:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.NAMED_NAME__V36*/ curfptr[35]), "OBC_NAME"); ; /*_.OCLOCCV__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1464:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1464:/ block"); /*block*/{ /*_#IS_A__L16*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCLOTYP__V34*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:1464:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1464:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1464:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1464:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nclotyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1464)?(1464):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V39*/ curfptr[38] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1464:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1464:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1464:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1465:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1465:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1465:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1465:/ apply.arg"); argtab[0].bp_cstring = "compilobj closedocc result ocloccv"; BASILYS_LOCATION("warmelt-genobj.melt:1465:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[13]; BASILYS_LOCATION("warmelt-genobj.melt:1465:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1465:/ apply.arg"); argtab[3].bp_long = 1465; /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCLOCCV__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1465:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1465:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1465:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V33*/ curfptr[29] = /*_.OCLOCCV__V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1454:/ clear"); /*clear*/ /*_.NCLOTYP__V34*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1454:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1454:/ clear"); /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1454:/ clear"); /*clear*/ /*_.OCLOCCV__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1454:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1454:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;} ; /*_.LET___V24*/ curfptr[22] = /*_.LET___V33*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1439:/ clear"); /*clear*/ /*_.CURPAIR__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1439:/ clear"); /*clear*/ /*_#CURANK__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1439:/ clear"); /*clear*/ /*_.FOREVER___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1439:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1439:/ clear"); /*clear*/ /*_.LET___V33*/ curfptr[29] = 0 ;} ; /*_.LET___V20*/ curfptr[18] = /*_.LET___V24*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1435:/ clear"); /*clear*/ /*_.CLOBLIS__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1435:/ clear"); /*clear*/ /*_#CLORANK__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1435:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1435:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[22] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V20*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.OSYM__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.OBIND__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.CPROCS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.LIST_LAST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.LASTCPROC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.NLOC__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1423:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1418:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1418:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1418:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1418:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1418:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1418:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_CLOSEDOCC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_34_COMPILOBJ_NREP_CLOSEDOCC*/ static basilys_ptr_t rout_35_COMPILOBJ_NREP_CONSTOCC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_35_COMPILOBJ_NREP_CONSTOCC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 43 void* varptr[43]; #define CURFRAM_NBVARNUM 18 long varnum[18]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<43; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 43; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_CONSTOCC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1472:/ getarg"); /*_.NCNST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1472:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1472:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1473:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1473:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1473:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1473:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1473:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1473:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncnst"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1473)?(1473):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1473:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1473:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1473:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1474:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1474:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1474:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1474:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1474:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1474:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1474)?(1474):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1474:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1474:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1474:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1475:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1475:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1475:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1475:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_constocc ncnst"; BASILYS_LOCATION("warmelt-genobj.melt:1475:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1475:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1475:/ apply.arg"); argtab[3].bp_long = 1475; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1475:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1475:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1475:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1478:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1479:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.OSYM__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1480:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 4, "NCLOC_PROCS");/*_.CPROCS__V13*/ curfptr[12] = slot; }; ; /*_.LIST_LAST__V14*/ curfptr[13] = (basilys_list_last((basilys_ptr_t)(/*_.CPROCS__V13*/ curfptr[12])));; /*_.LASTCPROC__V15*/ curfptr[14] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_LAST__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-genobj.melt:1482:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1486:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1486:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1486:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1486:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_constocc lastcproc"; BASILYS_LOCATION("warmelt-genobj.melt:1486:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1486:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1486:/ apply.arg"); argtab[3].bp_long = 1486; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LASTCPROC__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1486:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1486:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1486:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1487:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1487:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCPROC__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1487:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1487:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1487:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1487:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lastcproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1487)?(1487):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1487:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1487:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1487:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1488:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1488:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCPROC__V15*/ curfptr[14]), 5, "NRPRO_CONST");/*_.CNSTLIS__V22*/ curfptr[21] = slot; }; ; /*_#CNSTRANK__L6*/ curfnum[0] = -1;; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1491:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1491:/ block"); /*block*/{ /*_#IS_LIST__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CNSTLIS__V22*/ curfptr[21])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:1491:/ cond"); /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1491:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1491:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1491:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cnstlis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1491)?(1491):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1491:/ clear"); /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1491:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1491:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1492:/ block"); /*block*/{ /*_.CURPAIR__V26*/ curfptr[25] = (basilys_list_first((basilys_ptr_t)(/*_.CNSTLIS__V22*/ curfptr[21])));; /*_#CURANK__L8*/ curfnum[6] = 0;; BASILYS_LOCATION("warmelt-genobj.melt:1495:/ loop"); /*loop*/{ labloop_LOOPLIS_2:;BASILYS_LOCATION("warmelt-genobj.melt:1495:/ loopbody"); BASILYS_LOCATION("warmelt-genobj.melt:1495:/ block"); /*block*/{ /*_#IS_PAIR__L9*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V26*/ curfptr[25])) == OBMAG_PAIR);; /*_#NOT__L10*/ curfnum[9] = (!(/*_#IS_PAIR__L9*/ curfnum[8]));; BASILYS_LOCATION("warmelt-genobj.melt:1497:/ cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1497:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1497:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1497:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1497:/ compute"); /*_.LOOPLIS__V28*/ curfptr[27] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1497:/ exit"); /*exit*/{ goto labexit_LOOPLIS_2;} ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1498:/ block"); /*block*/{ /*_.CURELEM__V29*/ curfptr[28] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V26*/ curfptr[25])));; /*_#__L12*/ curfnum[11] = ((/*_.CURELEM__V29*/ curfptr[28]) == (/*_.NCNST__V2*/ curfptr[1]));; BASILYS_LOCATION("warmelt-genobj.melt:1499:/ cond"); /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1499:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1499:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1501:/ compute"); /*_#CNSTRANK__L6*/ curfnum[0] = /*_#SETQ___L13*/ curfnum[12] = /*_#CURANK__L8*/ curfnum[6];; BASILYS_LOCATION("warmelt-genobj.melt:1502:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1502:/ compute"); /*_.LOOPLIS__V28*/ curfptr[27] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1502:/ exit"); /*exit*/{ goto labexit_LOOPLIS_2;} ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1500:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1499:/ clear"); /*clear*/ /*_#SETQ___L13*/ curfnum[12] = 0 ;} ; } /*noelse*/ ; /*_.PAIR_TAIL__V30*/ curfptr[29] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V26*/ curfptr[25])));; BASILYS_LOCATION("warmelt-genobj.melt:1503:/ compute"); /*_.CURPAIR__V26*/ curfptr[25] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_TAIL__V30*/ curfptr[29];; /*_#I__L14*/ curfnum[12] = ((/*_#CURANK__L8*/ curfnum[6]) + (1));; BASILYS_LOCATION("warmelt-genobj.melt:1504:/ compute"); /*_#CURANK__L8*/ curfnum[6] = /*_#SETQ___L15*/ curfnum[14] = /*_#I__L14*/ curfnum[12];; /*_#LET___L11*/ curfnum[10] = /*_#SETQ___L15*/ curfnum[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1498:/ clear"); /*clear*/ /*_.CURELEM__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1498:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1498:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1498:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1498:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1498:/ clear"); /*clear*/ /*_#SETQ___L15*/ curfnum[14] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1495:/ clear"); /*clear*/ /*_#IS_PAIR__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1495:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1495:/ clear"); /*clear*/ /*_#LET___L11*/ curfnum[10] = 0 ;} ; ; goto labloop_LOOPLIS_2; labexit_LOOPLIS_2:;BASILYS_LOCATION("warmelt-genobj.melt:1495:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V27*/ curfptr[26] = /*_.LOOPLIS__V28*/ curfptr[27];; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1506:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1506:/ block"); /*block*/{ /*_#I__L16*/ curfnum[11] = ((/*_#CNSTRANK__L6*/ curfnum[0]) >= (0));; BASILYS_LOCATION("warmelt-genobj.melt:1506:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1506:/ cond.then"); /*_.IFELSE___V33*/ curfptr[29] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1506:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1506:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check good const rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1506)?(1506):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V33*/ curfptr[29] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V32*/ curfptr[28] = /*_.IFELSE___V33*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1506:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1506:/ clear"); /*clear*/ /*_.IFELSE___V33*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1506:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1507:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1508:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.CNSTYP__V35*/ curfptr[29] = slot; }; ; /*_.MAKE_INTEGERBOX__V36*/ curfptr[35] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#CNSTRANK__L6*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1515:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OSYM__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[36] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1510:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1510:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[4])), (4), "CLASS_OBJCONSTV");/*_.INST__V39*/ curfptr[38] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1510:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.CNSTYP__V35*/ curfptr[29]), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1510:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.MAKE_INTEGERBOX__V36*/ curfptr[35]), "OBC_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:1510:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.LASTCPROC__V15*/ curfptr[14]), "OBC_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1510:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.NAMED_NAME__V37*/ curfptr[36]), "OBC_NAME"); ; /*_.OCONSTV__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1516:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1516:/ block"); /*block*/{ /*_#IS_A__L17*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.CNSTYP__V35*/ curfptr[29]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:1516:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1516:/ cond.then"); /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1516:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1516:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cnstyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1516)?(1516):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V40*/ curfptr[39] = /*_.IFELSE___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1516:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1516:/ clear"); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1516:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1517:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1517:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1517:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1517:/ apply.arg"); argtab[0].bp_cstring = "compilobj constocc result oconstv"; BASILYS_LOCATION("warmelt-genobj.melt:1517:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:1517:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1517:/ apply.arg"); argtab[3].bp_long = 1517; /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCONSTV__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1517:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1517:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1517:/ cppif.else"); /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V34*/ curfptr[30] = /*_.OCONSTV__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1507:/ clear"); /*clear*/ /*_.CNSTYP__V35*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1507:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1507:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1507:/ clear"); /*clear*/ /*_.OCONSTV__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1507:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1507:/ clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;} ; /*_.LET___V25*/ curfptr[23] = /*_.LET___V34*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1492:/ clear"); /*clear*/ /*_.CURPAIR__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1492:/ clear"); /*clear*/ /*_#CURANK__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1492:/ clear"); /*clear*/ /*_.FOREVER___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1492:/ clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1492:/ clear"); /*clear*/ /*_.LET___V34*/ curfptr[30] = 0 ;} ; /*_.LET___V21*/ curfptr[19] = /*_.LET___V25*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1488:/ clear"); /*clear*/ /*_.CNSTLIS__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1488:/ clear"); /*clear*/ /*_#CNSTRANK__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1488:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1488:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.OSYM__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.CPROCS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.LIST_LAST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.LASTCPROC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.NLOC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1477:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1472:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1472:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1472:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1472:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1472:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1472:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_CONSTOCC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_35_COMPILOBJ_NREP_CONSTOCC*/ static basilys_ptr_t rout_36_COMPILOBJ_NREP_IMPORTEDVAL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_36_COMPILOBJ_NREP_IMPORTEDVAL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 22 void* varptr[22]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_IMPORTEDVAL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1524:/ getarg"); /*_.NSVA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1524:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1524:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1525:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1525:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_INITGENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1525:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1525:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1525:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1525:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1525)?(1525):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1525:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1525:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1525:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1526:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1526:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NSVA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1526:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1526:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1526:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1526:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nsva"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1526)?(1526):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1526:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1526:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1526:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1527:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1527:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1527:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1527:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_importedval nsva"; BASILYS_LOCATION("warmelt-genobj.melt:1527:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1527:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1527:/ apply.arg"); argtab[3].bp_long = 1527; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NSVA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1527:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1527:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1527:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1528:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1528:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1528:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1528:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_importedval gcx"; BASILYS_LOCATION("warmelt-genobj.melt:1528:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1528:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1528:/ apply.arg"); argtab[3].bp_long = 1528; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1528:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1528:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1528:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1529:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSVA__V2*/ curfptr[1]), 1, "NIMPORT_SYMB");/*_.VAR__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1530:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 12, "IGNCX_IMPORTMAP");/*_.IGNCX_IMPORTMAP__V14*/ curfptr[13] = slot; }; ; /*_.OLOCV__V15*/ curfptr[14] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.IGNCX_IMPORTMAP__V14*/ curfptr[13]), (basilysobject_ptr_t)(/*_.VAR__V13*/ curfptr[12])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1532:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1532:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1532:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1532:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_importedval result olocv"; BASILYS_LOCATION("warmelt-genobj.melt:1532:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1532:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1532:/ apply.arg"); argtab[3].bp_long = 1532; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOCV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1532:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1532:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1532:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1533:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1533:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.VAR__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1533:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1533:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1533:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1533:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check var"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1533)?(1533):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1533:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1533:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1533:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1534:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1534:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLOCV__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1534:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1534:/ cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1534:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1534:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check olocv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1534)?(1534):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1534:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1534:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1534:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1535:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OLOCV__V15*/ curfptr[14];; BASILYS_LOCATION("warmelt-genobj.melt:1535:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.VAR__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.IGNCX_IMPORTMAP__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.OLOCV__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1529:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1524:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:1524:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1524:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1524:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1524:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1524:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1524:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_IMPORTEDVAL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_36_COMPILOBJ_NREP_IMPORTEDVAL*/ static basilys_ptr_t rout_37_COMPILOBJ_NREP_QUASICONSTANT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_37_COMPILOBJ_NREP_QUASICONSTANT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 40 void* varptr[40]; #define CURFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<40; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 40; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_QUASICONSTANT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1541:/ getarg"); /*_.NCONST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1541:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1541:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1542:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1542:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1542:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1542:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1542:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1542:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1542)?(1542):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1542:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1542:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1542:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1543:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1543:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_QUASICONSTANT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1543:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1543:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1543:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1543:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nconst"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1543)?(1543):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1543:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1543:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1543:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1544:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1544:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1544:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1544:/ apply.arg"); argtab[0].bp_cstring = "compilobj quasiconstant nconst"; BASILYS_LOCATION("warmelt-genobj.melt:1544:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1544:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1544:/ apply.arg"); argtab[3].bp_long = 1544; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1544:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1544:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1544:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1545:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1545:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1546:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 1, "NCONST_SVAL");/*_.SVAL__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1547:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 3, "NCONST_DATA");/*_.DATA__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1548:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 2, "NCONST_PROC");/*_.PROC__V14*/ curfptr[13] = slot; }; ; /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PROC__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1550:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1550:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1550:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1551:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1551:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROC__V14*/ curfptr[13]), 5, "NRPRO_CONST");/*_.CONSTLIST__V17*/ curfptr[16] = slot; }; ; /*_.CURPAIR__V18*/ curfptr[17] = (basilys_list_first((basilys_ptr_t)(/*_.CONSTLIST__V17*/ curfptr[16])));; /*_#COFF__L5*/ curfnum[4] = -1;; /*_#CURANK__L6*/ curfnum[5] = 0;; /*_.NAMBUF__V19*/ curfptr[18] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:1557:/ loop"); /*loop*/{ labloop_CONSTLOOP_1:;BASILYS_LOCATION("warmelt-genobj.melt:1557:/ loopbody"); BASILYS_LOCATION("warmelt-genobj.melt:1557:/ block"); /*block*/{ /*_#IS_PAIR__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V18*/ curfptr[17])) == OBMAG_PAIR);; BASILYS_LOCATION("warmelt-genobj.melt:1559:/ cond"); /*cond*/ if (/*_#IS_PAIR__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1559:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1559:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1560:/ block"); /*block*/{ /*_.CURCONST__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V18*/ curfptr[17])));; /*_#__L8*/ curfnum[7] = ((/*_.CURCONST__V22*/ curfptr[21]) == (/*_.DATA__V13*/ curfptr[12]));; BASILYS_LOCATION("warmelt-genobj.melt:1561:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1561:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1561:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1563:/ compute"); /*_#COFF__L5*/ curfnum[4] = /*_#SETQ___L9*/ curfnum[8] = /*_#CURANK__L6*/ curfnum[5];; BASILYS_LOCATION("warmelt-genobj.melt:1564:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1564:/ compute"); /*_.CONSTLOOP__V21*/ curfptr[20] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1564:/ exit"); /*exit*/{ goto labexit_CONSTLOOP_1;} ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1562:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1561:/ clear"); /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1560:/ clear"); /*clear*/ /*_.CURCONST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1560:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1559:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1559:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1566:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1566:/ compute"); /*_.CONSTLOOP__V21*/ curfptr[20] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1566:/ exit"); /*exit*/{ goto labexit_CONSTLOOP_1;} ;} ; /*epilog*/} ; } ; /*_.PAIR_TAIL__V23*/ curfptr[21] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V18*/ curfptr[17])));; BASILYS_LOCATION("warmelt-genobj.melt:1567:/ compute"); /*_.CURPAIR__V18*/ curfptr[17] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[21];; /*_#I__L10*/ curfnum[8] = ((/*_#CURANK__L6*/ curfnum[5]) + (1));; BASILYS_LOCATION("warmelt-genobj.melt:1568:/ compute"); /*_#CURANK__L6*/ curfnum[5] = /*_#SETQ___L11*/ curfnum[7] = /*_#I__L10*/ curfnum[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1557:/ clear"); /*clear*/ /*_#IS_PAIR__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1557:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1557:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1557:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1557:/ clear"); /*clear*/ /*_#SETQ___L11*/ curfnum[7] = 0 ;} ; ; goto labloop_CONSTLOOP_1; labexit_CONSTLOOP_1:;BASILYS_LOCATION("warmelt-genobj.melt:1557:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V20*/ curfptr[19] = /*_.CONSTLOOP__V21*/ curfptr[20];; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1570:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1570:/ block"); /*block*/{ /*_#I__L12*/ curfnum[6] = ((/*_#COFF__L5*/ curfnum[4]) >= (0));; BASILYS_LOCATION("warmelt-genobj.melt:1570:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1570:/ cond.then"); /*_.IFELSE___V26*/ curfptr[23] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1570:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1570:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check coff"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1570)?(1570):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[21] = /*_.IFELSE___V26*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1570:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1570:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1570:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "konst_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), (/*_#COFF__L5*/ curfnum[4])); /*_#IS_A__L13*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.SVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1573:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1573:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1573:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "_")); BASILYS_LOCATION("warmelt-genobj.melt:1576:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SVAL__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[23] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[23]))); BASILYS_LOCATION("warmelt-genobj.melt:1574:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1573:/ clear"); /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[23] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1579:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (/*_#COFF__L5*/ curfnum[4])));; /*_.STRBUF2STRING__V30*/ curfptr[29] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]))));; BASILYS_LOCATION("warmelt-genobj.melt:1580:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1580:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[6])), (4), "CLASS_OBJCONSTV");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1580:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1580:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.MAKE_INTEGERBOX__V29*/ curfptr[28]), "OBC_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:1580:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.PROC__V14*/ curfptr[13]), "OBC_PROC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1580:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.STRBUF2STRING__V30*/ curfptr[29]), "OBC_NAME"); ; /*_.CONSTV__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1586:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1586:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1586:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1586:/ apply.arg"); argtab[0].bp_cstring = "compilobj quasiconstant constv"; BASILYS_LOCATION("warmelt-genobj.melt:1586:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[7]; BASILYS_LOCATION("warmelt-genobj.melt:1586:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1586:/ apply.arg"); argtab[3].bp_long = 1586; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CONSTV__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1586:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1586:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1586:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1587:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSTV__V31*/ curfptr[30];; BASILYS_LOCATION("warmelt-genobj.melt:1587:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V28*/ curfptr[23] = /*_.RETURN___V35*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1579:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1579:/ clear"); /*clear*/ /*_.STRBUF2STRING__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1579:/ clear"); /*clear*/ /*_.CONSTV__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1579:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1579:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[33] = 0 ;} ; /*_.LET___V16*/ curfptr[15] = /*_.LET___V28*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_.CONSTLIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_.CURPAIR__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_#COFF__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_#CURANK__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_.NAMBUF__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_.FOREVER___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1551:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;} ; /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1550:/ clear"); /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1550:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1550:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1590:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1590:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1590:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODATA__V37*/ curfptr[29] = basilysgc_send((basilys_ptr_t)(/*_.DATA__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1592:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1592:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1592:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1592:/ apply.arg"); argtab[0].bp_cstring = "compilobj quasiconstant odata"; BASILYS_LOCATION("warmelt-genobj.melt:1592:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:1592:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1592:/ apply.arg"); argtab[3].bp_long = 1592; /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ODATA__V37*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1592:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1592:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1592:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1593:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ODATA__V37*/ curfptr[29];; BASILYS_LOCATION("warmelt-genobj.melt:1593:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V36*/ curfptr[28] = /*_.RETURN___V40*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1590:/ clear"); /*clear*/ /*_.ODATA__V37*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1590:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1590:/ clear"); /*clear*/ /*_.RETURN___V40*/ curfptr[33] = 0 ;} ; /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V36*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1550:/ clear"); /*clear*/ /*_.LET___V36*/ curfptr[28] = 0 ;} ; } ; /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1545:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1545:/ clear"); /*clear*/ /*_.SVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1545:/ clear"); /*clear*/ /*_.DATA__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1545:/ clear"); /*clear*/ /*_.PROC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1545:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1545:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1541:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1541:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1541:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1541:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1541:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1541:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_QUASICONSTANT", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_37_COMPILOBJ_NREP_QUASICONSTANT*/ static basilys_ptr_t rout_38_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_38_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1600:/ getarg"); /*_.NQCME__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1600:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1600:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1601:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1601:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1601:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1601:/ apply.arg"); argtab[0].bp_cstring = "start of compilobj_nrep_quasiconst_current_module_environment_container"; BASILYS_LOCATION("warmelt-genobj.melt:1601:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1601:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1601:/ apply.arg"); argtab[3].bp_long = 1601; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1601:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1601:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1601:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1602:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1602:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1602:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1602:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1602:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1602:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nqme"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1602)?(1602):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1602:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1602:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1602:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1603:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1603:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ONRES__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILOBJ_NREP_QUASICONSTANT*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1604:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), 4, "NQCMEC_COMMENT");/*_.SCOMM__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1605:/ block"); /*block*/{ /*_.SBUF__V12*/ curfptr[11] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V12*/ curfptr[11]), ( "/*quasi.cur.mod.env.cont ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_ccomment((basilys_ptr_t)(/*_.SBUF__V12*/ curfptr[11]), basilys_string_str((basilys_ptr_t)(/*_.SCOMM__V10*/ curfptr[9]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V12*/ curfptr[11]), ( "*/\n")); /*_.STRBUF2STRING__V13*/ curfptr[12] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[4])), basilys_strbuf_str((basilys_ptr_t)(/*_.SBUF__V12*/ curfptr[11]))));; /*_.LET___V11*/ curfptr[10] = /*_.STRBUF2STRING__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1605:/ clear"); /*clear*/ /*_.SBUF__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1605:/ clear"); /*clear*/ /*_.STRBUF2STRING__V13*/ curfptr[12] = 0 ;} ; /*_.STR__V14*/ curfptr[11] = /*_.LET___V11*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:1614:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V15*/ curfptr[12] = slot; }; ; /*_.MAKE_TUPLE2__V16*/ curfptr[15] = (basilysgc_new_mult2((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.STR__V14*/ curfptr[11]), (basilys_ptr_t)(/*_.ONRES__V9*/ curfptr[8])));; BASILYS_LOCATION("warmelt-genobj.melt:1612:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1612:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[5])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V18*/ curfptr[17] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1612:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17]))));basilys_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[6])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1612:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17]))));basilys_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NREP_LOC__V15*/ curfptr[12]), "OBCX_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1612:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17]))));basilys_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.MAKE_TUPLE2__V16*/ curfptr[15]), "OBX_CONT"); ; /*_.ORES__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1622:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1622:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1622:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1622:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_quasiconstant_current_module_environment_container result ores"; BASILYS_LOCATION("warmelt-genobj.melt:1622:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1622:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1622:/ apply.arg"); argtab[3].bp_long = 1622; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ORES__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1622:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1622:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1622:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1623:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ORES__V17*/ curfptr[16];; BASILYS_LOCATION("warmelt-genobj.melt:1623:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.ONRES__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.SCOMM__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.STR__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.NREP_LOC__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.ORES__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1603:/ clear"); /*clear*/ /*_.RETURN___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1600:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:1600:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1600:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1600:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1600:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_38_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t rout_39_COMPILOBJ_NREP_FOREVER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_39_COMPILOBJ_NREP_FOREVER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 55 void* varptr[55]; #define CURFRAM_NBVARNUM 16 long varnum[16]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<55; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 55; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_FOREVER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1629:/ getarg"); /*_.NFOR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1629:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1629:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1630:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1630:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1630:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1630:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1630:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1630:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1630)?(1630):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1630:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1630:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1630:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1631:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1631:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_FOREVER*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1631:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1631:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1631:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1631:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nfor"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1631)?(1631):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1631:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1631:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1631:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1632:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1632:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1632:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1632:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_forever nfor"; BASILYS_LOCATION("warmelt-genobj.melt:1632:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1632:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1632:/ apply.arg"); argtab[3].bp_long = 1632; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1632:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1632:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1632:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1634:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1635:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 1, "NFOREVER_BIND");/*_.NBIND__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1636:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 2, "NFOREVER_BODY");/*_.NBODY__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1637:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 3, "NFOREVER_RESULT");/*_.NRES__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1638:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1638:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NRES__V14*/ curfptr[13]; /*_.ORESV__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1640:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 1, "NFOREVER_BIND");/*_.NBIND99BIS__V16*/ curfptr[15] = slot; }; ; /*_.ORESV99BIS__V17*/ curfptr[16] = /*_.ORESV__V15*/ curfptr[14];; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1643:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1643:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1643:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1643:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_forever initial nbind"; BASILYS_LOCATION("warmelt-genobj.melt:1643:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1643:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1643:/ apply.arg"); argtab[3].bp_long = 1643; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1643:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1643:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1643:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1644:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1644:/ block"); /*block*/{ /*_.DISCRIM__V21*/ curfptr[20] = (basilys_discr((basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11])));; /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1644:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1644:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_forever initial nbind\'s class"; BASILYS_LOCATION("warmelt-genobj.melt:1644:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1644:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1644:/ apply.arg"); argtab[3].bp_long = 1644; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DISCRIM__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1644:/ clear"); /*clear*/ /*_.DISCRIM__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1644:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1644:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1644:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1645:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1645:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1645:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V24*/ curfptr[21] = slot; }; ; /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1645:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1645:/ apply.arg"); argtab[0].bp_cstring = ":labind_clonsy in nbind"; BASILYS_LOCATION("warmelt-genobj.melt:1645:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1645:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1645:/ apply.arg"); argtab[3].bp_long = 1645; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LABIND_CLONSY__V24*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1645:/ clear"); /*clear*/ /*_.LABIND_CLONSY__V24*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1645:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1645:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1645:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1646:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1646:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1646:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1646:/ cond.then"); /*_.IFELSE___V27*/ curfptr[24] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1646:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1646:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1646)?(1646):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[21] = /*_.IFELSE___V27*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1646:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1646:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1646:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1647:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1647:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1647:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1647:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_forever oresv"; BASILYS_LOCATION("warmelt-genobj.melt:1647:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1647:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1647:/ apply.arg"); argtab[3].bp_long = 1647; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ORESV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1647:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1647:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1647:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1648:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1648:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ORESV__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1648:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1648:/ cond.then"); /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1648:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1648:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oresv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1648)?(1648):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1648:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1648:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1648:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1649:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1649:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11]))));basilys_putfield_object((/*_.NBIND__V12*/ curfptr[11]), (3), (/*_.ORESV__V15*/ curfptr[14]), "LABIND_RES"); ; BASILYS_LOCATION("warmelt-genobj.melt:1649:/ touch"); basilysgc_touch(/*_.NBIND__V12*/ curfptr[11]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1650:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1650:/ block"); /*block*/{ /*_#IS_OBJECT__L10*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:1650:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L10*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1650:/ cond.then"); /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1650:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1650:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check again nbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1650)?(1650):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1650:/ clear"); /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1650:/ clear"); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1650:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1651:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1651:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1651:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBIND99BIS__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V35*/ curfptr[34] = slot; }; ; /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1651:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1651:/ apply.arg"); argtab[0].bp_cstring = ":labind_clonsy in nbind99bis"; BASILYS_LOCATION("warmelt-genobj.melt:1651:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1651:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1651:/ apply.arg"); argtab[3].bp_long = 1651; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LABIND_CLONSY__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1651:/ clear"); /*clear*/ /*_.LABIND_CLONSY__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1651:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1651:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1651:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1652:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1652:/ block"); /*block*/{ /*_#__L12*/ curfnum[0] = ((/*_.NBIND99BIS__V16*/ curfptr[15]) == (/*_.NBIND__V12*/ curfptr[11]));; BASILYS_LOCATION("warmelt-genobj.melt:1652:/ cond"); /*cond*/ if (/*_#__L12*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1652:/ cond.then"); /*_.IFELSE___V38*/ curfptr[35] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1652:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1652:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check 99bis nbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1652)?(1652):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V38*/ curfptr[35] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V37*/ curfptr[34] = /*_.IFELSE___V38*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1652:/ clear"); /*clear*/ /*_#__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1652:/ clear"); /*clear*/ /*_.IFELSE___V38*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1652:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1653:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1653:/ block"); /*block*/{ /*_#__L13*/ curfnum[0] = ((/*_.ORESV99BIS__V17*/ curfptr[16]) == (/*_.ORESV__V15*/ curfptr[14]));; BASILYS_LOCATION("warmelt-genobj.melt:1653:/ cond"); /*cond*/ if (/*_#__L13*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1653:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1653:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1653:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check 99bis oresv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1653)?(1653):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1653:/ clear"); /*clear*/ /*_#__L13*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1653:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1653:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1654:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1654:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1654:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1654:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_forever updated nbind"; BASILYS_LOCATION("warmelt-genobj.melt:1654:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1654:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1654:/ apply.arg"); argtab[3].bp_long = 1654; /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1654:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1654:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1654:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1655:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), 2, "LABIND_CLONSY");/*_.CLOSY__V44*/ curfptr[43] = slot; }; ; /*_.BODYL__V45*/ curfptr[44] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_.EPILOGL__V46*/ curfptr[45] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; BASILYS_LOCATION("warmelt-genobj.melt:1658:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1658:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[7])), (5), "CLASS_OBJLOOP");/*_.INST__V48*/ curfptr[47] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1658:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V48*/ curfptr[47]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1658:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V48*/ curfptr[47]), (1), (/*_.BODYL__V45*/ curfptr[44]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1658:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V48*/ curfptr[47]), (2), (/*_.EPILOGL__V46*/ curfptr[45]), "OBLO_EPIL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1658:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V48*/ curfptr[47]), (3), (/*_.CLOSY__V44*/ curfptr[43]), "OBLOOP_LABEL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1658:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V48*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V48*/ curfptr[47]), (4), (/*_.ORESV__V15*/ curfptr[14]), "OBLOOP_RESV"); ; /*_.OLOOP__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1665:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1665:/ block"); /*block*/{ /*_#IS_A__L15*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLOSY__V44*/ curfptr[43]), (basilys_ptr_t)((/*!CLASS_CLONEDSYMBOL*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-genobj.melt:1665:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1665:/ cond.then"); /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1665:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1665:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check closy"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1665)?(1665):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1665:/ clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1665:/ clear"); /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1665:/ cppif.else"); /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1668:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1668:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V52*/ curfptr[51] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:1668:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V52*/ curfptr[51])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V52*/ curfptr[51]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V52*/ curfptr[51])->tabval[0] = (basilys_ptr_t)(/*_.BODYL__V45*/ curfptr[44]); ; BASILYS_LOCATION("warmelt-genobj.melt:1668:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V52*/ curfptr[51])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V52*/ curfptr[51]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V52*/ curfptr[51])->tabval[1] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V51*/ curfptr[49] = /*_.LAMBDA___V52*/ curfptr[51];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1666:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1666:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V51*/ curfptr[49]; /*_.MULTIPLE_EVERY__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NBODY__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1670:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1670:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1670:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1670:/ apply.arg"); argtab[0].bp_cstring = "compilobj forever result oloop"; BASILYS_LOCATION("warmelt-genobj.melt:1670:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1670:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1670:/ apply.arg"); argtab[3].bp_long = 1670; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOOP__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1670:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1670:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1670:/ cppif.else"); /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V43*/ curfptr[41] = /*_.OLOOP__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.CLOSY__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.BODYL__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.EPILOGL__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.OLOOP__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.LAMBDA___V51*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1655:/ clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V43*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.NBIND__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.NBODY__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.NRES__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.ORESV__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.NBIND99BIS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.ORESV99BIS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1634:/ clear"); /*clear*/ /*_.LET___V43*/ curfptr[41] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1629:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1629:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1629:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1629:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1629:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1629:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_FOREVER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_39_COMPILOBJ_NREP_FOREVER*/ static basilys_ptr_t rout_40_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_40_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1668:/ getarg"); /*_.NCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1668:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1668:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1669:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1669:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]); /*_.COMPILE_OBJ__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.NCOMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)((/*~BODYL*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.COMPILE_OBJ__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1668:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_40_LAMBDA_*/ static basilys_ptr_t rout_41_COMPILOBJ_NREP_EXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_41_COMPILOBJ_NREP_EXIT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_EXIT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1679:/ getarg"); /*_.NEXI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1679:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1679:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1680:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1680:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1680:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1680:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1680:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1680:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1680)?(1680):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1680:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1680:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1680:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1681:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1681:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_EXIT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1681:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1681:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1681:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1681:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nexi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1681)?(1681):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1681:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1681:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1681:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1682:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1682:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1682:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1682:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_exit nexi"; BASILYS_LOCATION("warmelt-genobj.melt:1682:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1682:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1682:/ apply.arg"); argtab[3].bp_long = 1682; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1682:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1682:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1682:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1684:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1685:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1686:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), 1, "NEXIT_BIND");/*_.NBINDX__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1687:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), 2, "NEXIT_VAL");/*_.NVAL__V13*/ curfptr[12] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1688:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1688:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NBINDX__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1688:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1688:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1688:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1688:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1688)?(1688):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1688:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1688:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1688:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ block"); /*block*/{ /*_.INSLIST__V17*/ curfptr[16] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.EPILIST__V18*/ curfptr[17] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.DESTLIST__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-genobj.melt:1693:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1693:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OVAL__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NVAL__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1694:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBINDX__V12*/ curfptr[11]), 3, "LABIND_RES");/*_.BXRES__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1695:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1695:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[6])), (3), "CLASS_OBJBLOCK");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1695:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1695:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.INSLIST__V17*/ curfptr[16]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1695:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.EPILIST__V18*/ curfptr[17]), "OBLO_EPIL"); ; /*_.OBLOC__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1702:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBINDX__V12*/ curfptr[11]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V24*/ curfptr[23] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1700:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1700:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[7])), (2), "CLASS_OBJEXIT");/*_.INST__V26*/ curfptr[25] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1700:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1700:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.LABIND_CLONSY__V24*/ curfptr[23]), "OBEXIT_LABEL"); ; /*_.OBEX__V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1704:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1704:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[8])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V28*/ curfptr[27] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1704:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1704:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIST__V19*/ curfptr[18]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:1704:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.OVAL__V20*/ curfptr[19]), "OBCPT_EXPR"); ; /*_.OBCOM__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.INSLIST__V17*/ curfptr[16]), (basilys_ptr_t)(/*_.OBCOM__V27*/ curfptr[26])); basilysgc_append_list((basilys_ptr_t)(/*_.EPILIST__V18*/ curfptr[17]), (basilys_ptr_t)(/*_.OBEX__V25*/ curfptr[24])); basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIST__V19*/ curfptr[18]), (basilys_ptr_t)(/*_.BXRES__V21*/ curfptr[20])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1712:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1712:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1712:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1712:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_exit return obloc"; BASILYS_LOCATION("warmelt-genobj.melt:1712:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1712:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1712:/ apply.arg"); argtab[3].bp_long = 1712; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOC__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1712:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1712:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1712:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1713:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOC__V22*/ curfptr[21];; BASILYS_LOCATION("warmelt-genobj.melt:1713:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V16*/ curfptr[14] = /*_.RETURN___V31*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.INSLIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.EPILIST__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.DESTLIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.OVAL__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.BXRES__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.OBLOC__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.LABIND_CLONSY__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.OBEX__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.OBCOM__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1689:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V16*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1684:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1684:/ clear"); /*clear*/ /*_.NBINDX__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1684:/ clear"); /*clear*/ /*_.NVAL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1684:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1684:/ clear"); /*clear*/ /*_.LET___V16*/ curfptr[14] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1679:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1679:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1679:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1679:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1679:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1679:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_EXIT", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_41_COMPILOBJ_NREP_EXIT*/ static basilys_ptr_t rout_42_COMPILOBJ_DISCRANY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_42_COMPILOBJ_DISCRANY_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DISCRANY", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1718:/ getarg"); /*_.ANYV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1718:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1718:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1719:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1719:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1719:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1719:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1719:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1719:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1719)?(1719):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1719:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1719:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1719:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1718:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ANYV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:1718:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1718:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DISCRANY", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_42_COMPILOBJ_DISCRANY*/ static basilys_ptr_t rout_43_COMPILOBJ_NREP_LET(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_43_COMPILOBJ_NREP_LET_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 46 void* varptr[46]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<46; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 46; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_LET", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1726:/ getarg"); /*_.RLET__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1726:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1726:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1727:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1727:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1727:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1727:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1727:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1727:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rlet"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1727)?(1727):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1727:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1727:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1727:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1728:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1728:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1728:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1728:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1728:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1728:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1728)?(1728):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1728:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1728:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1728:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1729:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1730:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 1, "NLET_BINDINGS");/*_.BNDS__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1731:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 2, "NLET_BODY");/*_.BDY__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1732:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V12*/ curfptr[11] = slot; }; ; /*_.OBODL__V13*/ curfptr[12] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_.OEPIL__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; BASILYS_LOCATION("warmelt-genobj.melt:1735:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1735:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[3])), (3), "CLASS_OBJBLOCK");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1735:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1735:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.OBODL__V13*/ curfptr[12]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1735:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.OEPIL__V14*/ curfptr[13]), "OBLO_EPIL"); ; /*_.OBLOCK__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1740:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1740:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1740:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1740:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let initial rlet"; BASILYS_LOCATION("warmelt-genobj.melt:1740:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1740:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1740:/ apply.arg"); argtab[3].bp_long = 1740; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1740:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1740:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1740:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1741:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1741:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1741:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1741:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let initial loc"; BASILYS_LOCATION("warmelt-genobj.melt:1741:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1741:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1741:/ apply.arg"); argtab[3].bp_long = 1741; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1741:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1741:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1741:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1748:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1748:/ block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L5*/ curfnum[0] = ((/*_.BNDS__V10*/ curfptr[9]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.BNDS__V10*/ curfptr[9])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-genobj.melt:1748:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1748:/ cond.then"); /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1748:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1748:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_let check bnds multiple"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1748)?(1748):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1748:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1748:/ clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1748:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1753:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (5)); ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]); ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (basilys_ptr_t)(/*_.LOCMAP__V12*/ curfptr[11]); ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[3] = (basilys_ptr_t)(/*_.OBODL__V13*/ curfptr[12]); ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[4] = (basilys_ptr_t)(/*_.OEPIL__V14*/ curfptr[13]); ; /*_.LAMBDA___V23*/ curfptr[21] = /*_.LAMBDA___V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1751:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1751:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[21]; /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.BNDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1797:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1797:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1797:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1797:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let after iterate normbind loc"; BASILYS_LOCATION("warmelt-genobj.melt:1797:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1797:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1797:/ apply.arg"); argtab[3].bp_long = 1797; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1797:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1797:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1797:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1798:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1798:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1798:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1798:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let updated locmap"; BASILYS_LOCATION("warmelt-genobj.melt:1798:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1798:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1798:/ apply.arg"); argtab[3].bp_long = 1798; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOCMAP__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1798:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1798:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1798:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1802:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1802:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[30] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:1802:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[0] = (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]); ; BASILYS_LOCATION("warmelt-genobj.melt:1802:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[1] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:1802:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[2] = (basilys_ptr_t)(/*_.OBODL__V13*/ curfptr[12]); ; /*_.LAMBDA___V30*/ curfptr[28] = /*_.LAMBDA___V31*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1800:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1800:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[28]; /*_.MULTIPLE_EVERY__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.BDY__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1812:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1812:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1812:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1812:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let after iterate body loc"; BASILYS_LOCATION("warmelt-genobj.melt:1812:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1812:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1812:/ apply.arg"); argtab[3].bp_long = 1812; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1812:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1812:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1812:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1816:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]); ; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[1] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V35*/ curfptr[33] = /*_.LAMBDA___V36*/ curfptr[35];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1814:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1814:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[33]; /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.BNDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1820:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1820:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1820:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1820:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let quasifinal loc"; BASILYS_LOCATION("warmelt-genobj.melt:1820:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1820:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1820:/ apply.arg"); argtab[3].bp_long = 1820; /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1820:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1820:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1820:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1821:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1821:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1821:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1821:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let final locmap"; BASILYS_LOCATION("warmelt-genobj.melt:1821:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1821:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1821:/ apply.arg"); argtab[3].bp_long = 1821; /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOCMAP__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1821:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1821:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1821:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1822:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1822:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1822:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1822:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let final loc"; BASILYS_LOCATION("warmelt-genobj.melt:1822:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1822:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1822:/ apply.arg"); argtab[3].bp_long = 1822; /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1822:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1822:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1822:/ cppif.else"); /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1823:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1823:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1823:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1823:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let return oblock"; BASILYS_LOCATION("warmelt-genobj.melt:1823:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1823:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1823:/ apply.arg"); argtab[3].bp_long = 1823; /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OBLOCK__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1823:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1823:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1823:/ cppif.else"); /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1824:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V15*/ curfptr[14];; BASILYS_LOCATION("warmelt-genobj.melt:1824:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V46*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.BNDS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.BDY__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.LOCMAP__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.OBODL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.OEPIL__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.OBLOCK__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.LAMBDA___V35*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1729:/ clear"); /*clear*/ /*_.RETURN___V46*/ curfptr[44] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1726:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:1726:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1726:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1726:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1726:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_LET", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_43_COMPILOBJ_NREP_LET*/ static basilys_ptr_t rout_44_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_44_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 40 void* varptr[40]; #define CURFRAM_NBVARNUM 17 long varnum[17]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<40; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 40; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1753:/ getarg"); /*_.NLBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1753:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1753:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1754:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1754:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1754:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1754:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding loc"; BASILYS_LOCATION("warmelt-genobj.melt:1754:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1754:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1754:/ apply.arg"); argtab[3].bp_long = 1754; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1754:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1754:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1754:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1755:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1755:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1755:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1755:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding nlbnd"; BASILYS_LOCATION("warmelt-genobj.melt:1755:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1755:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1755:/ apply.arg"); argtab[3].bp_long = 1755; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1755:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1755:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1755:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1756:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1756:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1756:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1756:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding locmap"; BASILYS_LOCATION("warmelt-genobj.melt:1756:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1756:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1756:/ apply.arg"); argtab[3].bp_long = 1756; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~LOCMAP*/ curfclos->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1756:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1756:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1756:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1757:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1757:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1757:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1757:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1757:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1757:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nlbnd in compilobj_nrep_let"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1757)?(1757):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1757:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1757:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1757:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1758:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1758:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V11*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1759:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1760:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1761:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1761:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BDER__V11*/ curfptr[9]; BASILYS_LOCATION("warmelt-genobj.melt:1761:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CTY__V12*/ curfptr[11]; /*_.OBVA__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[2])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1763:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1763:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1763:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1763:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding obva"; BASILYS_LOCATION("warmelt-genobj.melt:1763:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1763:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1763:/ apply.arg"); argtab[3].bp_long = 1763; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBVA__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1763:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1763:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1763:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1764:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1764:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1764:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1764:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding nexp"; BASILYS_LOCATION("warmelt-genobj.melt:1764:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1764:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1764:/ apply.arg"); argtab[3].bp_long = 1764; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1764:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1764:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1764:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1765:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1765:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1765:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]); /*_.OBNX__V19*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1766:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1766:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1766:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1766:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding obnx"; BASILYS_LOCATION("warmelt-genobj.melt:1766:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1766:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1766:/ apply.arg"); argtab[3].bp_long = 1766; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1766:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1766:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1766:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L9*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1767:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1767:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1767:/ block"); /*block*/{ /*_#IS_OBJECT__L10*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17])) == OBMAG_OBJECT);; /*_#NOT__L11*/ curfnum[10] = (!(/*_#IS_OBJECT__L10*/ curfnum[9]));; BASILYS_LOCATION("warmelt-genobj.melt:1768:/ cond"); /*cond*/ if (/*_#NOT__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1768:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1768:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1770:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1770:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1770:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1770:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding faulty nexp"; BASILYS_LOCATION("warmelt-genobj.melt:1770:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:1770:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1770:/ apply.arg"); argtab[3].bp_long = 1770; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1770:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1770:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1770:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1771:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1771:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1771:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1771:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current normbinding faulty obnx"; BASILYS_LOCATION("warmelt-genobj.melt:1771:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:1771:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1771:/ apply.arg"); argtab[3].bp_long = 1771; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1771:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1771:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1771:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1772:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1772:/ block"); /*block*/{ /*_#IS_OBJECT__L14*/ curfnum[11] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:1772:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1772:/ cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1772:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1772:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_let check obnx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1772)?(1772):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1772:/ clear"); /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1772:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1772:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1769:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[28] = /*_.IFCPP___V28*/ curfptr[26];;} ; /*_.IF___V23*/ curfptr[22] = /*_.PROGN___V30*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1768:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1768:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1768:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1768:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[28] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1768:/ cond.else"); /*_.IF___V23*/ curfptr[22] = NULL;; } ; /*_.IF___V22*/ curfptr[20] = /*_.IF___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1767:/ clear"); /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1767:/ clear"); /*clear*/ /*_#NOT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1767:/ clear"); /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1767:/ cond.else"); /*_.IF___V22*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:1773:/ cond"); /*cond*/ if (/*_.OBVA__V14*/ curfptr[13]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1773:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1773:/ block"); /*block*/{ basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.NLBND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBVA__V14*/ curfptr[13])); BASILYS_LOCATION("warmelt-genobj.melt:1777:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1777:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1777:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OBVA__V14*/ curfptr[13]; /*_.OBPD__V31*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1778:/ cond"); /*cond*/ if (/*_.OBPD__V31*/ curfptr[23]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1778:/ cond.then"); /*_.OBMY__V32*/ curfptr[24] = /*_.OBPD__V31*/ curfptr[23];; } else {BASILYS_LOCATION("warmelt-genobj.melt:1778:/ cond.else"); /*_.OBMY__V32*/ curfptr[24] = /*_.OBNX__V19*/ curfptr[17];; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1780:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1780:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1780:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1780:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let current obpd"; BASILYS_LOCATION("warmelt-genobj.melt:1780:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:1780:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1780:/ apply.arg"); argtab[3].bp_long = 1780; /*_.DEBUG_MSG_FUN__V34*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBPD__V31*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1780:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1780:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1780:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1781:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1781:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[9] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1781:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1781:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let append obmy"; BASILYS_LOCATION("warmelt-genobj.melt:1781:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[9]; BASILYS_LOCATION("warmelt-genobj.melt:1781:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1781:/ apply.arg"); argtab[3].bp_long = 1781; /*_.DEBUG_MSG_FUN__V36*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBMY__V32*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1781:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1781:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1781:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.OBMY__V32*/ curfptr[24])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1777:/ clear"); /*clear*/ /*_.OBPD__V31*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1777:/ clear"); /*clear*/ /*_.OBMY__V32*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1777:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1777:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1775:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1773:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1773:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1786:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1786:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1786:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1786:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let append obnx"; BASILYS_LOCATION("warmelt-genobj.melt:1786:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:1786:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1786:/ apply.arg"); argtab[3].bp_long = 1786; /*_.DEBUG_MSG_FUN__V38*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1786:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1786:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1786:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.OBNX__V19*/ curfptr[17])); BASILYS_LOCATION("warmelt-genobj.melt:1784:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1773:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[28] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1790:/ cond"); /*cond*/ if (/*_.OBVA__V14*/ curfptr[13]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1790:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1790:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1791:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1791:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1791:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[6])), (2), "CLASS_OBJCLEAR");/*_.INST__V40*/ curfptr[26] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1791:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[26]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1791:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[26]), (1), (/*_.OBVA__V14*/ curfptr[13]), "OCLR_VLOC"); ; /*_.OBCL__V39*/ curfptr[24] = /*_.INST__V40*/ curfptr[26];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OEPIL*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.OBCL__V39*/ curfptr[24])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1791:/ clear"); /*clear*/ /*_.OBCL__V39*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1765:/ clear"); /*clear*/ /*_.OBNX__V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1765:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1765:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1765:/ clear"); /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1758:/ clear"); /*clear*/ /*_.BDER__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1758:/ clear"); /*clear*/ /*_.CTY__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1758:/ clear"); /*clear*/ /*_.NEXP__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1758:/ clear"); /*clear*/ /*_.OBVA__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1758:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1758:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1753:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1753:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_44_LAMBDA_*/ static basilys_ptr_t rout_45_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_45_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1802:/ getarg"); /*_.BDYCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1802:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1802:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1803:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1803:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1803:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1803:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let body loc"; BASILYS_LOCATION("warmelt-genobj.melt:1803:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1803:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1803:/ apply.arg"); argtab[3].bp_long = 1803; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1803:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1803:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1803:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1804:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1804:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1804:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1804:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let body bdycomp"; BASILYS_LOCATION("warmelt-genobj.melt:1804:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1804:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1804:/ apply.arg"); argtab[3].bp_long = 1804; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BDYCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1804:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1804:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1804:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1805:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1805:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1805:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]); /*_.OBJCOMP__V7*/ curfptr[5] = basilysgc_send((basilys_ptr_t)(/*_.BDYCOMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1807:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1807:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1807:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1807:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let body objcomp"; BASILYS_LOCATION("warmelt-genobj.melt:1807:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1807:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1807:/ apply.arg"); argtab[3].bp_long = 1807; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBJCOMP__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1807:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1807:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1807:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L5*/ curfnum[1] = ((/*_.OBJCOMP__V7*/ curfptr[5]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1810:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1810:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1810:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1810:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBJCOMP__V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:1810:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V10*/ curfptr[8] = /*_.RETURN___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1810:/ clear"); /*clear*/ /*_.RETURN___V11*/ curfptr[10] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1810:/ cond.else"); /*_.IF___V10*/ curfptr[8] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.OBJCOMP__V7*/ curfptr[5])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1805:/ clear"); /*clear*/ /*_.OBJCOMP__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1805:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1805:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1805:/ clear"); /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1802:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1802:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_45_LAMBDA_*/ static basilys_ptr_t rout_46_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_46_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1816:/ getarg"); /*_.OBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1816:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1816:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1817:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1817:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1817:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1817:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let dispose loc"; BASILYS_LOCATION("warmelt-genobj.melt:1817:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1817:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1817:/ apply.arg"); argtab[3].bp_long = 1817; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1817:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1817:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1817:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1818:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1818:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1818:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1818:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_let disposing obnd"; BASILYS_LOCATION("warmelt-genobj.melt:1818:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1818:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1818:/ apply.arg"); argtab[3].bp_long = 1818; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1818:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1818:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1818:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1819:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1819:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]); /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1816:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1816:/ clear"); /*clear*/ /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_46_LAMBDA_*/ static basilys_ptr_t rout_47_COMPILOBJ_NREP_CITERATION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_47_COMPILOBJ_NREP_CITERATION_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 78 void* varptr[78]; #define CURFRAM_NBVARNUM 17 long varnum[17]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<78; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 78; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_CITERATION", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1831:/ getarg"); /*_.NCITER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1831:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1831:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1832:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1832:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1832:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1832:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1832:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1832:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nciter"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1832)?(1832):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1832:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1832:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1832:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1833:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1833:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1833:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1833:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1833:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1833:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1833)?(1833):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1833:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1833:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1833:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1834:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1834:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1834:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1834:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration nciter"; BASILYS_LOCATION("warmelt-genobj.melt:1834:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1834:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1834:/ apply.arg"); argtab[3].bp_long = 1834; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1834:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1834:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1834:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1835:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1836:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OBROUT__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1837:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 1, "NCITER_CITERATOR");/*_.CITER__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1838:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 6, "NCITER_LOCBINDINGS");/*_.NLOCBIND__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1839:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 2, "NCITER_CHUNKBEFORE");/*_.NCHKBEF__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1840:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1840:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 5, "NCITER_STATOCC");/*_.NS__V17*/ curfptr[16] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1841:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1841:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NS__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1841:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1841:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1841:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1841:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nstatocc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1841)?(1841):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1841:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1841:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1841:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1842:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1842:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1842:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1842:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration nstatocc"; BASILYS_LOCATION("warmelt-genobj.melt:1842:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1842:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1842:/ apply.arg"); argtab[3].bp_long = 1842; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1842:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1842:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1842:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V16*/ curfptr[15] = /*_.NS__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1840:/ clear"); /*clear*/ /*_.NS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1840:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1840:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;} ; /*_.NSTATOCC__V22*/ curfptr[20] = /*_.LET___V16*/ curfptr[15];; BASILYS_LOCATION("warmelt-genobj.melt:1844:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 4, "NCITER_BODY");/*_.NBODY__V23*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1845:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 7, "NCITER_BODBINDINGS");/*_.NBODBIND__V24*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1846:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 3, "NCITER_CHUNKAFTER");/*_.NCHKAFT__V25*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1847:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1847:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]), 3, "NOCC_BIND");/*_.BI__V27*/ curfptr[26] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1848:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1848:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BI__V27*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:1848:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1848:/ cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1848:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1848:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nstatbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1848)?(1848):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1848:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1848:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1848:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V26*/ curfptr[25] = /*_.BI__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1847:/ clear"); /*clear*/ /*_.BI__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1847:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;} ; /*_.NSTATBIND__V30*/ curfptr[28] = /*_.LET___V26*/ curfptr[25];; BASILYS_LOCATION("warmelt-genobj.melt:1850:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSTATBIND__V30*/ curfptr[28]), 0, "BINDER");/*_.NSTATSY__V31*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1851:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V32*/ curfptr[27] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1851:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1851:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NSTATSY__V31*/ curfptr[26]; BASILYS_LOCATION("warmelt-genobj.melt:1851:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NOCC_CTYP__V32*/ curfptr[27]; /*_.OSTAT__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OBODL__V34*/ curfptr[33] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_.OEPIL__V35*/ curfptr[34] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1854:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ curfrout->tabval[7])), (6), "CLASS_OBJCITERBLOCK");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OBODL__V34*/ curfptr[33]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.OEPIL__V35*/ curfptr[34]), "OBLO_EPIL"); ; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (3), (/*_.CITER__V13*/ curfptr[12]), "OBCITER_CITER"); ; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (4), ((/*nil*/NULL)), "OBCITER_BEFORE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), ((/*nil*/NULL)), "OBCITER_AFTER"); ; /*_.OCBLOCK__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1862:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V38*/ curfptr[37] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1864:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1864:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1864:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1864:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration nlocbind"; BASILYS_LOCATION("warmelt-genobj.melt:1864:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1864:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1864:/ apply.arg"); argtab[3].bp_long = 1864; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1864:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1864:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1864:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1865:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1865:/ block"); /*block*/{ /*_#IS_A__L8*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CITER__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-genobj.melt:1865:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1865:/ cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1865:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1865:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check citer"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1865)?(1865):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1865:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1865:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1865:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1866:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1866:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L9*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-genobj.melt:1866:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1866:/ cond.then"); /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1866:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1866:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check locmap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1866)?(1866):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1866:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1866:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1866:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1867:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1867:/ block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0] = ((/*_.NLOCBIND__V14*/ curfptr[13]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-genobj.melt:1867:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1867:/ cond.then"); /*_.IFELSE___V46*/ curfptr[45] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1867:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1867:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nlocbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1867)?(1867):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V45*/ curfptr[43] = /*_.IFELSE___V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1867:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1867:/ clear"); /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1867:/ cppif.else"); /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1870:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V48*/ curfptr[47] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_15*/ curfrout->tabval[15])), (4)); ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[1] = (basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[2] = (basilys_ptr_t)(/*_.OEPIL__V35*/ curfptr[34]); ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[3] = (basilys_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37]); ; /*_.LAMBDA___V47*/ curfptr[45] = /*_.LAMBDA___V48*/ curfptr[47];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1868:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1868:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V47*/ curfptr[45]; /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1889:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1889:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1889:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1889:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration ocblock start"; BASILYS_LOCATION("warmelt-genobj.melt:1889:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1889:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1889:/ apply.arg"); argtab[3].bp_long = 1889; /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1889:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1889:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1889:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1890:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBROUT__V12*/ curfptr[11]), 8, "OBROUT_CNTCITER");/*_.BOXCNTCITER__V52*/ curfptr[50] = slot; }; ; /*_#GET_INT__L12*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.BOXCNTCITER__V52*/ curfptr[50])));; /*_#CNT__L13*/ curfnum[12] = ((1) + (/*_#GET_INT__L12*/ curfnum[0]));; BASILYS_LOCATION("warmelt-genobj.melt:1893:/ block"); /*block*/{ /*_.SBU__V54*/ curfptr[53] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[16])), (char*)0);; basilys_put_int((basilys_ptr_t)(/*_.BOXCNTCITER__V52*/ curfptr[50]), (/*_#CNT__L13*/ curfnum[12])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBU__V54*/ curfptr[53]), ( "cit")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.SBU__V54*/ curfptr[53]), (/*_#CNT__L13*/ curfnum[12])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBU__V54*/ curfptr[53]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:1898:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSTATSY__V31*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[54] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.SBU__V54*/ curfptr[53]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[54]))); /*_.STRBUF2STRING__V56*/ curfptr[55] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[17])), basilys_strbuf_str((basilys_ptr_t)(/*_.SBU__V54*/ curfptr[53]))));; /*_.LET___V53*/ curfptr[52] = /*_.STRBUF2STRING__V56*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1893:/ clear"); /*clear*/ /*_.SBU__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1893:/ clear"); /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1893:/ clear"); /*clear*/ /*_.STRBUF2STRING__V56*/ curfptr[55] = 0 ;} ; /*_.STATSTR__V57*/ curfptr[53] = /*_.LET___V53*/ curfptr[52];; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1906:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[55] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[0] = (basilys_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[1] = (basilys_ptr_t)(/*_.STATSTR__V57*/ curfptr[53]); ; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[2] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V58*/ curfptr[54] = /*_.LAMBDA___V59*/ curfptr[55];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1904:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1904:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[54]; /*_.MULTIPLE_MAP__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCHKBEF__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1918:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V62*/ curfptr[61] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[0] = (basilys_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[1] = (basilys_ptr_t)(/*_.STATSTR__V57*/ curfptr[53]); ; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[2] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V61*/ curfptr[60] = /*_.LAMBDA___V62*/ curfptr[61];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1916:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1916:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V61*/ curfptr[60]; /*_.MULTIPLE_MAP__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCHKAFT__V25*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1902:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1902:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]))));basilys_putfield_object((/*_.OCBLOCK__V36*/ curfptr[35]), (4), (/*_.MULTIPLE_MAP__V60*/ curfptr[59]), "OBCITER_BEFORE"); ; BASILYS_LOCATION("warmelt-genobj.melt:1902:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]))));basilys_putfield_object((/*_.OCBLOCK__V36*/ curfptr[35]), (5), (/*_.MULTIPLE_MAP__V63*/ curfptr[62]), "OBCITER_AFTER"); ; BASILYS_LOCATION("warmelt-genobj.melt:1902:/ touch"); basilysgc_touch(/*_.OCBLOCK__V36*/ curfptr[35]); ; /*epilog*/} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.BOXCNTCITER__V52*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_#CNT__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.STATSTR__V57*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.LAMBDA___V58*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.MULTIPLE_MAP__V60*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.LAMBDA___V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1890:/ clear"); /*clear*/ /*_.MULTIPLE_MAP__V63*/ curfptr[62] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1930:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1930:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1930:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1930:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration ocblock filled before&after chunks"; BASILYS_LOCATION("warmelt-genobj.melt:1930:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1930:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1930:/ apply.arg"); argtab[3].bp_long = 1930; /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V64*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1930:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1930:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1930:/ cppif.else"); /*_.IFCPP___V64*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1931:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1931:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L15*/ curfnum[12] = ((/*_.NBODBIND__V24*/ curfptr[17]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBODBIND__V24*/ curfptr[17])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-genobj.melt:1931:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L15*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1931:/ cond.then"); /*_.IFELSE___V67*/ curfptr[54] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1931:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1931:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbodbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1931)?(1931):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V67*/ curfptr[54] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V66*/ curfptr[53] = /*_.IFELSE___V67*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1931:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L15*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1931:/ clear"); /*clear*/ /*_.IFELSE___V67*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1931:/ cppif.else"); /*_.IFCPP___V66*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1934:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V69*/ curfptr[60] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_33*/ curfrout->tabval[33])), (5)); ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[1] = (basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[2] = (basilys_ptr_t)(/*_.OEPIL__V35*/ curfptr[34]); ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[3] = (basilys_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37]); ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[4] = (basilys_ptr_t)(/*_.OBODL__V34*/ curfptr[33]); ; /*_.LAMBDA___V68*/ curfptr[59] = /*_.LAMBDA___V69*/ curfptr[60];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1932:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1932:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V68*/ curfptr[59]; /*_.LIST_EVERY__V70*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[25])), (basilys_ptr_t)(/*_.NBODBIND__V24*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1969:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1969:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1969:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1969:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration nbody"; BASILYS_LOCATION("warmelt-genobj.melt:1969:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1969:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1969:/ apply.arg"); argtab[3].bp_long = 1969; /*_.DEBUG_MSG_FUN__V72*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NBODY__V23*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V71*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1969:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1969:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1969:/ cppif.else"); /*_.IFCPP___V71*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1972:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1972:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V74*/ curfptr[73] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_36*/ curfrout->tabval[36])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:1972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V74*/ curfptr[73])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V74*/ curfptr[73]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V74*/ curfptr[73])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:1972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V74*/ curfptr[73])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V74*/ curfptr[73]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V74*/ curfptr[73])->tabval[1] = (basilys_ptr_t)(/*_.OBODL__V34*/ curfptr[33]); ; /*_.LAMBDA___V73*/ curfptr[54] = /*_.LAMBDA___V74*/ curfptr[73];;} ; BASILYS_LOCATION("warmelt-genobj.melt:1970:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1970:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V73*/ curfptr[54]; /*_.MULTIPLE_EVERY__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NBODY__V23*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1979:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1979:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1979:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1979:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration final ocblock"; BASILYS_LOCATION("warmelt-genobj.melt:1979:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[12]; BASILYS_LOCATION("warmelt-genobj.melt:1979:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1979:/ apply.arg"); argtab[3].bp_long = 1979; /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V76*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1979:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1979:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1979:/ cppif.else"); /*_.IFCPP___V76*/ curfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1980:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OCBLOCK__V36*/ curfptr[35];; BASILYS_LOCATION("warmelt-genobj.melt:1980:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V78*/ curfptr[76];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.OBROUT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.CITER__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NLOCBIND__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NCHKBEF__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NSTATOCC__V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NBODY__V23*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NBODBIND__V24*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NCHKAFT__V25*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NSTATBIND__V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NSTATSY__V31*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.NOCC_CTYP__V32*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.OSTAT__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.OBODL__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.OEPIL__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.OCBLOCK__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LOCMAP__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LAMBDA___V47*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V66*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LAMBDA___V68*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LIST_EVERY__V70*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V71*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.LAMBDA___V73*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V75*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.IFCPP___V76*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1835:/ clear"); /*clear*/ /*_.RETURN___V78*/ curfptr[76] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1831:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1831:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1831:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1831:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1831:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1831:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_CITERATION", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_47_COMPILOBJ_NREP_CITERATION*/ static basilys_ptr_t rout_48_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_48_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1870:/ getarg"); /*_.NLBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1870:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1870:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1871:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1871:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1871:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1871:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration current nlocbinding nlbnd"; BASILYS_LOCATION("warmelt-genobj.melt:1871:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1871:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1871:/ apply.arg"); argtab[3].bp_long = 1871; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1871:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1871:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1871:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1872:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1872:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1872:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1872:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1872:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1872:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nlbnd in compilobj_nrep_citeration"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1872)?(1872):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1872:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1872:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1872:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1873:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1874:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1875:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1876:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1876:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BDER__V8*/ curfptr[7]; BASILYS_LOCATION("warmelt-genobj.melt:1876:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CTY__V9*/ curfptr[8]; /*_.OBLVA__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1878:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1878:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1878:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1878:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration current local binder"; BASILYS_LOCATION("warmelt-genobj.melt:1878:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1878:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1878:/ apply.arg"); argtab[3].bp_long = 1878; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BDER__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1878:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1878:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1878:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1879:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1879:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1879:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1879:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration current oblva"; BASILYS_LOCATION("warmelt-genobj.melt:1879:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1879:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1879:/ apply.arg"); argtab[3].bp_long = 1879; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBLVA__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1879:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1879:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1879:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L6*/ curfnum[1] = ((/*_.CTY__V9*/ curfptr[8]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1880:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1880:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1880:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1881:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1881:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1881:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[4])), (2), "CLASS_OBJCLEAR");/*_.INST__V19*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1881:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), ((/*~LOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1881:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.OBLVA__V11*/ curfptr[10]), "OCLR_VLOC"); ; /*_.OCLR__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OEPIL*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.OCLR__V18*/ curfptr[17])); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[3])), (basilysobject_ptr_t) (/*_.NLBND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBLVA__V11*/ curfptr[10])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1886:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1886:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1886:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1886:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration added clear for nlbnd"; BASILYS_LOCATION("warmelt-genobj.melt:1886:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:1886:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1886:/ apply.arg"); argtab[3].bp_long = 1886; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1886:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1886:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1886:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V17*/ curfptr[16] = /*_.IFCPP___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1881:/ clear"); /*clear*/ /*_.OCLR__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1881:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;} ; /*_.IF___V16*/ curfptr[14] = /*_.LET___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1880:/ clear"); /*clear*/ /*_.LET___V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1880:/ cond.else"); /*_.IF___V16*/ curfptr[14] = NULL;; } ; /*_.LET___V7*/ curfptr[5] = /*_.IF___V16*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.NEXP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.OBLVA__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_#__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1873:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1870:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1870:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_48_LAMBDA_*/ static basilys_ptr_t rout_49_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_49_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1906:/ getarg"); /*_.CBEF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1906:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1906:/ block"); /*block*/{ /*_#IS_STRING__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.CBEF__V2*/ curfptr[1])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:1908:/ cond"); /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1908:/ cond.then"); /*_.IFELSE___V3*/ curfptr[2] = /*_.CBEF__V2*/ curfptr[1];; } else {BASILYS_LOCATION("warmelt-genobj.melt:1908:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1908:/ block"); /*block*/{ /*_#__L3*/ curfnum[2] = ((/*_.CBEF__V2*/ curfptr[1]) == ((/*~NSTATOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1909:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1909:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*~STATSTR*/ curfclos->tabval[1]);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1909:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1909:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1911:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1911:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1911:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1911:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration cbef"; BASILYS_LOCATION("warmelt-genobj.melt:1911:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:1911:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1911:/ apply.arg"); argtab[3].bp_long = 1911; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CBEF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1911:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1911:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1911:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1912:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1912:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1912:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]); /*_.OBEF__V8*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.CBEF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1913:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1913:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1913:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1913:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration obef"; BASILYS_LOCATION("warmelt-genobj.melt:1913:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:1913:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1913:/ apply.arg"); argtab[3].bp_long = 1913; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBEF__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1913:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1913:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1913:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V7*/ curfptr[5] = /*_.OBEF__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1912:/ clear"); /*clear*/ /*_.OBEF__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1912:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1910:/ block"); /*block*/{ /*_.PROGN___V11*/ curfptr[9] = /*_.LET___V7*/ curfptr[5];;} ; /*_.IFELSE___V4*/ curfptr[3] = /*_.PROGN___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1909:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1909:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1909:/ clear"); /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;} ; } ; /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1908:/ clear"); /*clear*/ /*_#__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1908:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1906:/ clear"); /*clear*/ /*_#IS_STRING__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1906:/ clear"); /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_49_LAMBDA_*/ static basilys_ptr_t rout_50_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_50_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1918:/ getarg"); /*_.CAFT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1918:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1918:/ block"); /*block*/{ /*_#IS_STRING__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.CAFT__V2*/ curfptr[1])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:1920:/ cond"); /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1920:/ cond.then"); /*_.IFELSE___V3*/ curfptr[2] = /*_.CAFT__V2*/ curfptr[1];; } else {BASILYS_LOCATION("warmelt-genobj.melt:1920:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1920:/ block"); /*block*/{ /*_#__L3*/ curfnum[2] = ((/*_.CAFT__V2*/ curfptr[1]) == ((/*~NSTATOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1921:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1921:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*~STATSTR*/ curfclos->tabval[1]);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1921:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1921:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1923:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1923:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1923:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1923:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration caft"; BASILYS_LOCATION("warmelt-genobj.melt:1923:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:1923:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1923:/ apply.arg"); argtab[3].bp_long = 1923; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CAFT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1923:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1923:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1923:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1924:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1924:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1924:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]); /*_.OAFT__V8*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.CAFT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1925:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1925:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1925:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1925:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration oaft"; BASILYS_LOCATION("warmelt-genobj.melt:1925:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:1925:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1925:/ apply.arg"); argtab[3].bp_long = 1925; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OAFT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1925:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1925:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1925:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V7*/ curfptr[5] = /*_.OAFT__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1924:/ clear"); /*clear*/ /*_.OAFT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1924:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1922:/ block"); /*block*/{ /*_.PROGN___V11*/ curfptr[9] = /*_.LET___V7*/ curfptr[5];;} ; /*_.IFELSE___V4*/ curfptr[3] = /*_.PROGN___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1921:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1921:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1921:/ clear"); /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;} ; } ; /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1920:/ clear"); /*clear*/ /*_#__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1920:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1918:/ clear"); /*clear*/ /*_#IS_STRING__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1918:/ clear"); /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_50_LAMBDA_*/ static basilys_ptr_t rout_51_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_51_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1934:/ getarg"); /*_.NBBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1934:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1934:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1935:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1935:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1935:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1935:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration current nbodbinding nbbnd"; BASILYS_LOCATION("warmelt-genobj.melt:1935:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1935:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1935:/ apply.arg"); argtab[3].bp_long = 1935; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1935:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1935:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1935:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1936:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1936:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1936:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1936:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1936:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1936:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbbnd in compilobj_nrep_citeration"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1936)?(1936):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1936:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1936:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1936:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1937:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1938:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1939:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1940:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1940:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BDER__V7*/ curfptr[5]; BASILYS_LOCATION("warmelt-genobj.melt:1940:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CTY__V8*/ curfptr[7]; /*_.OBBVA__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1942:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1942:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1942:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1942:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration current obbva"; BASILYS_LOCATION("warmelt-genobj.melt:1942:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1942:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1942:/ apply.arg"); argtab[3].bp_long = 1942; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1942:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1942:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1942:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L5*/ curfnum[1] = ((/*_.CTY__V8*/ curfptr[7]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1943:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1943:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1943:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1944:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1944:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1944:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[4])), (2), "CLASS_OBJCLEAR");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1944:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), ((/*~LOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:1944:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.OBBVA__V10*/ curfptr[9]), "OCLR_VLOC"); ; /*_.OCLR__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OEPIL*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.OCLR__V15*/ curfptr[14])); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[3])), (basilysobject_ptr_t) (/*_.NBBND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBBVA__V10*/ curfptr[9])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1950:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1950:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1950:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1950:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration added clear for obbva"; BASILYS_LOCATION("warmelt-genobj.melt:1950:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:1950:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1950:/ apply.arg"); argtab[3].bp_long = 1950; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1950:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1950:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1950:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V14*/ curfptr[13] = /*_.IFCPP___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1944:/ clear"); /*clear*/ /*_.OCLR__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1944:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;} ; /*_.IF___V13*/ curfptr[11] = /*_.LET___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1943:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1943:/ cond.else"); /*_.IF___V13*/ curfptr[11] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:1953:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1953:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1953:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OCUR__V19*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.NEXP__V9*/ curfptr[8]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1954:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1954:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1954:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1954:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration raw ocur"; BASILYS_LOCATION("warmelt-genobj.melt:1954:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:1954:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1954:/ apply.arg"); argtab[3].bp_long = 1954; /*_.DEBUG_MSG_FUN__V21*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1954:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1954:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1954:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L8*/ curfnum[5] = ((/*_.CTY__V8*/ curfptr[7]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:1955:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1955:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1955:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1957:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1957:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1957:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1957:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration putobjdest obbva"; BASILYS_LOCATION("warmelt-genobj.melt:1957:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:1957:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1957:/ apply.arg"); argtab[3].bp_long = 1957; /*_.DEBUG_MSG_FUN__V23*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1957:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1957:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1957:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1958:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1958:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1958:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OBBVA__V10*/ curfptr[9]; /*_.NEWOCUR__V24*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1959:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1959:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1959:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1959:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration putobjdest newocur"; BASILYS_LOCATION("warmelt-genobj.melt:1959:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:1959:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1959:/ apply.arg"); argtab[3].bp_long = 1959; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NEWOCUR__V24*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1959:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1959:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1959:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1960:/ cond"); /*cond*/ if (/*_.NEWOCUR__V24*/ curfptr[16]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1960:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1960:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.NEWOCUR__V24*/ curfptr[16])); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1960:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1960:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.OCUR__V19*/ curfptr[17])); /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1958:/ clear"); /*clear*/ /*_.NEWOCUR__V24*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1958:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1956:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1955:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[13] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:1955:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1955:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1965:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1965:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1965:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1965:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration ocur"; BASILYS_LOCATION("warmelt-genobj.melt:1965:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:1965:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1965:/ apply.arg"); argtab[3].bp_long = 1965; /*_.DEBUG_MSG_FUN__V28*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1965:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1965:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1965:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.OCUR__V19*/ curfptr[17])); BASILYS_LOCATION("warmelt-genobj.melt:1964:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1955:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1953:/ clear"); /*clear*/ /*_.OCUR__V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1953:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1953:/ clear"); /*clear*/ /*_#__L8*/ curfnum[5] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_.BDER__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_.CTY__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_.NEXP__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_.OBBVA__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_#__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1937:/ clear"); /*clear*/ /*_.IF___V13*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1934:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1934:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_51_LAMBDA_*/ static basilys_ptr_t rout_52_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_52_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1972:/ getarg"); /*_.NCURBOD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1972:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1972:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1973:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1973:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1973:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1973:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration ncurbod"; BASILYS_LOCATION("warmelt-genobj.melt:1973:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1973:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1973:/ apply.arg"); argtab[3].bp_long = 1973; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCURBOD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1973:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1973:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1973:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1974:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1974:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1974:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OCBOD__V5*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.NCURBOD__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1975:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1975:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1975:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1975:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_citeration ocbod"; BASILYS_LOCATION("warmelt-genobj.melt:1975:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:1975:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1975:/ apply.arg"); argtab[3].bp_long = 1975; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCBOD__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1975:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1975:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1975:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.OCBOD__V5*/ curfptr[3])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1974:/ clear"); /*clear*/ /*_.OCBOD__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1974:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1972:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_52_LAMBDA_*/ static basilys_ptr_t rout_53_COMPILOBJ_NREP_SETQ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_53_COMPILOBJ_NREP_SETQ_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_SETQ", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:1988:/ getarg"); /*_.NSQ__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:1988:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:1988:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1989:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1989:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:1989:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1989:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1989:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1989:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nsq"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1989)?(1989):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1989:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1989:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1989:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1990:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1990:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:1990:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1990:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:1990:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:1990:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(1990)?(1990):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1990:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1990:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1990:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:1991:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:1991:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:1991:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1991:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_setq nsq"; BASILYS_LOCATION("warmelt-genobj.melt:1991:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:1991:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:1991:/ apply.arg"); argtab[3].bp_long = 1991; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1991:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1991:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:1991:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1992:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1993:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.VAR__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1994:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 2, "NSTQ_EXP");/*_.EXP__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1995:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1995:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.CEXP__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.EXP__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1996:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1996:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.CVAR__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.VAR__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1997:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1997:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CVAR__V15*/ curfptr[14]; /*_.CRES__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.CEXP__V14*/ curfptr[13]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CRES__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:1999:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1999:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1999:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2000:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CRES__V16*/ curfptr[15]), 0, "OBI_LOC");/*_.OBI_LOC__V17*/ curfptr[16] = slot; }; ; /*_#NULL__L5*/ curfnum[4] = ((/*_.OBI_LOC__V17*/ curfptr[16]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:1999:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:1999:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:1999:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2001:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2001:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CRES__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.CRES__V16*/ curfptr[15]))));basilys_putfield_object((/*_.CRES__V16*/ curfptr[15]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2001:/ touch"); basilysgc_touch(/*_.CRES__V16*/ curfptr[15]); ; /*epilog*/} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1999:/ clear"); /*clear*/ /*_.OBI_LOC__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1999:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2002:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2002:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2002:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2002:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_setq cres"; BASILYS_LOCATION("warmelt-genobj.melt:2002:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:2002:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2002:/ apply.arg"); argtab[3].bp_long = 2002; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CRES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2002:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2002:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2002:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.CRES__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.VAR__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.EXP__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.CEXP__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.CVAR__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.CRES__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1992:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:1988:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:1988:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:1988:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1988:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1988:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:1988:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_SETQ", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_53_COMPILOBJ_NREP_SETQ*/ static basilys_ptr_t rout_54_COMPILOBJ_NREP_PROGN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_54_COMPILOBJ_NREP_PROGN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 23 void* varptr[23]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<23; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 23; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_PROGN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2010:/ getarg"); /*_.NPRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2010:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2010:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2011:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2011:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_PROGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2011:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2011:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2011:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2011:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2011)?(2011):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2011:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2011:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2011:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2012:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2012:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2012:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2012:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2012:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2012:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2012)?(2012):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2012:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2012:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2012:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2013:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2013:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2013:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2013:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_progn npro"; BASILYS_LOCATION("warmelt-genobj.melt:2013:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2013:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2013:/ apply.arg"); argtab[3].bp_long = 2013; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2013:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2013:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2013:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2014:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2015:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 1, "NPROGN_SEQ");/*_.NSEQ__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2016:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 2, "NPROGN_LAST");/*_.NLAST__V13*/ curfptr[12] = slot; }; ; /*_.BODYL__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:2018:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2018:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2018:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2018:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.BODYL__V14*/ curfptr[13]), "OBLO_BODYL"); ; /*_.OBLOCK__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2026:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2026:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:2026:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:2026:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (basilys_ptr_t)(/*_.BODYL__V14*/ curfptr[13]); ; /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2024:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2024:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16]; /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NSEQ__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2030:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2030:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2030:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OLAST__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NLAST__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[8])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.BODYL__V14*/ curfptr[13]), (basilys_ptr_t)(/*_.OLAST__V20*/ curfptr[19])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2030:/ clear"); /*clear*/ /*_.OLAST__V20*/ curfptr[19] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2032:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2032:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2032:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2032:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_progn oblock"; BASILYS_LOCATION("warmelt-genobj.melt:2032:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2032:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2032:/ apply.arg"); argtab[3].bp_long = 2032; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOCK__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2032:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2032:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2032:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2033:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V15*/ curfptr[14];; BASILYS_LOCATION("warmelt-genobj.melt:2033:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.NSEQ__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.NLAST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.BODYL__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.OBLOCK__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2014:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2010:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2010:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2010:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2010:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2010:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2010:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_PROGN", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_54_COMPILOBJ_NREP_PROGN*/ static basilys_ptr_t rout_55_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_55_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2026:/ getarg"); /*_.NCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2026:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2026:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2027:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2027:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2027:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OCOMP__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.NCOMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)((/*~BODYL*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.OCOMP__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2027:/ clear"); /*clear*/ /*_.OCOMP__V3*/ curfptr[2] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_55_LAMBDA_*/ static basilys_ptr_t rout_56_COMPILOBJ_NREP_MULTACC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_56_COMPILOBJ_NREP_MULTACC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_MULTACC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2038:/ getarg"); /*_.NMA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2038:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2038:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2039:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2039:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2039:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2039:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2039:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2039:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2039)?(2039):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2039:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2039:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2039:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2040:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2040:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2040:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2040:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2040:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2040:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2040)?(2040):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2040:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2040:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2040:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2041:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2041:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2041:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2041:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multacc nma"; BASILYS_LOCATION("warmelt-genobj.melt:2041:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2041:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2041:/ apply.arg"); argtab[3].bp_long = 2041; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2041:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2041:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2041:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2042:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2043:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 1, "NACCM_MUL");/*_.MUL__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2044:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 2, "NACCM_IX");/*_.IX__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2045:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2045:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.CMUL__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.MUL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2049:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2049:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (basilys_ptr_t)(/*_.CMUL__V14*/ curfptr[13]); ; BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (basilys_ptr_t)(/*_.IX__V13*/ curfptr[12]); ; /*_.MAKECOMPUTE__V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2070:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2070:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2070:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2070:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multacc cmul"; BASILYS_LOCATION("warmelt-genobj.melt:2070:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2070:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2070:/ apply.arg"); argtab[3].bp_long = 2070; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2070:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2070:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2070:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2071:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2071:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2071:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2071:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multacc again nma"; BASILYS_LOCATION("warmelt-genobj.melt:2071:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2071:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2071:/ apply.arg"); argtab[3].bp_long = 2071; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2071:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2071:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2071:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[10])));; BASILYS_LOCATION("warmelt-genobj.melt:2072:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2072:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2072:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.IX__V13*/ curfptr[12])) == OBMAG_INT);; /*_#IF___L7*/ curfnum[6] = /*_#IS_INTEGERBOX__L8*/ curfnum[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2072:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2072:/ cond.else"); /*_#IF___L7*/ curfnum[6] = 0;; } ; BASILYS_LOCATION("warmelt-genobj.melt:2072:/ cond"); /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2072:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2072:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2075:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2075:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), 5, "OIM_TUPVAL");/*_.COMPTUP__V23*/ curfptr[22] = slot; }; ; /*_#IS_MULTIPLE__L9*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.COMPTUP__V23*/ curfptr[22])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-genobj.melt:2076:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2076:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2076:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2077:/ block"); /*block*/{ /*_#GET_INT__L10*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)(/*_.IX__V13*/ curfptr[12])));; /*_.CURVAL__V26*/ curfptr[25] = (basilys_multiple_nth((basilys_ptr_t)(/*_.COMPTUP__V23*/ curfptr[22]), (/*_#GET_INT__L10*/ curfnum[9])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2080:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2080:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2080:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2080:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multacc returning curval"; BASILYS_LOCATION("warmelt-genobj.melt:2080:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:2080:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2080:/ apply.arg"); argtab[3].bp_long = 2080; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURVAL__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2080:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2080:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2080:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2081:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CURVAL__V26*/ curfptr[25];; BASILYS_LOCATION("warmelt-genobj.melt:2081:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V29*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2077:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2077:/ clear"); /*clear*/ /*_.CURVAL__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2077:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2077:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[27] = 0 ;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2076:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2076:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2076:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2083:/ apply"); /*apply*/{ /*_.MAKECOMPUTE__V30*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)(/*_.MAKECOMPUTE__V15*/ curfptr[14]), (basilys_ptr_t)(NULL), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V24*/ curfptr[23] = /*_.MAKECOMPUTE__V30*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2076:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V30*/ curfptr[25] = 0 ;} ; } ; /*_.LET___V22*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2075:/ clear"); /*clear*/ /*_.COMPTUP__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2075:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2075:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2072:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2072:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2072:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2085:/ apply"); /*apply*/{ /*_.MAKECOMPUTE__V31*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.MAKECOMPUTE__V15*/ curfptr[14]), (basilys_ptr_t)(NULL), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V21*/ curfptr[19] = /*_.MAKECOMPUTE__V31*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2072:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V31*/ curfptr[26] = 0 ;} ; } ; /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.MUL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.IX__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.CMUL__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2042:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2038:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2038:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2038:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2038:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2038:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2038:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_MULTACC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_56_COMPILOBJ_NREP_MULTACC*/ static basilys_ptr_t rout_57_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_57_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2049:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2050:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), ( "/*multacc*/(basilys_multiple_nth((")));; /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), ( "), (")));; /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), ( ")))")));; /*_.TCONT__V6*/ curfptr[5] = (basilysgc_new_mult5((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V3*/ curfptr[2]), (basilys_ptr_t)((/*~CMUL*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V4*/ curfptr[3]), (basilys_ptr_t)((/*~IX*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V5*/ curfptr[4])));; BASILYS_LOCATION("warmelt-genobj.melt:2061:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2061:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[2])), (2), "CLASS_OBJEXPV");/*_.INST__V8*/ curfptr[7] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2061:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:2061:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.TCONT__V6*/ curfptr[5]), "OBX_CONT"); ; /*_.RES__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2065:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2065:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2065:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2065:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multacc makecompute res"; BASILYS_LOCATION("warmelt-genobj.melt:2065:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2065:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2065:/ apply.arg"); argtab[3].bp_long = 2065; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2065:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2065:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2065:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V2*/ curfptr[1] = /*_.RES__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2050:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2050:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2050:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2050:/ clear"); /*clear*/ /*_.TCONT__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2050:/ clear"); /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2050:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2049:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:2049:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2049:/ clear"); /*clear*/ /*_.LET___V2*/ curfptr[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_57_LAMBDA_*/ static basilys_ptr_t rout_58_COMPILOBJ_NREP_FIELDACC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_58_COMPILOBJ_NREP_FIELDACC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 42 void* varptr[42]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<42; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 42; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_FIELDACC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2090:/ getarg"); /*_.NFA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2090:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2090:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2091:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2091:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2091:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2091:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2091:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2091:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nfa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2091)?(2091):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2091:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2091:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2091:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2092:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2092:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2092:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2092:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2092:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2092:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2092)?(2092):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2092:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2092:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2092:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2093:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2093:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2093:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2093:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_fieldacc nfa"; BASILYS_LOCATION("warmelt-genobj.melt:2093:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2093:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2093:/ apply.arg"); argtab[3].bp_long = 2093; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2093:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2093:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2093:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2094:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2095:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 1, "NACCF_OBJ");/*_.OBJ__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2096:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 2, "NACCF_FLD");/*_.FLD__V13*/ curfptr[12] = slot; }; ; /*_#FLDOFF__L4*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.FLD__V13*/ curfptr[12])));; /*_.BOXFLDOFF__V14*/ curfptr[13] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#FLDOFF__L4*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2099:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2099:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.COBJ__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OBJ__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2103:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2103:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (basilys_ptr_t)(/*_.COBJ__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (basilys_ptr_t)(/*_.BOXFLDOFF__V14*/ curfptr[13]); ; /*_.MAKECOMPUTE__V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2122:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2122:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLD__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-genobj.melt:2122:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2122:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2122:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2122:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_fieldacc check fld"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2122)?(2122):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2122:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2122:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2122:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2123:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2123:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2123:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2123:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_fieldacc cobj"; BASILYS_LOCATION("warmelt-genobj.melt:2123:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:2123:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2123:/ apply.arg"); argtab[3].bp_long = 2123; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2123:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2123:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2123:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2124:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2124:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2124:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2124:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_fieldacc fld"; BASILYS_LOCATION("warmelt-genobj.melt:2124:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:2124:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2124:/ apply.arg"); argtab[3].bp_long = 2124; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.FLD__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2124:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2124:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2124:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L8*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-genobj.melt:2125:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2125:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2125:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2126:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2126:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), 2, "OIE_DATA");/*_.CDATA__V26*/ curfptr[25] = slot; }; ; /*_#IS_A__L9*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CDATA__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-genobj.melt:2128:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2128:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2128:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2129:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2129:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CDATA__V26*/ curfptr[25]), 8, "NINST_SLOTS");/*_.SLOTUP__V29*/ curfptr[28] = slot; }; ; /*_.OURSLOT__V30*/ curfptr[29] = (basilys_multiple_nth((basilys_ptr_t)(/*_.SLOTUP__V29*/ curfptr[28]), (/*_#FLDOFF__L4*/ curfnum[0])));; /*_#IS_A__L10*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.OURSLOT__V30*/ curfptr[29]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[14])));; BASILYS_LOCATION("warmelt-genobj.melt:2132:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2132:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2132:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2133:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2133:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2133:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.CSLOT__V33*/ curfptr[32] = basilysgc_send((basilys_ptr_t)(/*_.OURSLOT__V30*/ curfptr[29]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2134:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2134:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2134:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2134:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_fieldacc returning cslot"; BASILYS_LOCATION("warmelt-genobj.melt:2134:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:2134:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2134:/ apply.arg"); argtab[3].bp_long = 2134; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CSLOT__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2134:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2134:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2134:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2135:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CSLOT__V33*/ curfptr[32];; BASILYS_LOCATION("warmelt-genobj.melt:2135:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V36*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2133:/ clear"); /*clear*/ /*_.CSLOT__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2133:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2133:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.LET___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2132:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2132:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2132:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2136:/ apply"); /*apply*/{ /*_.MAKECOMPUTE__V37*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (basilys_ptr_t)(NULL), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2136:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V37*/ curfptr[32];; BASILYS_LOCATION("warmelt-genobj.melt:2136:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.RETURN___V38*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2132:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V37*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2132:/ clear"); /*clear*/ /*_.RETURN___V38*/ curfptr[33] = 0 ;} ; } ; /*_.LET___V28*/ curfptr[27] = /*_.IFELSE___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2129:/ clear"); /*clear*/ /*_.SLOTUP__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2129:/ clear"); /*clear*/ /*_.OURSLOT__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2129:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2129:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} ; /*_.IFELSE___V27*/ curfptr[26] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2128:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2128:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2128:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2137:/ apply"); /*apply*/{ /*_.MAKECOMPUTE__V39*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (basilys_ptr_t)(NULL), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2137:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V39*/ curfptr[34];; BASILYS_LOCATION("warmelt-genobj.melt:2137:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V27*/ curfptr[26] = /*_.RETURN___V40*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2128:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V39*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2128:/ clear"); /*clear*/ /*_.RETURN___V40*/ curfptr[31] = 0 ;} ; } ; /*_.LET___V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2126:/ clear"); /*clear*/ /*_.CDATA__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2126:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2126:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} ; /*_.IFELSE___V24*/ curfptr[22] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2125:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2125:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2125:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2139:/ apply"); /*apply*/{ /*_.MAKECOMPUTE__V41*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (basilys_ptr_t)(NULL), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2139:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V41*/ curfptr[32];; BASILYS_LOCATION("warmelt-genobj.melt:2139:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V24*/ curfptr[22] = /*_.RETURN___V42*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2125:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V41*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2125:/ clear"); /*clear*/ /*_.RETURN___V42*/ curfptr[33] = 0 ;} ; } ; /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V24*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.OBJ__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.FLD__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_#FLDOFF__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.BOXFLDOFF__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.COBJ__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.MAKECOMPUTE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2094:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2090:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2090:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2090:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2090:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2090:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2090:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_FIELDACC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_58_COMPILOBJ_NREP_FIELDACC*/ static basilys_ptr_t rout_59_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_59_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2103:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2104:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), ( "/*fieldacc*/(basilys_field_object((basilys_ptr_t)(")));; /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), ( "),")));; /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), ( "))")));; /*_.TCONT__V6*/ curfptr[5] = (basilysgc_new_mult5((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V3*/ curfptr[2]), (basilys_ptr_t)((/*~COBJ*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V4*/ curfptr[3]), (basilys_ptr_t)((/*~BOXFLDOFF*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V5*/ curfptr[4])));; BASILYS_LOCATION("warmelt-genobj.melt:2114:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2114:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[2])), (2), "CLASS_OBJEXPV");/*_.INST__V8*/ curfptr[7] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2114:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:2114:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.TCONT__V6*/ curfptr[5]), "OBX_CONT"); ; /*_.RES__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2118:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2118:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2118:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2118:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_fieldacc makecompute res"; BASILYS_LOCATION("warmelt-genobj.melt:2118:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2118:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2118:/ apply.arg"); argtab[3].bp_long = 2118; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2118:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2118:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2118:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V2*/ curfptr[1] = /*_.RES__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2104:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2104:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2104:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2104:/ clear"); /*clear*/ /*_.TCONT__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2104:/ clear"); /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2104:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2103:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:2103:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2103:/ clear"); /*clear*/ /*_.LET___V2*/ curfptr[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_59_LAMBDA_*/ static basilys_ptr_t rout_60_COMPILOBJ_NREP_UNSAFE_GET_FIELD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_60_COMPILOBJ_NREP_UNSAFE_GET_FIELD_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 18 void* varptr[18]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_UNSAFE_GET_FIELD", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2145:/ getarg"); /*_.NUGF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2145:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2145:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2146:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2146:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2146:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2146:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2146:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2146:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nugf"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2146)?(2146):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2146:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2146:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2146:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2147:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2147:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2147:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2147:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2147:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2147:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2147)?(2147):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2147:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2147:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2147:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2148:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2148:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2148:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2148:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_unsafe_get_field nugf"; BASILYS_LOCATION("warmelt-genobj.melt:2148:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2148:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2148:/ apply.arg"); argtab[3].bp_long = 2148; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2148:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2148:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2148:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2149:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2150:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 1, "NUGET_OBJ");/*_.NOBJ__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2151:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 2, "NUGET_FIELD");/*_.NFIELD__V13*/ curfptr[12] = slot; }; ; /*_.DLIST__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:2153:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2153:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OOBJ__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.NOBJ__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2154:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2154:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[5])), (4), "CLASS_OBJGETSLOT");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2154:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2154:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DLIST__V14*/ curfptr[13]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2154:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OOBJ__V15*/ curfptr[14]), "OGETSL_OBJ"); ; BASILYS_LOCATION("warmelt-genobj.melt:2154:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), (/*_.NFIELD__V13*/ curfptr[12]), "OGETSL_FIELD"); ; /*_.OGETSLOT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2160:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OGETSLOT__V16*/ curfptr[15];; BASILYS_LOCATION("warmelt-genobj.melt:2160:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.NOBJ__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.NFIELD__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.DLIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.OOBJ__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.OGETSLOT__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2149:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2145:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2145:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2145:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2145:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2145:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2145:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_UNSAFE_GET_FIELD", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_60_COMPILOBJ_NREP_UNSAFE_GET_FIELD*/ static basilys_ptr_t rout_61_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_61_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 24 void* varptr[24]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<24; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 24; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_UNSAFE_PUT_FIELDS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2167:/ getarg"); /*_.NUPF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2167:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2167:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2168:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2168:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2168:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2168:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2168:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2168:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nupf"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2168)?(2168):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2168:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2168:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2168:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2169:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2169:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2169:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2169:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2169:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2169:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2169)?(2169):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2169:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2169:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2169:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2170:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2170:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2170:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2170:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_unsafe_put_fields nupf"; BASILYS_LOCATION("warmelt-genobj.melt:2170:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2170:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2170:/ apply.arg"); argtab[3].bp_long = 2170; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2170:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2170:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2170:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2171:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2172:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 1, "NUPUT_OBJ");/*_.NOBJ__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2173:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 2, "NUPUT_FIELDS");/*_.NFLDASS__V13*/ curfptr[12] = slot; }; ; /*_.OBODL__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; /*_.OEPIL__V15*/ curfptr[14] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:2176:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2176:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2176:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2176:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.OBODL__V14*/ curfptr[13]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2176:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OEPIL__V15*/ curfptr[14]), "OBLO_EPIL"); ; /*_.OBLOCK__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2180:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2180:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OOBJ__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.NOBJ__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2184:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2184:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (4)); ; BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (basilys_ptr_t)(/*_.OOBJ__V18*/ curfptr[17]); ; BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[3] = (basilys_ptr_t)(/*_.OBODL__V14*/ curfptr[13]); ; /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2182:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2182:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18]; /*_.MULTIPLE_EVERY__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NFLDASS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2203:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2203:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[14])), (3), "CLASS_OBJTOUCH");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2203:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2203:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.OOBJ__V18*/ curfptr[17]), "OTOUCH_VAL"); ; /*_.INST___V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V14*/ curfptr[13]), (basilys_ptr_t)(/*_.INST___V22*/ curfptr[21])); basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V14*/ curfptr[13]), (basilys_ptr_t)(/*_.OOBJ__V18*/ curfptr[17])); BASILYS_LOCATION("warmelt-genobj.melt:2208:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V16*/ curfptr[15];; BASILYS_LOCATION("warmelt-genobj.melt:2208:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.NOBJ__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.NFLDASS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.OBODL__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.OEPIL__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.OBLOCK__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.OOBJ__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.INST___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2171:/ clear"); /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2167:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2167:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2167:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2167:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2167:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2167:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_UNSAFE_PUT_FIELDS", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_61_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS*/ static basilys_ptr_t rout_62_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_62_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 16 void* varptr[16]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2184:/ getarg"); /*_.NFA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2184:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2184:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2185:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2185:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2185:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2185:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2185:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2185:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nfa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2185)?(2185):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2185:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2185:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2185:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2186:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2186:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.ALOC__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2187:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 1, "NFLA_FIELD");/*_.AFIELD__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2188:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 2, "NFLA_VAL");/*_.AVAL__V7*/ curfptr[6] = slot; }; ; /*_#AOFF__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.AFIELD__V6*/ curfptr[5])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2191:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2191:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.AFIELD__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2191:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2191:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2191:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2191:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check afield"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2191)?(2191):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2191:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2191:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2191:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2192:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2193:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2193:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OVAL__V10*/ curfptr[8] = basilysgc_send((basilys_ptr_t)(/*_.AVAL__V7*/ curfptr[6]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2195:/ cond"); /*cond*/ if (/*_.ALOC__V5*/ curfptr[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2195:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = /*_.ALOC__V5*/ curfptr[3];; } else {BASILYS_LOCATION("warmelt-genobj.melt:2195:/ cond.else"); /*_.IFELSE___V11*/ curfptr[10] = (/*~LOC*/ curfclos->tabval[1]);; } ; /*_.MAKE_INTEGERBOX__V12*/ curfptr[11] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#AOFF__L3*/ curfnum[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2194:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2194:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[3])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V14*/ curfptr[13] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (0), (/*_.IFELSE___V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), ((/*~OOBJ*/ curfclos->tabval[2])), "OSLOT_ODATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:2194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), (/*_.AFIELD__V6*/ curfptr[5]), "OSLOT_FIELD"); ; BASILYS_LOCATION("warmelt-genobj.melt:2194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), (/*_.MAKE_INTEGERBOX__V12*/ curfptr[11]), "OSLOT_OFFSET"); ; BASILYS_LOCATION("warmelt-genobj.melt:2194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V14*/ curfptr[13]))));basilys_putfield_object((/*_.INST__V14*/ curfptr[13]), (4), (/*_.OVAL__V10*/ curfptr[8]), "OSLOT_VALUE"); ; /*_.OPUF__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2200:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2200:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.OVAL__V10*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[5])));; /*_#NOT__L6*/ curfnum[5] = (!(/*_#IS_A__L5*/ curfnum[3]));; BASILYS_LOCATION("warmelt-genobj.melt:2200:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2200:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2200:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2200:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_unsafe_put_fields check oval not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2200)?(2200):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2200:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2200:/ clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2200:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2200:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.OPUF__V13*/ curfptr[12])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2192:/ clear"); /*clear*/ /*_.OVAL__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2192:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2192:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2192:/ clear"); /*clear*/ /*_.OPUF__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2192:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2186:/ clear"); /*clear*/ /*_.ALOC__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2186:/ clear"); /*clear*/ /*_.AFIELD__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2186:/ clear"); /*clear*/ /*_.AVAL__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2186:/ clear"); /*clear*/ /*_#AOFF__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2186:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2184:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_62_LAMBDA_*/ static basilys_ptr_t rout_63_COMPILOBJ_NREP_APPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_63_COMPILOBJ_NREP_APPLY_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 23 void* varptr[23]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<23; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 23; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_APPLY", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2213:/ getarg"); /*_.NAPP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2213:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2213:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2214:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2214:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2214:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2214:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2214:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2214:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check napp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2214)?(2214):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2214:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2214:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2214:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2215:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2215:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2215:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2215:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2215:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2215:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2215)?(2215):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2215:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2215:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2215:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2216:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2216:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2217:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 1, "NAPP_FUN");/*_.FUN__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2218:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 2, "NAPP_ARGS");/*_.ARGS__V11*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2220:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2220:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2220:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2220:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_apply napp"; BASILYS_LOCATION("warmelt-genobj.melt:2220:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2220:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2220:/ apply.arg"); argtab[3].bp_long = 2220; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2220:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2220:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2220:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2221:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2221:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2221:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OCLOS__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.FUN__V10*/ curfptr[9]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2224:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2224:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2224:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2222:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2222:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.OARGS__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ARGS__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.DLIST__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-genobj.melt:2231:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2231:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[9])), (4), "CLASS_OBJAPPLY");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.DLIST__V19*/ curfptr[18]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.OCLOS__V15*/ curfptr[14]), "OBAPP_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:2231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.OARGS__V18*/ curfptr[17]), "OBAPP_ARGS"); ; /*_.OAPP__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2238:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2238:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2238:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2238:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_apply return oapp"; BASILYS_LOCATION("warmelt-genobj.melt:2238:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2238:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2238:/ apply.arg"); argtab[3].bp_long = 2238; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OAPP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2238:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2238:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2238:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V14*/ curfptr[12] = /*_.OAPP__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2221:/ clear"); /*clear*/ /*_.OCLOS__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2221:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2221:/ clear"); /*clear*/ /*_.OARGS__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2221:/ clear"); /*clear*/ /*_.DLIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2221:/ clear"); /*clear*/ /*_.OAPP__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2221:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.LET___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2216:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2216:/ clear"); /*clear*/ /*_.FUN__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2216:/ clear"); /*clear*/ /*_.ARGS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2216:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2216:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2213:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:2213:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2213:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2213:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2213:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_APPLY", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_63_COMPILOBJ_NREP_APPLY*/ static basilys_ptr_t rout_64_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_64_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2224:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2224:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2224:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2225:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2225:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2225:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OCOMP__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2226:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2226:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCOMP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[1])));; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_A__L2*/ curfnum[1]));; BASILYS_LOCATION("warmelt-genobj.melt:2226:/ cond"); /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2226:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2226:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2226:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_apply check ocomp not objinstr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2226)?(2226):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2226:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2226:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2226:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2226:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V3*/ curfptr[2] = /*_.OCOMP__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2225:/ clear"); /*clear*/ /*_.OCOMP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2225:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2224:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:2224:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2224:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_64_LAMBDA_*/ static basilys_ptr_t rout_65_COMPILOBJ_NREP_MULTIAPPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_65_COMPILOBJ_NREP_MULTIAPPLY_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 48 void* varptr[48]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<48; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 48; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_MULTIAPPLY", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2244:/ getarg"); /*_.NMAPP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2244:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2244:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2245:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2245:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2245:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2245:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2245:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2245:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check napp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2245)?(2245):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2245:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2245:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2245:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2246:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2246:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2246:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2246:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2246:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2246:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2246)?(2246):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2246:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2246:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2246:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2247:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2247:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2247:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2247:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multiapply nmapp"; BASILYS_LOCATION("warmelt-genobj.melt:2247:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2247:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2247:/ apply.arg"); argtab[3].bp_long = 2247; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2247:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2247:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2247:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2248:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2249:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 3, "NMULAPP_BINDINGS");/*_.RBINDS__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2250:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 1, "NAPP_FUN");/*_.FUN__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2251:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 2, "NAPP_ARGS");/*_.ARGS__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2252:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 4, "NMULAPP_BODY");/*_.NBODY__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2253:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V16*/ curfptr[15] = slot; }; ; /*_#NBRES__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.RBINDS__V12*/ curfptr[11])));; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2258:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (basilys_ptr_t)(/*_.LOCMAP__V16*/ curfptr[15]); ; /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2256:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2256:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16]; /*_.RESLOCS__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OBODL__V20*/ curfptr[19] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; /*_.OEPIL__V21*/ curfptr[20] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-genobj.melt:2275:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2275:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[10])), (3), "CLASS_OBJBLOCK");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.OBODL__V20*/ curfptr[19]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.OEPIL__V21*/ curfptr[20]), "OBLO_EPIL"); ; /*_.OBLOCK__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; /*_#I__L5*/ curfnum[4] = ((/*_#NBRES__L4*/ curfnum[0]) > (1));; BASILYS_LOCATION("warmelt-genobj.melt:2279:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2279:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2279:/ block"); /*block*/{ /*_#I__L6*/ curfnum[5] = ((/*_#NBRES__L4*/ curfnum[0]) - (1));; /*_.MAKE_MULTIPLE__V25*/ curfptr[24] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (/*_#I__L6*/ curfnum[5])));; /*_.OXRES__V24*/ curfptr[23] = /*_.MAKE_MULTIPLE__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2279:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2279:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2279:/ cond.else"); /*_.OXRES__V24*/ curfptr[23] = NULL;; } ; /*_.FIRSTRES__V26*/ curfptr[24] = (basilys_multiple_nth((basilys_ptr_t)(/*_.RESLOCS__V19*/ curfptr[18]), (0)));; BASILYS_LOCATION("warmelt-genobj.melt:2281:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2281:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OFUN__V27*/ curfptr[26] = basilysgc_send((basilys_ptr_t)(/*_.FUN__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.RESLIST__V28*/ curfptr[27] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-genobj.melt:2284:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2284:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2284:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2283:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2283:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28]; /*_.OARGS__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2286:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2286:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OBODY__V32*/ curfptr[31] = basilysgc_send((basilys_ptr_t)(/*_.NBODY__V15*/ curfptr[14]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2290:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2290:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.COMPILE_OBJ__V33*/ curfptr[32] = basilysgc_send((basilys_ptr_t)(/*_.FUN__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2287:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2287:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[15])), (5), "CLASS_OBJMULTIAPPLY");/*_.INST__V35*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2287:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2287:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.RESLIST__V28*/ curfptr[27]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2287:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), (/*_.COMPILE_OBJ__V33*/ curfptr[32]), "OBAPP_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:2287:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.OARGS__V31*/ curfptr[30]), "OBAPP_ARGS"); ; BASILYS_LOCATION("warmelt-genobj.melt:2287:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.OXRES__V24*/ curfptr[23]), "OBMULTAPP_XRES"); ; /*_.OMAPP__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2294:/ cond"); /*cond*/ if (/*_.FIRSTRES__V26*/ curfptr[24]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2294:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2294:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.RESLIST__V28*/ curfptr[27]), (basilys_ptr_t)(/*_.FIRSTRES__V26*/ curfptr[24])); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2298:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2298:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2298:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (basilys_ptr_t)(/*_.OBODL__V20*/ curfptr[19]); ; /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2296:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2296:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35]; /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.OARGS__V31*/ curfptr[30]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V20*/ curfptr[19]), (basilys_ptr_t)(/*_.OMAPP__V34*/ curfptr[33])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2305:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2305:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2305:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2305:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multiapply obody"; BASILYS_LOCATION("warmelt-genobj.melt:2305:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2305:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2305:/ apply.arg"); argtab[3].bp_long = 2305; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBODY__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2305:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2305:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2305:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V20*/ curfptr[19]), (basilys_ptr_t)(/*_.OBODY__V32*/ curfptr[31])); BASILYS_LOCATION("warmelt-genobj.melt:2310:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2310:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:2310:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[0] = (basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:2310:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[1] = (basilys_ptr_t)(/*_.OEPIL__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-genobj.melt:2310:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[2] = (basilys_ptr_t)(/*_.OXRES__V24*/ curfptr[23]); ; /*_.LAMBDA___V41*/ curfptr[39] = /*_.LAMBDA___V42*/ curfptr[41];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2308:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2308:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[39]; /*_.MULTIPLE_EVERY__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.RESLOCS__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2321:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2321:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[44] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2321:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V45*/ curfptr[44])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V45*/ curfptr[44]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[44])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V44*/ curfptr[43] = /*_.LAMBDA___V45*/ curfptr[44];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2319:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2319:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[43]; /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2322:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2322:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2322:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2322:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multiapply final oblock"; BASILYS_LOCATION("warmelt-genobj.melt:2322:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2322:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2322:/ apply.arg"); argtab[3].bp_long = 2322; /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOCK__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2322:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2322:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2322:/ cppif.else"); /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.RBINDS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.FUN__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.ARGS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.NBODY__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LOCMAP__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_#NBRES__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.RESLOCS__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OBODL__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OEPIL__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OBLOCK__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OXRES__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.FIRSTRES__V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OFUN__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.RESLIST__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OARGS__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OBODY__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.OMAPP__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LAMBDA___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.LAMBDA___V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2248:/ clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2244:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2244:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2244:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2244:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2244:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2244:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_MULTIAPPLY", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_65_COMPILOBJ_NREP_MULTIAPPLY*/ static basilys_ptr_t rout_66_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_66_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2258:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2258:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2258:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2259:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2259:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2259:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2259:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multiapply bind"; BASILYS_LOCATION("warmelt-genobj.melt:2259:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2259:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2259:/ apply.arg"); argtab[3].bp_long = 2259; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2259:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2259:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2259:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2260:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2260:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2260:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2260:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2260:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2260:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_multiapply check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2260)?(2260):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2260:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2260:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2260:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2262:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2262:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2263:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2264:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2264:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BDER__V8*/ curfptr[7]; BASILYS_LOCATION("warmelt-genobj.melt:2264:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CTY__V9*/ curfptr[8]; /*_.OBVA__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2266:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2266:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTY__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2266:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2266:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2266:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2266:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_multiapply check cty"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2266)?(2266):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2266:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2266:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2266:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2269:/ cond"); /*cond*/ if (/*_.OBVA__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2269:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2269:/ block"); /*block*/{ basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBVA__V10*/ curfptr[9])); /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2270:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2270:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2270:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2270:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multiapply obva"; BASILYS_LOCATION("warmelt-genobj.melt:2270:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2270:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2270:/ apply.arg"); argtab[3].bp_long = 2270; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2270:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2270:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2270:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V7*/ curfptr[5] = /*_.OBVA__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2262:/ clear"); /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2262:/ clear"); /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2262:/ clear"); /*clear*/ /*_.OBVA__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2262:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2262:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2258:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2258:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_66_LAMBDA_*/ static basilys_ptr_t rout_67_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_67_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2284:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2284:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2284:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2285:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2285:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.COMPILE_OBJ__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2284:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:2284:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2284:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_67_LAMBDA_*/ static basilys_ptr_t rout_68_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_68_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2298:/ getarg"); /*_.OCURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2298:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2298:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2299:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2299:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2299:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2299:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multiapply ocurarg"; BASILYS_LOCATION("warmelt-genobj.melt:2299:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2299:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2299:/ apply.arg"); argtab[3].bp_long = 2299; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2299:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2299:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2299:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2300:/ cond"); /*cond*/ if (/*_.OCURARG__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2300:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2300:/ block"); /*block*/{ /*_#IS_NOT_A__L4*/ curfnum[3] = !basilys_is_instance_of((basilys_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[1])));; /*_#IF___L3*/ curfnum[1] = /*_#IS_NOT_A__L4*/ curfnum[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2300:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2300:/ cond.else"); /*_#IF___L3*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-genobj.melt:2300:/ cond"); /*cond*/ if (/*_#IF___L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2300:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2300:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.OCURARG__V2*/ curfptr[1])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2298:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2298:/ clear"); /*clear*/ /*_#IF___L3*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_68_LAMBDA_*/ static basilys_ptr_t rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_69_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2310:/ getarg"); /*_.RLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2310:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2310:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-genobj.melt:2311:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2311:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2311:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2312:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2312:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2312:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2312:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3]))));basilys_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2312:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3]))));basilys_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.RLOC__V2*/ curfptr[1]), "OCLR_VLOC"); ; /*_.OCLEAR__V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OEPIL*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.OCLEAR__V3*/ curfptr[2])); /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~OXRES*/ curfclos->tabval[2])), (/*_#I__L3*/ curfnum[2]), (basilys_ptr_t)(/*_.RLOC__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2312:/ clear"); /*clear*/ /*_.OCLEAR__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2312:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2310:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_69_LAMBDA_*/ static basilys_ptr_t rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_70_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2321:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2321:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2321:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2321:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2321:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2321:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:2321:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2321:/ clear"); /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_70_LAMBDA_*/ static basilys_ptr_t rout_71_COMPILOBJ_NREP_MSEND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_71_COMPILOBJ_NREP_MSEND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 25 void* varptr[25]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<25; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 25; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_MSEND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2330:/ getarg"); /*_.NSND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2330:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2330:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2331:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2331:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NSND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2331:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2331:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2331:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2331:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nsnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2331)?(2331):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2331:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2331:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2331:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2332:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2332:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2332:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2332:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2332:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2332:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2332)?(2332):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2332:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2332:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2332:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2333:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2333:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2334:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 1, "NSEND_SEL");/*_.NSEL__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2335:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 2, "NSEND_RECV");/*_.NRECV__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2336:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 3, "NSEND_ARGS");/*_.NARGS__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2338:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2338:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2338:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2338:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_msend nsnd"; BASILYS_LOCATION("warmelt-genobj.melt:2338:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2338:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2338:/ apply.arg"); argtab[3].bp_long = 2338; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2338:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2338:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2338:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2339:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2339:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OSEL__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.NSEL__V10*/ curfptr[9]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2340:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2340:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ORECV__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.NRECV__V11*/ curfptr[10]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2342:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2342:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2342:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2341:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2341:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17]; /*_.OARGS__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_LIST__V21*/ curfptr[20] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-genobj.melt:2345:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2345:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJMSEND*/ curfrout->tabval[7])), (5), "CLASS_OBJMSEND");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2345:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2345:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.MAKE_LIST__V21*/ curfptr[20]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2345:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.OSEL__V16*/ curfptr[15]), "OBMSND_SEL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2345:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.ORECV__V17*/ curfptr[16]), "OBMSND_RECV"); ; BASILYS_LOCATION("warmelt-genobj.melt:2345:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (4), (/*_.OARGS__V20*/ curfptr[19]), "OBMSND_ARGS"); ; /*_.OSEND__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2354:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2354:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2354:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2354:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_msend osend"; BASILYS_LOCATION("warmelt-genobj.melt:2354:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2354:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2354:/ apply.arg"); argtab[3].bp_long = 2354; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OSEND__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2354:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2354:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2354:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V15*/ curfptr[13] = /*_.OSEND__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.OSEL__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.ORECV__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.OARGS__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.MAKE_LIST__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.OSEND__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2339:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.LET___V15*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2333:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2333:/ clear"); /*clear*/ /*_.NSEL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2333:/ clear"); /*clear*/ /*_.NRECV__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2333:/ clear"); /*clear*/ /*_.NARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2333:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2333:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2330:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:2330:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2330:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2330:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2330:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_MSEND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_71_COMPILOBJ_NREP_MSEND*/ static basilys_ptr_t rout_72_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_72_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2342:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2342:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2342:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2343:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2343:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.COMPILE_OBJ__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2342:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:2342:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2342:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_72_LAMBDA_*/ static basilys_ptr_t rout_73_COMPILOBJ_NREP_MULTIMSEND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_73_COMPILOBJ_NREP_MULTIMSEND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 49 void* varptr[49]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<49; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 49; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_MULTIMSEND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2361:/ getarg"); /*_.NMSND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2361:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2361:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2362:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2362:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2362:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2362:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2362:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2362:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nmsnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2362)?(2362):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2362:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2362:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2362:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2363:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2363:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2363:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2363:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2363:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2363:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2363)?(2363):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2363:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2363:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2363:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2364:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2364:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2364:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2364:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multimsend nmsnd"; BASILYS_LOCATION("warmelt-genobj.melt:2364:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2364:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2364:/ apply.arg"); argtab[3].bp_long = 2364; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2364:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2364:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2364:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2365:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2366:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 4, "NMULSEND_BINDINGS");/*_.RBINDS__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2367:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 5, "NMULSEND_BODY");/*_.NBODY__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2368:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 1, "NSEND_SEL");/*_.NSEL__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2369:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 2, "NSEND_RECV");/*_.NRECV__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2370:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 3, "NSEND_ARGS");/*_.NARGS__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2371:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V17*/ curfptr[16] = slot; }; ; /*_#NBRES__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.RBINDS__V12*/ curfptr[11])));; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2376:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (basilys_ptr_t)(/*_.LOCMAP__V17*/ curfptr[16]); ; /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2374:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2374:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17]; /*_.RESLOCS__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L5*/ curfnum[4] = ((/*_#NBRES__L4*/ curfnum[0]) > (1));; BASILYS_LOCATION("warmelt-genobj.melt:2391:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2391:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2391:/ block"); /*block*/{ /*_#I__L6*/ curfnum[5] = ((/*_#NBRES__L4*/ curfnum[0]) - (1));; /*_.MAKE_MULTIPLE__V22*/ curfptr[21] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[9])), (/*_#I__L6*/ curfnum[5])));; /*_.OXRES__V21*/ curfptr[20] = /*_.MAKE_MULTIPLE__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2391:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2391:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2391:/ cond.else"); /*_.OXRES__V21*/ curfptr[20] = NULL;; } ; /*_.FIRSTRES__V23*/ curfptr[21] = (basilys_multiple_nth((basilys_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (0)));; BASILYS_LOCATION("warmelt-genobj.melt:2394:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2394:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OSEL__V24*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.NSEL__V14*/ curfptr[13]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.RESLIST__V25*/ curfptr[24] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));; BASILYS_LOCATION("warmelt-genobj.melt:2396:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2396:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ORECV__V26*/ curfptr[25] = basilysgc_send((basilys_ptr_t)(/*_.NRECV__V15*/ curfptr[14]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2398:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2398:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[27] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2398:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[27])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[27]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[27])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V27*/ curfptr[26] = /*_.LAMBDA___V28*/ curfptr[27];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2397:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2397:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[26]; /*_.OARGS__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NARGS__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2400:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2400:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OBODY__V30*/ curfptr[29] = basilysgc_send((basilys_ptr_t)(/*_.NBODY__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OBODL__V31*/ curfptr[30] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));; /*_.OEPIL__V32*/ curfptr[31] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));; BASILYS_LOCATION("warmelt-genobj.melt:2403:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2403:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[14])), (3), "CLASS_OBJBLOCK");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2403:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2403:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.OBODL__V31*/ curfptr[30]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2403:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.OEPIL__V32*/ curfptr[31]), "OBLO_EPIL"); ; /*_.OBLOCK__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2407:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ curfrout->tabval[15])), (6), "CLASS_OBJMULTIMSEND");/*_.INST__V36*/ curfptr[35] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.RESLIST__V25*/ curfptr[24]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.OSEL__V24*/ curfptr[23]), "OBMSND_SEL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.ORECV__V26*/ curfptr[25]), "OBMSND_RECV"); ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (4), (/*_.OARGS__V29*/ curfptr[28]), "OBMSND_ARGS"); ; BASILYS_LOCATION("warmelt-genobj.melt:2407:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.OXRES__V21*/ curfptr[20]), "OBMULTSND_XRES"); ; /*_.OMSEND__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2415:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2415:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2415:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2415:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multimsend reslocs"; BASILYS_LOCATION("warmelt-genobj.melt:2415:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2415:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2415:/ apply.arg"); argtab[3].bp_long = 2415; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2415:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2415:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2415:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2416:/ cond"); /*cond*/ if (/*_.FIRSTRES__V23*/ curfptr[21]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2416:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2416:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.RESLIST__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.FIRSTRES__V23*/ curfptr[21])); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2420:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2420:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2420:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (basilys_ptr_t)(/*_.OBODL__V31*/ curfptr[30]); ; /*_.LAMBDA___V39*/ curfptr[37] = /*_.LAMBDA___V40*/ curfptr[39];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2418:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2418:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[37]; /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.OARGS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V31*/ curfptr[30]), (basilys_ptr_t)(/*_.OMSEND__V35*/ curfptr[34])); basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V31*/ curfptr[30]), (basilys_ptr_t)(/*_.OBODY__V30*/ curfptr[29])); BASILYS_LOCATION("warmelt-genobj.melt:2431:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2431:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[42] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:2431:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[42])->tabval[0] = (basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:2431:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[42])->tabval[1] = (basilys_ptr_t)(/*_.OEPIL__V32*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-genobj.melt:2431:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[42])->tabval[2] = (basilys_ptr_t)(/*_.OXRES__V21*/ curfptr[20]); ; /*_.LAMBDA___V42*/ curfptr[41] = /*_.LAMBDA___V43*/ curfptr[42];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2429:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2429:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[41]; /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2441:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2441:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V46*/ curfptr[45] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:2441:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V46*/ curfptr[45])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V46*/ curfptr[45]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V46*/ curfptr[45])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V45*/ curfptr[44] = /*_.LAMBDA___V46*/ curfptr[45];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2439:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2439:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V45*/ curfptr[44]; /*_.MULTIPLE_EVERY__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2442:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2442:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2442:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2442:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multimsend final oblock"; BASILYS_LOCATION("warmelt-genobj.melt:2442:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2442:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2442:/ apply.arg"); argtab[3].bp_long = 2442; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOCK__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2442:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2442:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2442:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.RBINDS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.NBODY__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.NSEL__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.NRECV__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.NARGS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LOCMAP__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_#NBRES__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.RESLOCS__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OXRES__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.FIRSTRES__V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OSEL__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.RESLIST__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.ORECV__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OARGS__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OBODY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OBODL__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OEPIL__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OBLOCK__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.OMSEND__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LAMBDA___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LAMBDA___V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.LAMBDA___V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2365:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2361:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2361:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2361:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2361:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2361:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2361:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_MULTIMSEND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_73_COMPILOBJ_NREP_MULTIMSEND*/ static basilys_ptr_t rout_74_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_74_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2376:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2376:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2376:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2377:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2377:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2377:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2377:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multimsend bind"; BASILYS_LOCATION("warmelt-genobj.melt:2377:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2377:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2377:/ apply.arg"); argtab[3].bp_long = 2377; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2377:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2377:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2377:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2378:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2378:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2378:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2378:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2378:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2378:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_multimsend check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2378)?(2378):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2378:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2378:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2378:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2380:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2380:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2381:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2382:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2382:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BDER__V8*/ curfptr[7]; BASILYS_LOCATION("warmelt-genobj.melt:2382:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CTY__V9*/ curfptr[8]; /*_.OBVA__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2384:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2384:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTY__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2384:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2384:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2384:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2384:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_multimsend check cty"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2384)?(2384):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2384:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2384:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2384:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2387:/ cond"); /*cond*/ if (/*_.OBVA__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2387:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2387:/ block"); /*block*/{ basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBVA__V10*/ curfptr[9])); /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2388:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2388:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2388:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2388:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multimsend obva"; BASILYS_LOCATION("warmelt-genobj.melt:2388:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2388:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2388:/ apply.arg"); argtab[3].bp_long = 2388; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2388:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2388:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2388:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V7*/ curfptr[5] = /*_.OBVA__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2380:/ clear"); /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2380:/ clear"); /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2380:/ clear"); /*clear*/ /*_.OBVA__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2380:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2380:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2376:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2376:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_74_LAMBDA_*/ static basilys_ptr_t rout_75_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_75_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2398:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2398:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2398:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2399:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2399:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.COMPILE_OBJ__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2398:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:2398:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2398:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_75_LAMBDA_*/ static basilys_ptr_t rout_76_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_76_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2420:/ getarg"); /*_.OCURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2420:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2420:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2421:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2421:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2421:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2421:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_multimsend ocurarg"; BASILYS_LOCATION("warmelt-genobj.melt:2421:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2421:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2421:/ apply.arg"); argtab[3].bp_long = 2421; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2421:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2421:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2421:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2422:/ cond"); /*cond*/ if (/*_.OCURARG__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2422:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2422:/ block"); /*block*/{ /*_#IS_NOT_A__L4*/ curfnum[3] = !basilys_is_instance_of((basilys_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[1])));; /*_#IF___L3*/ curfnum[1] = /*_#IS_NOT_A__L4*/ curfnum[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2422:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2422:/ cond.else"); /*_#IF___L3*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-genobj.melt:2422:/ cond"); /*cond*/ if (/*_#IF___L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2422:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2422:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.OCURARG__V2*/ curfptr[1])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2420:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2420:/ clear"); /*clear*/ /*_#IF___L3*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_76_LAMBDA_*/ static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_77_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2431:/ getarg"); /*_.RLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2431:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2431:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-genobj.melt:2432:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2432:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2432:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2433:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2433:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2433:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2433:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3]))));basilys_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2433:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3]))));basilys_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.RLOC__V2*/ curfptr[1]), "OCLR_VLOC"); ; /*_.OCLEAR__V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OEPIL*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.OCLEAR__V3*/ curfptr[2])); /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~OXRES*/ curfclos->tabval[2])), (/*_#I__L3*/ curfnum[2]), (basilys_ptr_t)(/*_.RLOC__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2433:/ clear"); /*clear*/ /*_.OCLEAR__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2433:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2431:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_77_LAMBDA_*/ static basilys_ptr_t rout_78_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_78_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2441:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2441:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2441:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2441:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2441:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2441:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:2441:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2441:/ clear"); /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_78_LAMBDA_*/ static basilys_ptr_t rout_79_COMPILOBJ_ANY_BINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_79_COMPILOBJ_ANY_BINDING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_ANY_BINDING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2451:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2451:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2451:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2452:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2452:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2452:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2452:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2452:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2452:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2452)?(2452):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2452:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2452:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2452:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2453:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2453:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2453:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2453:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2453:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2453:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2453)?(2453):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2453:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2453:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2453:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2454:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2454:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2454:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2454:/ apply.arg"); argtab[0].bp_cstring = "compilobj_any_binding bind"; BASILYS_LOCATION("warmelt-genobj.melt:2454:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2454:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2454:/ apply.arg"); argtab[3].bp_long = 2454; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2454:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2454:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2454:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2455:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2455:/ apply.arg"); argtab[0].bp_cstring = "class_bind compile_obj recv"; /*_.DISPLAYDEBUGMSG__V10*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPLAYDEBUGMSG*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilys_puts(stderr,( "* compilobj unimplemented reciever binding class ")); BASILYS_LOCATION("warmelt-genobj.melt:2457:/ block"); /*block*/{ /*_.DISCR__V11*/ curfptr[10] = (basilys_discr((basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2457:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2457:/ clear"); /*clear*/ /*_.DISCR__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2457:/ clear"); /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2459:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2459:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2459:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2459:/ cond.then"); /*_.IFELSE___V14*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2459:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2459:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@compile_obj should be implemented in anybinding-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2459)?(2459):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2459:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2459:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2451:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V13*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:2451:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2451:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2451:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2451:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2451:/ clear"); /*clear*/ /*_.DISPLAYDEBUGMSG__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2451:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_ANY_BINDING", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_79_COMPILOBJ_ANY_BINDING*/ static basilys_ptr_t rout_80_COMPILOBJ_VALUE_BINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_80_COMPILOBJ_VALUE_BINDING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 18 void* varptr[18]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_VALUE_BINDING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2465:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2465:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2465:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2466:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2466:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2466:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2466:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2466:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2466:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2466)?(2466):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2466:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2466:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2466:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2467:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2467:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_INITGENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2467:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2467:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2467:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2467:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2467)?(2467):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2467:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2467:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2467:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2468:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2468:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2468:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2468:/ apply.arg"); argtab[0].bp_cstring = "compilobj_value_binding bind"; BASILYS_LOCATION("warmelt-genobj.melt:2468:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2468:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2468:/ apply.arg"); argtab[3].bp_long = 2468; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2468:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2468:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2468:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2469:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2469:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYM__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2470:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 12, "IGNCX_IMPORTMAP");/*_.IMPORTMAP__V12*/ curfptr[11] = slot; }; ; /*_.OLOCV__V13*/ curfptr[12] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.IMPORTMAP__V12*/ curfptr[11]), (basilysobject_ptr_t)(/*_.SYM__V11*/ curfptr[10])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2473:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2473:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2473:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2473:/ apply.arg"); argtab[0].bp_cstring = "compilobj_value_binding olocv"; BASILYS_LOCATION("warmelt-genobj.melt:2473:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2473:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2473:/ apply.arg"); argtab[3].bp_long = 2473; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOCV__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2473:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2473:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2473:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2474:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2474:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLOCV__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2474:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2474:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2474:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2474:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check olocv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2474)?(2474):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2474:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2474:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2474:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2475:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OLOCV__V13*/ curfptr[12];; BASILYS_LOCATION("warmelt-genobj.melt:2475:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V18*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2469:/ clear"); /*clear*/ /*_.SYM__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2469:/ clear"); /*clear*/ /*_.IMPORTMAP__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2469:/ clear"); /*clear*/ /*_.OLOCV__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2469:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2469:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2469:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2465:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2465:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2465:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2465:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2465:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2465:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_VALUE_BINDING", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_80_COMPILOBJ_VALUE_BINDING*/ static basilys_ptr_t rout_81_COMPILOBJ_FIXED_BINDING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_81_COMPILOBJ_FIXED_BINDING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 15 void* varptr[15]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<15; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 15; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_FIXED_BINDING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2481:/ getarg"); /*_.BIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2481:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2481:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2482:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2482:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2482:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2482:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2482:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2482:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2482)?(2482):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2482:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2482:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2482:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2483:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2483:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2483:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2483:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2483:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2483:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2483)?(2483):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2483:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2483:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2483:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2484:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2484:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2484:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2484:/ apply.arg"); argtab[0].bp_cstring = "compilobj_fixed_binding bind"; BASILYS_LOCATION("warmelt-genobj.melt:2484:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2484:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2484:/ apply.arg"); argtab[3].bp_long = 2484; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2484:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2484:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2484:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2485:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2485:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FIXBIND_DATA");/*_.SBDATA__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2486:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2486:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OSDATA__V12*/ curfptr[11] = basilysgc_send((basilys_ptr_t)(/*_.SBDATA__V11*/ curfptr[10]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2487:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2487:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2487:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2487:/ apply.arg"); argtab[0].bp_cstring = "compilobj_fixed_binding osdata"; BASILYS_LOCATION("warmelt-genobj.melt:2487:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2487:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2487:/ apply.arg"); argtab[3].bp_long = 2487; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OSDATA__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2487:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2487:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2487:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2488:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OSDATA__V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:2488:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V15*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2485:/ clear"); /*clear*/ /*_.SBDATA__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2485:/ clear"); /*clear*/ /*_.OSDATA__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2485:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2485:/ clear"); /*clear*/ /*_.RETURN___V15*/ curfptr[13] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2481:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2481:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2481:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2481:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2481:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2481:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_FIXED_BINDING", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_81_COMPILOBJ_FIXED_BINDING*/ static basilys_ptr_t rout_82_PUTOBJDEST_OBJVALUE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_82_PUTOBJDEST_OBJVALUE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 46 void* varptr[46]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<46; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 46; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJVALUE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2495:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2495:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2495:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2496:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2496:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2496:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2496:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2496:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2496:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2496)?(2496):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2496:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2496:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2496:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2497:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2497:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2497:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2497:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2497:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2497:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2497)?(2497):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2497:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2497:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2497:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2498:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2498:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.TYPRECV__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2499:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V10*/ curfptr[9] = slot; }; ; /*_#__L3*/ curfnum[0] = ((/*_.TYPRECV__V9*/ curfptr[8]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:2503:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2503:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2503:/ block"); /*block*/{ /*_#__L4*/ curfnum[3] = ((/*_.TYPDESTO__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:2504:/ cond"); /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2504:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2504:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2505:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:2505:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V12*/ curfptr[11] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2504:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2504:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2504:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2508:/ block"); /*block*/{ /*_.OBODL__V15*/ curfptr[14] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:2510:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2510:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2510:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.OBODL__V15*/ curfptr[14]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2510:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*nil*/NULL)), "OBLO_EPIL"); ; /*_.OBLK__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2516:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2516:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[5])), (2), "CLASS_OBJCLEAR");/*_.INST__V19*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2516:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.DESTO__V3*/ curfptr[2]), "OCLR_VLOC"); ; /*_.OCLR__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])); basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.OCLR__V18*/ curfptr[17])); basilysgc_append_list((basilys_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])); BASILYS_LOCATION("warmelt-genobj.melt:2526:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLK__V16*/ curfptr[15];; BASILYS_LOCATION("warmelt-genobj.melt:2526:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2508:/ clear"); /*clear*/ /*_.OBODL__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2508:/ clear"); /*clear*/ /*_.OBLK__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2508:/ clear"); /*clear*/ /*_.OCLR__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2508:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;} ; /*_.IFELSE___V12*/ curfptr[11] = /*_.LET___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2504:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; } ; /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2503:/ clear"); /*clear*/ /*_#__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2503:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2503:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2503:/ block"); /*block*/{ /*_#__L5*/ curfnum[3] = ((/*_.TYPRECV__V9*/ curfptr[8]) == (/*_.TYPDESTO__V10*/ curfptr[9]));; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2529:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2529:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2530:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2530:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.TYPRECV__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:2530:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2530:/ cond.then"); /*_.IFELSE___V23*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2530:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2530:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check same typrecv&rtpdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2530)?(2530):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[15] = /*_.IFELSE___V23*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2530:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2530:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2530:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2531:/ block"); /*block*/{ /*_.DESTLIS__V25*/ curfptr[12] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; /*_.EXPLIS__V26*/ curfptr[11] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:2533:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2533:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[7])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V28*/ curfptr[27] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2533:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIS__V25*/ curfptr[12]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2533:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.EXPLIS__V26*/ curfptr[11]), "OBCPT_EXPR"); ; /*_.OBC__V27*/ curfptr[17] = /*_.INST__V28*/ curfptr[27];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIS__V25*/ curfptr[12]), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])); basilysgc_append_list((basilys_ptr_t)(/*_.EXPLIS__V26*/ curfptr[11]), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])); BASILYS_LOCATION("warmelt-genobj.melt:2541:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBC__V27*/ curfptr[17];; BASILYS_LOCATION("warmelt-genobj.melt:2541:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V24*/ curfptr[19] = /*_.RETURN___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2531:/ clear"); /*clear*/ /*_.DESTLIS__V25*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2531:/ clear"); /*clear*/ /*_.EXPLIS__V26*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2531:/ clear"); /*clear*/ /*_.OBC__V27*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2531:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[12] = /*_.LET___V24*/ curfptr[19];;} ; /*_.IFELSE___V21*/ curfptr[14] = /*_.PROGN___V30*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2529:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2529:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2544:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2544:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2544:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2544:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objvalue mismatching recv"; BASILYS_LOCATION("warmelt-genobj.melt:2544:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2544:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2544:/ apply.arg"); argtab[3].bp_long = 2544; /*_.DEBUG_MSG_FUN__V32*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2544:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2544:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2544:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2545:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2545:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2545:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2545:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objvalue mismatching typrecv"; BASILYS_LOCATION("warmelt-genobj.melt:2545:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2545:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2545:/ apply.arg"); argtab[3].bp_long = 2545; /*_.DEBUG_MSG_FUN__V34*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.TYPRECV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2545:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2545:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2545:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2546:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2546:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2546:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2546:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objvalue mismatching desto"; BASILYS_LOCATION("warmelt-genobj.melt:2546:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2546:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2546:/ apply.arg"); argtab[3].bp_long = 2546; /*_.DEBUG_MSG_FUN__V36*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2546:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2546:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2546:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2547:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2547:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2547:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2547:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objvalue mismatching typdesto"; BASILYS_LOCATION("warmelt-genobj.melt:2547:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2547:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2547:/ apply.arg"); argtab[3].bp_long = 2547; /*_.DEBUG_MSG_FUN__V38*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.TYPDESTO__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2547:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2547:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2547:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_puts(stderr,( "putobjdest_objvalue type mismatch : recv <")); BASILYS_LOCATION("warmelt-genobj.melt:2549:/ block"); /*block*/{ /*_.DISCR__V39*/ curfptr[12] = (basilys_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2549:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V39*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[15] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[15])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2549:/ clear"); /*clear*/ /*_.DISCR__V39*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2549:/ clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[15] = 0 ;} ; basilys_puts(stderr,( "> & desto<")); BASILYS_LOCATION("warmelt-genobj.melt:2551:/ block"); /*block*/{ /*_.DISCR__V41*/ curfptr[12] = (basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])));; BASILYS_LOCATION("warmelt-genobj.melt:2551:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V41*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[15] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[15])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2551:/ clear"); /*clear*/ /*_.DISCR__V41*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2551:/ clear"); /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[15] = 0 ;} ; basilys_puts(stderr,( ">")); basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2554:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2554:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2554:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2554:/ cond.then"); /*_.IFELSE___V44*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2554:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2554:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "putobjdest_objvalue type mismatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2554)?(2554):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V44*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V43*/ curfptr[12] = /*_.IFELSE___V44*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2554:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2554:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2555:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:2555:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2543:/ block"); /*block*/{ /*_.PROGN___V46*/ curfptr[45] = /*_.RETURN___V45*/ curfptr[15];;} ; /*_.IFELSE___V21*/ curfptr[14] = /*_.PROGN___V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.RETURN___V45*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2529:/ clear"); /*clear*/ /*_.PROGN___V46*/ curfptr[45] = 0 ;} ; } ; /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V21*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2503:/ clear"); /*clear*/ /*_#__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2503:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[14] = 0 ;} ; } ; /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2498:/ clear"); /*clear*/ /*_.TYPRECV__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2498:/ clear"); /*clear*/ /*_.TYPDESTO__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2498:/ clear"); /*clear*/ /*_#__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2498:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2495:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:2495:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2495:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2495:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2495:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJVALUE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_82_PUTOBJDEST_OBJVALUE*/ static basilys_ptr_t rout_83_PUTOBJDEST_INTEGER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_83_PUTOBJDEST_INTEGER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_INTEGER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2562:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2562:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2562:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2563:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2563:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:2563:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2563:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2563:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2563:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2563)?(2563):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2563:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2563:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2563:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2564:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2564:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2564:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2564:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2564:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2564:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2564)?(2564):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2564:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2564:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2564:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2565:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2565:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2565:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2565:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_integer recv"; BASILYS_LOCATION("warmelt-genobj.melt:2565:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2565:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2565:/ apply.arg"); argtab[3].bp_long = 2565; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2565:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2565:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2565:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2566:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2566:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2566:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2566:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_integer desto"; BASILYS_LOCATION("warmelt-genobj.melt:2566:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2566:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2566:/ apply.arg"); argtab[3].bp_long = 2566; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2566:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2566:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2566:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2567:/ block"); /*block*/{ /*_.DESTLIS__V13*/ curfptr[12] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_.EXPLIS__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; BASILYS_LOCATION("warmelt-genobj.melt:2569:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2570:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2570:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2570:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2570:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR"); ; /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2576:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2576:/ block"); /*block*/{ /*_#__L5*/ curfnum[0] = ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_LONG*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:2576:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2576:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2576:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2576:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check typdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2576)?(2576):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2576:/ clear"); /*clear*/ /*_#__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2576:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2576:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])); basilysgc_append_list((basilys_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2579:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2579:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2579:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2579:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_integer return obc"; BASILYS_LOCATION("warmelt-genobj.melt:2579:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2579:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2579:/ apply.arg"); argtab[3].bp_long = 2579; /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2579:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2579:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2579:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2567:/ clear"); /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2567:/ clear"); /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2567:/ clear"); /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2567:/ clear"); /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2567:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2567:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2562:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:2562:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2562:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2562:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2562:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2562:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2562:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_INTEGER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_83_PUTOBJDEST_INTEGER*/ static basilys_ptr_t rout_84_PUTOBJDEST_NULL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_84_PUTOBJDEST_NULL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_NULL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2585:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2585:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2585:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2586:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2586:/ block"); /*block*/{ /*_#NULL__L1*/ curfnum[0] = ((/*_.RECV__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:2586:/ cond"); /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2586:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2586:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2586:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2586)?(2586):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2586:/ clear"); /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2586:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2586:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2587:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2587:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2587:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2587:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2587:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2587:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2587)?(2587):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2587:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2587:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2587:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2588:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2588:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2588:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2588:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_null recv"; BASILYS_LOCATION("warmelt-genobj.melt:2588:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2588:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2588:/ apply.arg"); argtab[3].bp_long = 2588; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2588:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2588:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2588:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2589:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2589:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2589:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2589:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_null desto"; BASILYS_LOCATION("warmelt-genobj.melt:2589:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2589:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2589:/ apply.arg"); argtab[3].bp_long = 2589; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2589:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2589:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2589:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NEED_DBG__L5*/ curfnum[0] = (flag_basilys_debug && basilys_dbgcounter>=basilys_debugskipcount && (0)>=0 && (0) <= BASILYSDBG_MAXDEPTH);; BASILYS_LOCATION("warmelt-genobj.melt:2590:/ cond"); /*cond*/ if (/*_#NEED_DBG__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2590:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2590:/ block"); /*block*/{ basilys_dbgshortbacktrace(( "putobjdest_null"), (15)); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2591:/ block"); /*block*/{ /*_.DESTLIS__V13*/ curfptr[12] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_.EXPLIS__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; BASILYS_LOCATION("warmelt-genobj.melt:2593:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2594:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2594:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2594:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2594:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR"); ; /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])); /*_#__L6*/ curfnum[5] = ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_LONG*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:2601:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2601:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2601:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V18*/ curfptr[17] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));; basilysgc_append_list((basilys_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (basilys_ptr_t)(/*_.MAKE_INTEGERBOX__V18*/ curfptr[17])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2601:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2601:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2601:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])); /*epilog*/} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2604:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2604:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2604:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2604:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_null return obc"; BASILYS_LOCATION("warmelt-genobj.melt:2604:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:2604:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2604:/ apply.arg"); argtab[3].bp_long = 2604; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2604:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2604:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2604:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2591:/ clear"); /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2591:/ clear"); /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2591:/ clear"); /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2591:/ clear"); /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2591:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2591:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2585:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ clear"); /*clear*/ /*_#NEED_DBG__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2585:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_NULL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_84_PUTOBJDEST_NULL*/ static basilys_ptr_t rout_85_PUTOBJDEST_OBJBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_85_PUTOBJDEST_OBJBLOCK_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 17 void* varptr[17]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJBLOCK", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2610:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2610:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2610:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2611:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2611:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2611:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2611:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2611:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2611:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2611)?(2611):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2611:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2611:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2611:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2612:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2612:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2612:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2612:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2612:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2612:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2612)?(2612):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2612:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2612:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2612:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2615:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2615:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.OBL__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2616:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.OEP__V10*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2618:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2618:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = ((/*_.OBL__V9*/ curfptr[8]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.OBL__V9*/ curfptr[8])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-genobj.melt:2618:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2618:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2618:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2618:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obl"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2618)?(2618):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2618:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2618:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2618:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2619:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2619:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L4*/ curfnum[0] = ((/*_.OEP__V10*/ curfptr[9]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.OEP__V10*/ curfptr[9])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-genobj.melt:2619:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2619:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2619:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2619:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2619)?(2619):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2619:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2619:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2619:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2621:/ block"); /*block*/{ /*_.LPBY__V15*/ curfptr[13] = (basilys_list_last((basilys_ptr_t)(/*_.OBL__V9*/ curfptr[8])));; /*_.LASBP__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.LPBY__V15*/ curfptr[13])));; BASILYS_LOCATION("warmelt-genobj.melt:2624:/ cond"); /*cond*/ if (/*_.LASBP__V16*/ curfptr[15]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2624:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2624:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2625:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2625:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2625:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DESTO__V3*/ curfptr[2]; /*_.UPLASB__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.LASBP__V16*/ curfptr[15]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_pair_set_head((basilys_ptr_t)(/*_.LPBY__V15*/ curfptr[13]), (/*_.UPLASB__V17*/ curfptr[16])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2625:/ clear"); /*clear*/ /*_.UPLASB__V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2621:/ clear"); /*clear*/ /*_.LPBY__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2621:/ clear"); /*clear*/ /*_.LASBP__V16*/ curfptr[15] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.RECV__V2*/ curfptr[1];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2615:/ clear"); /*clear*/ /*_.OBL__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2615:/ clear"); /*clear*/ /*_.OEP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2615:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2615:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2610:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:2610:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2610:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2610:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2610:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJBLOCK", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_85_PUTOBJDEST_OBJBLOCK*/ static basilys_ptr_t rout_86_PUTOBJDEST_OBJMULTIBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_86_PUTOBJDEST_OBJMULTIBLOCK_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJMULTIBLOCK", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2638:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2638:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2638:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2639:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2639:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2639:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2639:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2639:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2639:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2639)?(2639):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2639:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2639:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2639:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2640:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2640:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2640:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2640:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objmultiblock recv"; BASILYS_LOCATION("warmelt-genobj.melt:2640:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2640:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2640:/ apply.arg"); argtab[3].bp_long = 2640; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2640:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2640:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2640:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2641:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2641:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2641:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2641:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objmultiblock recv"; BASILYS_LOCATION("warmelt-genobj.melt:2641:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2641:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2641:/ apply.arg"); argtab[3].bp_long = 2641; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2641:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2641:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2641:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2642:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2642:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OMULBLO_SUBCOMP");/*_.OSUBCOMP__V11*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2643:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2643:/ block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0] = ((/*_.OSUBCOMP__V11*/ curfptr[10]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.OSUBCOMP__V11*/ curfptr[10])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-genobj.melt:2643:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2643:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2643:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2643:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check osubcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2643)?(2643):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2643:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2643:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2643:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.OSUBCOMP__V11*/ curfptr[10]); int cit1__EACHTUP_ix = 0; for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { /*_.CURSUBCOMP__V14*/ curfptr[12] = basilys_multiple_nth((basilys_ptr_t)(/*_.OSUBCOMP__V11*/ curfptr[10]), cit1__EACHTUP_ix); /*_#CURIX__L5*/ curfnum[0] = cit1__EACHTUP_ix; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2647:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2647:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2647:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2647:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objmultiblock cursubcomp"; BASILYS_LOCATION("warmelt-genobj.melt:2647:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2647:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2647:/ apply.arg"); argtab[3].bp_long = 2647; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CURSUBCOMP__V14*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2647:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2647:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2647:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2648:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2648:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DESTO__V3*/ curfptr[2]; /*_.PUT_OBJDEST__V17*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.CURSUBCOMP__V14*/ curfptr[12]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; } /* end cit1__EACHTUP*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2644:/ clear"); /*clear*/ /*_.CURSUBCOMP__V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2644:/ clear"); /*clear*/ /*_#CURIX__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2644:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2644:/ clear"); /*clear*/ /*_.PUT_OBJDEST__V17*/ curfptr[15] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2649:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2649:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2649:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2649:/ apply.arg"); argtab[0].bp_cstring = "putobjdest_objmultiblock done recv"; BASILYS_LOCATION("warmelt-genobj.melt:2649:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2649:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2649:/ apply.arg"); argtab[3].bp_long = 2649; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2649:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2649:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2649:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.IFCPP___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2642:/ clear"); /*clear*/ /*_.OSUBCOMP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2642:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2642:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2638:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2638:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2638:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2638:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2638:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2638:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJMULTIBLOCK", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_86_PUTOBJDEST_OBJMULTIBLOCK*/ static basilys_ptr_t rout_87_PUTOBJDEST_OBJLOOP(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_87_PUTOBJDEST_OBJLOOP_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 18 void* varptr[18]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJLOOP", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2653:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2653:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2653:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2654:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2654:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2654:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2654:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2654:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2654:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2654)?(2654):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2654:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2654:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2654:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2655:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2655:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2655:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2655:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2655:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2655:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2655)?(2655):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2655:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2655:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2655:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2656:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2656:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2657:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OBLOOP_RESV");/*_.RESV__V9*/ curfptr[8] = slot; }; ; /*_.DESTLIST__V10*/ curfptr[9] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; BASILYS_LOCATION("warmelt-genobj.melt:2659:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2659:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V12*/ curfptr[11] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2659:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11]))));basilys_putfield_object((/*_.INST__V12*/ curfptr[11]), (1), (/*_.DESTLIST__V10*/ curfptr[9]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2659:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11]))));basilys_putfield_object((/*_.INST__V12*/ curfptr[11]), (2), (/*_.RESV__V9*/ curfptr[8]), "OBCPT_EXPR"); ; /*_.OBC__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIST__V10*/ curfptr[9]), (basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2666:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2666:/ block"); /*block*/{ /*_#IS_LIST__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.EPIL__V8*/ curfptr[6])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:2666:/ cond"); /*cond*/ if (/*_#IS_LIST__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2666:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2666:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2666:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check epil"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2666)?(2666):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2666:/ clear"); /*clear*/ /*_#IS_LIST__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2666:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2666:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2667:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2667:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RESV__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2667:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2667:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2667:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2667:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check resv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2667)?(2667):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2667:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2667:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2667:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.EPIL__V8*/ curfptr[6]), (basilys_ptr_t)(/*_.OBC__V11*/ curfptr[10])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2656:/ clear"); /*clear*/ /*_.EPIL__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2656:/ clear"); /*clear*/ /*_.RESV__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2656:/ clear"); /*clear*/ /*_.DESTLIST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2656:/ clear"); /*clear*/ /*_.OBC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2656:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2656:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2670:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2670:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2670:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2670:/ apply.arg"); argtab[0].bp_cstring = "putobjdest loop updated recv"; BASILYS_LOCATION("warmelt-genobj.melt:2670:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2670:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2670:/ apply.arg"); argtab[3].bp_long = 2670; /*_.DEBUG_MSG_FUN__V18*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2670:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2670:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2670:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2653:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:2653:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2653:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2653:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2653:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJLOOP", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_87_PUTOBJDEST_OBJLOOP*/ static basilys_ptr_t rout_88_PUTOBJDEST_OBJEXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_88_PUTOBJDEST_OBJEXIT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJEXIT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2677:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2677:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2677:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2678:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2678:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2678:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2678:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2678:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2678:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2678)?(2678):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2678:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2678:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2678:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2679:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2679:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2679:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2679:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2679:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2679:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2679)?(2679):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2679:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2679:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2679:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2677:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-genobj.melt:2677:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2677:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2677:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJEXIT", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_88_PUTOBJDEST_OBJEXIT*/ static basilys_ptr_t rout_89_COMPILOBJ_NREP_IF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_89_COMPILOBJ_NREP_IF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_IF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2687:/ getarg"); /*_.RIF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2687:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2687:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2688:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2688:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_IF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2688:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2688:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2688:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2688:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2688)?(2688):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2688:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2688:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2688:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2689:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2689:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2689:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2689:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2689:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2689:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2689)?(2689):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2689:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2689:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2689:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2690:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2690:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2690:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2690:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_if rif"; BASILYS_LOCATION("warmelt-genobj.melt:2690:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2690:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2690:/ apply.arg"); argtab[3].bp_long = 2690; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2690:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2690:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2690:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2691:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2692:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 4, "NIF_TEST");/*_.NTEST__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2693:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 2, "NIF_THEN");/*_.NTHEN__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2694:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 3, "NIF_ELSE");/*_.NELSE__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2695:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V15*/ curfptr[14] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2697:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2697:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCTYP__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2697:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2697:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2697:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2697:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2697)?(2697):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2697:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2697:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2697:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2698:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2698:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OTEST__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.NTEST__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2699:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2699:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OTHEN__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NTHEN__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L5*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:2700:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2700:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2700:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2701:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2701:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.COMPILE_OBJ__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OELSE__V21*/ curfptr[20] = /*_.COMPILE_OBJ__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2700:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2700:/ cond.else"); /*_.OELSE__V21*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:2702:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2702:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[6])), (4), "CLASS_OBJCOND");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OTEST__V19*/ curfptr[18]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.OTHEN__V20*/ curfptr[19]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.OELSE__V21*/ curfptr[20]), "OBCOND_ELSE"); ; /*_.OBIF__V23*/ curfptr[21] = /*_.INST__V24*/ curfptr[23];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2708:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2708:/ block"); /*block*/{ /*_#NOTNULL__L6*/ curfnum[5] = ((/*_.OTEST__V19*/ curfptr[18]) != NULL);; BASILYS_LOCATION("warmelt-genobj.melt:2708:/ cond"); /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2708:/ cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2708:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2708:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check otest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2708)?(2708):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[24] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2708:/ clear"); /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2708:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2708:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2709:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2709:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2709:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2709:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_if obif"; BASILYS_LOCATION("warmelt-genobj.melt:2709:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2709:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2709:/ apply.arg"); argtab[3].bp_long = 2709; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBIF__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2709:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2709:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2709:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V18*/ curfptr[16] = /*_.OBIF__V23*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_.OTEST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_.OTHEN__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_.OELSE__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_.OBIF__V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2698:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V18*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.NTEST__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.NTHEN__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.NELSE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.NCTYP__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2691:/ clear"); /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2687:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2687:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2687:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2687:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2687:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2687:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_IF", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_89_COMPILOBJ_NREP_IF*/ static basilys_ptr_t rout_90_COMPILOBJ_NREP_IFISA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_90_COMPILOBJ_NREP_IFISA_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 34 void* varptr[34]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<34; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 34; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_IFISA", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2716:/ getarg"); /*_.RIF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2716:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2716:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2717:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2717:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2717:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2717:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2717:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2717:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2717)?(2717):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2717:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2717:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2717:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2718:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2718:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2718:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2718:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2718:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2718:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2718)?(2718):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2718:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2718:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2718:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2719:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2719:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2719:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2719:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_ifisa rif"; BASILYS_LOCATION("warmelt-genobj.melt:2719:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2719:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2719:/ apply.arg"); argtab[3].bp_long = 2719; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2719:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2719:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2719:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2720:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2721:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 2, "NIF_THEN");/*_.NTHEN__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2722:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 3, "NIF_ELSE");/*_.NELSE__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2723:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2724:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 4, "NIFA_VAL");/*_.NVAL__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2725:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 5, "NIFA_CLASS");/*_.NCLA__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2727:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2727:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCTYP__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2727:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2727:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2727:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2727:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2727)?(2727):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2727:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2727:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2727:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2728:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2728:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OTHEN__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NTHEN__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2729:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2729:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OVAL__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.NVAL__V15*/ curfptr[14]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2730:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2730:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OCLA__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.NCLA__V16*/ curfptr[15]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L5*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NELSE__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-genobj.melt:2731:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2731:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2731:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2732:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2732:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.COMPILE_OBJ__V24*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.NELSE__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OELSE__V23*/ curfptr[22] = /*_.COMPILE_OBJ__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2731:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V24*/ curfptr[23] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2731:/ cond.else"); /*_.OELSE__V23*/ curfptr[22] = NULL;; } ; /*_.MAKE_STRINGCONST__V25*/ curfptr[23] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[8])), ( "/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(")));; /*_.MAKE_STRINGCONST__V26*/ curfptr[25] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[8])), ( "), (basilys_ptr_t)(")));; /*_.MAKE_STRINGCONST__V27*/ curfptr[26] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[8])), ( "))")));; /*_.MAKE_TUPLE5__V28*/ curfptr[27] = (basilysgc_new_mult5((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V25*/ curfptr[23]), (basilys_ptr_t)(/*_.OVAL__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V26*/ curfptr[25]), (basilys_ptr_t)(/*_.OCLA__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V27*/ curfptr[26])));; BASILYS_LOCATION("warmelt-genobj.melt:2733:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2733:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[6])), (2), "CLASS_OBJEXPV");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2733:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.MAKE_TUPLE5__V28*/ curfptr[27]), "OBX_CONT"); ; /*_.OTEST__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2745:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2745:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[9])), (4), "CLASS_OBJCOND");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2745:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2745:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.OTEST__V29*/ curfptr[28]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:2745:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.OTHEN__V20*/ curfptr[19]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2745:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.OELSE__V23*/ curfptr[22]), "OBCOND_ELSE"); ; /*_.OBIF__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2751:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2751:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2751:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2751:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_ifisa obif"; BASILYS_LOCATION("warmelt-genobj.melt:2751:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2751:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2751:/ apply.arg"); argtab[3].bp_long = 2751; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBIF__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2751:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2751:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2751:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V19*/ curfptr[17] = /*_.OBIF__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.OTHEN__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.OVAL__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.OCLA__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.OELSE__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.MAKE_TUPLE5__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.OTEST__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.OBIF__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2728:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V19*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.NTHEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.NELSE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.NCTYP__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.NVAL__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.NCLA__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2720:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2716:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2716:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2716:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2716:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2716:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2716:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_IFISA", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_90_COMPILOBJ_NREP_IFISA*/ static basilys_ptr_t rout_91_PUTOBJDEST_OBJCOND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_91_PUTOBJDEST_OBJCOND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJCOND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2758:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2758:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2758:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2761:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2761:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2761:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2761:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2761:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2761:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2761)?(2761):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2761:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2761:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2761:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2762:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2762:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2762:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2762:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2762:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2762:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2762)?(2762):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2762:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2762:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2762:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2763:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2763:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBCOND_THEN");/*_.OTHEN__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2764:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OBCOND_ELSE");/*_.OELSE__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2768:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2768:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2768:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DESTO__V3*/ curfptr[2]; /*_.DTHEN__V12*/ curfptr[11] = basilysgc_send((basilys_ptr_t)(/*_.OTHEN__V9*/ curfptr[8]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2769:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2769:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DESTO__V3*/ curfptr[2]; /*_.DELSE__V13*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.OELSE__V10*/ curfptr[9]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2772:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2772:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]))));basilys_putfield_object((/*_.RECV__V2*/ curfptr[1]), (2), (/*_.DTHEN__V12*/ curfptr[11]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2772:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]))));basilys_putfield_object((/*_.RECV__V2*/ curfptr[1]), (3), (/*_.DELSE__V13*/ curfptr[12]), "OBCOND_ELSE"); ; BASILYS_LOCATION("warmelt-genobj.melt:2772:/ touch"); basilysgc_touch(/*_.RECV__V2*/ curfptr[1]); ; /*epilog*/} ; /*_.LET___V11*/ curfptr[10] = /*_.RECV__V2*/ curfptr[1];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2768:/ clear"); /*clear*/ /*_.DTHEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2768:/ clear"); /*clear*/ /*_.DELSE__V13*/ curfptr[12] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.LET___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2763:/ clear"); /*clear*/ /*_.OTHEN__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2763:/ clear"); /*clear*/ /*_.OELSE__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2763:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2758:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:2758:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2758:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2758:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2758:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJCOND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_91_PUTOBJDEST_OBJCOND*/ static basilys_ptr_t rout_92_COMPILOBJ_NREP_CPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_92_COMPILOBJ_NREP_CPPIF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_CPPIF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2782:/ getarg"); /*_.PIF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2782:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2782:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2783:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2783:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_CPPIF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2783:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2783:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2783:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2783:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2783)?(2783):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2783:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2783:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2783:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2784:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2784:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2784:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2784:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2784:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2784:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2784)?(2784):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2784:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2784:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2784:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2785:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2785:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2785:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2785:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_cppif pif"; BASILYS_LOCATION("warmelt-genobj.melt:2785:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2785:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2785:/ apply.arg"); argtab[3].bp_long = 2785; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2785:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2785:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2785:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2786:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2787:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 1, "NIFP_COND");/*_.NCOND__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2788:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 2, "NIFP_THEN");/*_.NTHEN__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2789:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 3, "NIFP_ELSE");/*_.NELSE__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2790:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 4, "NIFP_CTYP");/*_.CTYP__V15*/ curfptr[14] = slot; }; ; /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCOND__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2792:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2792:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2792:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2792:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCOND__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; }; ; /*_.SCOND__V16*/ curfptr[15] = /*_.NAMED_NAME__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2792:/ clear"); /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:2792:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2792:/ block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.NCOND__V12*/ curfptr[11])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:2793:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2793:/ cond.then"); /*_.IFELSE___V18*/ curfptr[16] = /*_.NCOND__V12*/ curfptr[11];; } else {BASILYS_LOCATION("warmelt-genobj.melt:2793:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2793:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2794:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2794:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2794:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2794:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2794:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2794:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "invalid ncond in nrep_cppif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2794)?(2794):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2794:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2794:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2794:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[19] = /*_.IFCPP___V19*/ curfptr[18];;} ; /*_.IFELSE___V18*/ curfptr[16] = /*_.PROGN___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2793:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2793:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;} ; } ; /*_.SCOND__V16*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2792:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2792:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[16] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:2795:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2795:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OTHEN__V22*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.NTHEN__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2796:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2796:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OELSE__V23*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2797:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2797:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[5])), (4), "CLASS_OBJCPPIF");/*_.INST__V25*/ curfptr[24] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2797:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2797:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (1), (/*_.SCOND__V16*/ curfptr[15]), "OBIFP_COND"); ; BASILYS_LOCATION("warmelt-genobj.melt:2797:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.OTHEN__V22*/ curfptr[18]), "OBIFP_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2797:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (3), (/*_.OELSE__V23*/ curfptr[19]), "OBIFP_ELSE"); ; /*_.RES__V24*/ curfptr[16] = /*_.INST__V25*/ curfptr[24];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2803:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2803:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2803:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2803:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_cppif result"; BASILYS_LOCATION("warmelt-genobj.melt:2803:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:2803:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2803:/ apply.arg"); argtab[3].bp_long = 2803; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2803:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2803:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2803:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2804:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[16];; BASILYS_LOCATION("warmelt-genobj.melt:2804:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.NCOND__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.NTHEN__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.NELSE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.CTYP__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.SCOND__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.OTHEN__V22*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.OELSE__V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2786:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2782:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2782:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2782:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2782:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2782:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2782:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_CPPIF", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_92_COMPILOBJ_NREP_CPPIF*/ static basilys_ptr_t rout_93_PUTOBJDEST_OBJCPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_93_PUTOBJDEST_OBJCPPIF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("PUTOBJDEST_OBJCPPIF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2810:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2810:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2810:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2813:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2813:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2813:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2813:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2813:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2813:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2813)?(2813):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2813:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2813:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2813:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2814:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2814:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2814:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2814:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2814:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2814:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2814)?(2814):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2814:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2814:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2814:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2815:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2815:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBIFP_THEN");/*_.OTHEN__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2816:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OBIFP_ELSE");/*_.OELSE__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2820:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2820:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2820:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DESTO__V3*/ curfptr[2]; /*_.DTHEN__V12*/ curfptr[11] = basilysgc_send((basilys_ptr_t)(/*_.OTHEN__V9*/ curfptr[8]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2821:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2821:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DESTO__V3*/ curfptr[2]; /*_.DELSE__V13*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.OELSE__V10*/ curfptr[9]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2824:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2824:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]))));basilys_putfield_object((/*_.RECV__V2*/ curfptr[1]), (2), (/*_.DTHEN__V12*/ curfptr[11]), "OBIFP_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2824:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]))));basilys_putfield_object((/*_.RECV__V2*/ curfptr[1]), (3), (/*_.DELSE__V13*/ curfptr[12]), "OBIFP_ELSE"); ; BASILYS_LOCATION("warmelt-genobj.melt:2824:/ touch"); basilysgc_touch(/*_.RECV__V2*/ curfptr[1]); ; /*epilog*/} ; /*_.LET___V11*/ curfptr[10] = /*_.RECV__V2*/ curfptr[1];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2820:/ clear"); /*clear*/ /*_.DTHEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2820:/ clear"); /*clear*/ /*_.DELSE__V13*/ curfptr[12] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.LET___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2815:/ clear"); /*clear*/ /*_.OTHEN__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2815:/ clear"); /*clear*/ /*_.OELSE__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2815:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2810:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:2810:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2810:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2810:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2810:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("PUTOBJDEST_OBJCPPIF", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_93_PUTOBJDEST_OBJCPPIF*/ static basilys_ptr_t rout_94_COMPILOBJ_NREP_RETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_94_COMPILOBJ_NREP_RETURN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 34 void* varptr[34]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<34; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 34; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_RETURN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2834:/ getarg"); /*_.NRET__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2834:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2834:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2835:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2835:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NRET__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2835:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2835:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2835:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2835:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nret"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2835)?(2835):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2835:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2835:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2835:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2836:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2836:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2836:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2836:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2836:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2836:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2836)?(2836):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2836:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2836:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2836:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2838:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2838:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2838:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2838:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_return nret"; BASILYS_LOCATION("warmelt-genobj.melt:2838:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2838:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2838:/ apply.arg"); argtab[3].bp_long = 2838; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NRET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2838:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2838:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2838:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2839:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.RLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2840:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 1, "NRET_MAIN");/*_.RMAIN__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2841:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 2, "NRET_REST");/*_.RREST__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2842:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 5, "GNCX_RETLOC");/*_.RETLOC__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2843:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V15*/ curfptr[14] = slot; }; ; /*_.OLIS__V16*/ curfptr[15] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-genobj.melt:2845:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2845:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V18*/ curfptr[17] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2845:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17]))));basilys_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.RLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2845:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17]))));basilys_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.OLIS__V16*/ curfptr[15]), "OBLO_BODYL"); ; /*_.OBLOCK__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2848:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2848:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OMAINV__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.RMAIN__V12*/ curfptr[11]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2850:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2850:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:2850:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2850:/ cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2850:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2850:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2850)?(2850):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2850:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2850:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2850:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2851:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2851:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2851:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2851:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_return rrest"; BASILYS_LOCATION("warmelt-genobj.melt:2851:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2851:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2851:/ apply.arg"); argtab[3].bp_long = 2851; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RREST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2851:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2851:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2851:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2852:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2852:/ block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0] = ((/*_.RREST__V13*/ curfptr[12]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.RREST__V13*/ curfptr[12])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-genobj.melt:2852:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2852:/ cond.then"); /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2852:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2852:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rrest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2852)?(2852):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2852:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2852:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2852:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2853:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V15*/ curfptr[14]), 7, "OBROUT_RETVAL");/*_.OBROUT_RETVAL__V26*/ curfptr[24] = slot; }; ; /*_#NULL__L7*/ curfnum[0] = ((/*_.OBROUT_RETVAL__V26*/ curfptr[24]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:2853:/ cond"); /*cond*/ if (/*_#NULL__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2853:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:2853:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2854:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2854:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OROUT__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.OROUT__V15*/ curfptr[14]))));basilys_putfield_object((/*_.OROUT__V15*/ curfptr[14]), (7), (/*_.RETLOC__V14*/ curfptr[13]), "OBROUT_RETVAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:2854:/ touch"); basilysgc_touch(/*_.OROUT__V15*/ curfptr[14]); ; /*epilog*/} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2855:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2855:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.RETLOC__V14*/ curfptr[13]; /*_.PUT_OBJDEST__V27*/ curfptr[26] = basilysgc_send((basilys_ptr_t)(/*_.OMAINV__V19*/ curfptr[18]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIS__V16*/ curfptr[15]), (basilys_ptr_t)(/*_.PUT_OBJDEST__V27*/ curfptr[26])); BASILYS_LOCATION("warmelt-genobj.melt:2858:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2858:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:2858:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (basilys_ptr_t)(/*_.RLOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:2858:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:2858:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (basilys_ptr_t)(/*_.OLIS__V16*/ curfptr[15]); ; /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2856:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2856:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27]; /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.RREST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2869:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2869:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[13])), (1), "CLASS_OBJFINALRETURN");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2869:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.RLOC__V11*/ curfptr[10]), "OBI_LOC"); ; /*_.INST___V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIS__V16*/ curfptr[15]), (basilys_ptr_t)(/*_.INST___V31*/ curfptr[30])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2871:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2871:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2871:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2871:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_return final oblock"; BASILYS_LOCATION("warmelt-genobj.melt:2871:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-genobj.melt:2871:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2871:/ apply.arg"); argtab[3].bp_long = 2871; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOCK__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2871:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2871:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2871:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.RLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.RMAIN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.RREST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.RETLOC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.OROUT__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.OLIS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.OBLOCK__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.OMAINV__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.OBROUT_RETVAL__V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_#NULL__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.PUT_OBJDEST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.INST___V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2839:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2834:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2834:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2834:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2834:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2834:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2834:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_RETURN", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_94_COMPILOBJ_NREP_RETURN*/ static basilys_ptr_t rout_95_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_95_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2858:/ getarg"); /*_.RXTRA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2858:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2858:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2860:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V3*/ curfptr[2] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#IX__L1*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2864:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2864:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]); /*_.COMPILE_OBJ__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.RXTRA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2861:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2861:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTXTRARESULT*/ curfrout->tabval[0])), (3), "CLASS_OBJPUTXTRARESULT");/*_.INST__V6*/ curfptr[5] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2861:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), ((/*~RLOC*/ curfclos->tabval[0])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2861:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.MAKE_INTEGERBOX__V3*/ curfptr[2]), "OBXRES_RANK"); ; BASILYS_LOCATION("warmelt-genobj.melt:2861:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.COMPILE_OBJ__V4*/ curfptr[3]), "OBXRES_OBLOC"); ; /*_.OXRES__V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OLIS*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.OXRES__V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2860:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2860:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2860:/ clear"); /*clear*/ /*_.OXRES__V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_95_LAMBDA_*/ static basilys_ptr_t rout_96_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_96_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2878:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2878:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2878:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2878:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);; BASILYS_LOCATION("warmelt-genobj.melt:2878:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_96_LAMBDA_*/ static basilys_ptr_t rout_97_COMPILOBJ_NREP_LAMBDA(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_97_COMPILOBJ_NREP_LAMBDA_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 40 void* varptr[40]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<40; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 40; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_LAMBDA", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2886:/ getarg"); /*_.NLAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2886:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2886:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2887:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2887:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2887:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2887:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2887:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2887:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2887)?(2887):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2887:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2887:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2887:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2888:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2888:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2888:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2888:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2888:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2888:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nlam"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2888)?(2888):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2888:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2888:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2888:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2889:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2889:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2889:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2889:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_lambda nlam"; BASILYS_LOCATION("warmelt-genobj.melt:2889:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2889:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2889:/ apply.arg"); argtab[3].bp_long = 2889; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2889:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2889:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2889:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2890:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2891:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2892:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 1, "NLAMBDA_PROC");/*_.CHECKPRO__V13*/ curfptr[12] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2893:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2893:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CHECKPRO__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2893:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2893:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2893:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2893:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check checkpro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2893)?(2893):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2893:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2893:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2893:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V12*/ curfptr[11] = /*_.CHECKPRO__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2891:/ clear"); /*clear*/ /*_.CHECKPRO__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2891:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;} ; /*_.NPRO__V16*/ curfptr[14] = /*_.LET___V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:2895:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V16*/ curfptr[14]), 2, "NRPRO_NAME");/*_.NAM__V17*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2896:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 3, "NLAMBDA_CLOSEDV");/*_.NCLOVTUP__V18*/ curfptr[13] = slot; }; ; /*_#NBCLOSED__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.NCLOVTUP__V18*/ curfptr[13])));; BASILYS_LOCATION("warmelt-genobj.melt:2898:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2898:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAM__V17*/ curfptr[12]; /*_.LOCV__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2899:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 2, "NLAMBDA_CONSTROUT");/*_.NROU__V20*/ curfptr[19] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2900:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V21*/ curfptr[20] = slot; }; ; /*_.OLIS__V22*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-genobj.melt:2902:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2902:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[6])), (3), "CLASS_OBJBLOCK");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2902:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2902:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OLIS__V22*/ curfptr[21]), "OBLO_BODYL"); ; /*_.OBLOCK__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} ; /*_.DESTLIST__V25*/ curfptr[24] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIST__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.LOCV__V19*/ curfptr[18])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2915:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2915:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2915:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2915:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_lambda should use nrpro_thunklist nrou"; BASILYS_LOCATION("warmelt-genobj.melt:2915:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2915:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2915:/ apply.arg"); argtab[3].bp_long = 2915; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NROU__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2915:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2915:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2915:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2916:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2916:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2916:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.CROU__V29*/ curfptr[28] = basilysgc_send((basilys_ptr_t)(/*_.NROU__V20*/ curfptr[19]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2917:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2917:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2917:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2917:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_lambda crou"; BASILYS_LOCATION("warmelt-genobj.melt:2917:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2917:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2917:/ apply.arg"); argtab[3].bp_long = 2917; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CROU__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2917:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2917:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2917:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V28*/ curfptr[26] = /*_.CROU__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2916:/ clear"); /*clear*/ /*_.CROU__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2916:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2914:/ block"); /*block*/{ /*_.PROGN___V32*/ curfptr[30] = /*_.LET___V28*/ curfptr[26];;} ; /*_.MAKE_INTEGERBOX__V33*/ curfptr[28] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NBCLOSED__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2909:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2909:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJNEWCLOSURE*/ curfrout->tabval[7])), (5), "CLASS_OBJNEWCLOSURE");/*_.INST__V35*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2909:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2909:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), ((/*!DISCRCLOSURE_OBJPREDEF*/ curfrout->tabval[8])), "OBNCLO_DISCR"); ; BASILYS_LOCATION("warmelt-genobj.melt:2909:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.PROGN___V32*/ curfptr[30]), "OBNCLO_ROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:2909:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.MAKE_INTEGERBOX__V33*/ curfptr[28]), "OBNCLO_LEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2909:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.DESTLIST__V25*/ curfptr[24]), "OBDI_DESTLIST"); ; /*_.INST___V34*/ curfptr[29] = /*_.INST__V35*/ curfptr[34];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIS__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.INST___V34*/ curfptr[29])); BASILYS_LOCATION("warmelt-genobj.melt:2924:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2924:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (4)); ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (basilys_ptr_t)(/*_.OLIS__V22*/ curfptr[21]); ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[1] = (basilys_ptr_t)(/*_.NLOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[2] = (basilys_ptr_t)(/*_.LOCV__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[3] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2922:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2922:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35]; /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCLOVTUP__V18*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIS__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.LOCV__V19*/ curfptr[18])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2935:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2935:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2935:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2935:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_lambda result oblock"; BASILYS_LOCATION("warmelt-genobj.melt:2935:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2935:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2935:/ apply.arg"); argtab[3].bp_long = 2935; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOCK__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2935:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2935:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2935:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.NPRO__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.NAM__V17*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.NCLOVTUP__V18*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_#NBCLOSED__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.LOCV__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.NROU__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.OROUT__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.OLIS__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.OBLOCK__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.DESTLIST__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.PROGN___V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V33*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2890:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2886:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2886:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2886:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2886:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2886:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2886:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_LAMBDA", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_97_COMPILOBJ_NREP_LAMBDA*/ static basilys_ptr_t rout_98_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_98_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 8 void* varptr[8]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2924:/ getarg"); /*_.CLOV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2924:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2924:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2925:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2925:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2925:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2925:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_lambda clov"; BASILYS_LOCATION("warmelt-genobj.melt:2925:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:2925:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2925:/ apply.arg"); argtab[3].bp_long = 2925; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2925:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2925:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2925:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L1*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2932:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2932:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[3]); /*_.COMPILE_OBJ__V6*/ curfptr[5] = basilysgc_send((basilys_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2928:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2928:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV");/*_.INST__V8*/ curfptr[7] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2928:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2928:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), ((/*~LOCV*/ curfclos->tabval[2])), "OPCLOV_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:2928:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), (/*_.MAKE_INTEGERBOX__V5*/ curfptr[3]), "OPCLOV_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:2928:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (3), (/*_.COMPILE_OBJ__V6*/ curfptr[5]), "OPCLOV_CVAL"); ; /*_.INST___V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;} ; basilysgc_append_list((basilys_ptr_t)((/*~OLIS*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.INST___V7*/ curfptr[6])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2924:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2924:/ clear"); /*clear*/ /*_.INST___V7*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_98_LAMBDA_*/ static basilys_ptr_t rout_99_COMPILOBJ_NREP_MAKEINST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_99_COMPILOBJ_NREP_MAKEINST_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 33 void* varptr[33]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<33; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 33; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_MAKEINST", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2941:/ getarg"); /*_.NMKI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2941:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2941:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2942:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2942:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2942:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2942:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2942:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2942:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2942)?(2942):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2942:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2942:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2942:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2943:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2943:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MAKE_INSTANCE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2943:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2943:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2943:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2943:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nmki"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2943)?(2943):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2943:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2943:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2943:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2944:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2944:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2944:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2944:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_makeinst nmki"; BASILYS_LOCATION("warmelt-genobj.melt:2944:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:2944:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2944:/ apply.arg"); argtab[3].bp_long = 2944; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2944:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2944:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2944:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2946:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2946:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2947:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 1, "NMINS_CLASS");/*_.NCLA__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2948:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 2, "NMINS_CLADATA");/*_.NCLADAT__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2949:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 3, "NMINS_FIELDS");/*_.NFIELDS__V14*/ curfptr[13] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2951:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2951:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:2951:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2951:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2951:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2951:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncla"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2951)?(2951):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2951:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2951:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2951:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2952:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V18*/ curfptr[17] = slot; }; ; /*_#NBFLD__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V18*/ curfptr[17])));; /*_.DESTLIST__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-genobj.melt:2954:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2954:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_6_INST*/ curfrout->tabval[6]); /*_.LOCV__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OLIS__V21*/ curfptr[20] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-genobj.melt:2956:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2956:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OCLADAT__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.NCLADAT__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:2957:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2957:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[8])), (3), "CLASS_OBJBLOCK");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2957:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2957:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OLIS__V21*/ curfptr[20]), "OBLO_BODYL"); ; /*_.OBLOCK__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} ; /*_.MAKE_INTEGERBOX__V25*/ curfptr[24] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NBFLD__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2964:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2960:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2960:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJRAWALLOCOBJ*/ curfrout->tabval[9])), (5), "CLASS_OBJRAWALLOCOBJ");/*_.INST__V28*/ curfptr[27] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2960:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2960:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.OCLADAT__V22*/ curfptr[21]), "OBRALLOBJ_CLASS"); ; BASILYS_LOCATION("warmelt-genobj.melt:2960:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.MAKE_INTEGERBOX__V25*/ curfptr[24]), "OBRALLOBJ_LEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:2960:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (4), (/*_.NAMED_NAME__V26*/ curfptr[25]), "OBRALLOBJ_CLASSNAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:2960:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIST__V19*/ curfptr[18]), "OBDI_DESTLIST"); ; /*_.ORALLOBJ__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.DESTLIST__V19*/ curfptr[18]), (basilys_ptr_t)(/*_.LOCV__V20*/ curfptr[19])); basilysgc_append_list((basilys_ptr_t)(/*_.OLIS__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.ORALLOBJ__V27*/ curfptr[26])); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2972:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (4)); ; BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (basilys_ptr_t)(/*_.OLIS__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (basilys_ptr_t)(/*_.NLOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[3] = (basilys_ptr_t)(/*_.LOCV__V20*/ curfptr[19]); ; /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2970:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2970:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28]; /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NFIELDS__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIS__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.LOCV__V20*/ curfptr[19])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2991:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2991:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:2991:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2991:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_makeinst result oblock"; BASILYS_LOCATION("warmelt-genobj.melt:2991:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:2991:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:2991:/ apply.arg"); argtab[3].bp_long = 2991; /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBLOCK__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2991:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2991:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2991:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V17*/ curfptr[15] = /*_.OBLOCK__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_#NBFLD__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.DESTLIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.LOCV__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.OLIS__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.OCLADAT__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.OBLOCK__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.ORALLOBJ__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2952:/ clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[31] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V17*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2946:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2946:/ clear"); /*clear*/ /*_.NCLA__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2946:/ clear"); /*clear*/ /*_.NCLADAT__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2946:/ clear"); /*clear*/ /*_.NFIELDS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2946:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2946:/ clear"); /*clear*/ /*_.LET___V17*/ curfptr[15] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:2941:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:2941:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2941:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2941:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2941:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2941:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_MAKEINST", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_99_COMPILOBJ_NREP_MAKEINST*/ static basilys_ptr_t rout_100_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_100_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 17 void* varptr[17]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2972:/ getarg"); /*_.CFLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2972:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2972:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2973:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2973:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:2973:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2973:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2973:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2973:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_makeinst check cfla"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2973)?(2973):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2973:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2973:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2973:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2974:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2974:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.CFLOC__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2975:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 1, "NFLA_FIELD");/*_.CFIELD__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2976:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 2, "NFLA_VAL");/*_.CVAL__V7*/ curfptr[6] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2977:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2977:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CFIELD__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2977:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2977:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2977:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2977:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_makeinst check cfield"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2977)?(2977):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2977:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2977:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2977:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2980:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2980:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2980:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]); /*_.OVAL__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.CVAL__V7*/ curfptr[6]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:2981:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:2981:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OVAL__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[3])));; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_A__L4*/ curfnum[1]));; BASILYS_LOCATION("warmelt-genobj.melt:2981:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2981:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:2981:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:2981:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_nrep_makeinst check oval not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(2981)?(2981):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2981:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2981:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2981:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:2981:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2983:/ cond"); /*cond*/ if (/*_.CFLOC__V5*/ curfptr[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:2983:/ cond.then"); /*_.IFELSE___V14*/ curfptr[12] = /*_.CFLOC__V5*/ curfptr[3];; } else {BASILYS_LOCATION("warmelt-genobj.melt:2983:/ cond.else"); /*_.IFELSE___V14*/ curfptr[12] = (/*~NLOC*/ curfclos->tabval[2]);; } ; /*_#GET_INT__L6*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.CFIELD__V6*/ curfptr[5])));; /*_.MAKE_INTEGERBOX__V15*/ curfptr[14] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#GET_INT__L6*/ curfnum[1])));; BASILYS_LOCATION("warmelt-genobj.melt:2982:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2982:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[4])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:2982:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.IFELSE___V14*/ curfptr[12]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:2982:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*~LOCV*/ curfclos->tabval[3])), "OSLOT_ODATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:2982:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), (/*_.CFIELD__V6*/ curfptr[5]), "OSLOT_FIELD"); ; BASILYS_LOCATION("warmelt-genobj.melt:2982:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.MAKE_INTEGERBOX__V15*/ curfptr[14]), "OSLOT_OFFSET"); ; BASILYS_LOCATION("warmelt-genobj.melt:2982:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (4), (/*_.OVAL__V11*/ curfptr[10]), "OSLOT_VALUE"); ; /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; /*_.LET___V10*/ curfptr[8] = /*_.INST___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2980:/ clear"); /*clear*/ /*_.OVAL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2980:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2980:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2980:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2980:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2980:/ clear"); /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;} ; basilysgc_append_list((basilys_ptr_t)((/*~OLIS*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.LET___V10*/ curfptr[8])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2974:/ clear"); /*clear*/ /*_.CFLOC__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2974:/ clear"); /*clear*/ /*_.CFIELD__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2974:/ clear"); /*clear*/ /*_.CVAL__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2974:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2974:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2972:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_100_LAMBDA_*/ static basilys_ptr_t rout_101_COMPILOBJ_ROUTPROC(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_101_COMPILOBJ_ROUTPROC_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_ROUTPROC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:2999:/ getarg"); /*_.NPRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:2999:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:2999:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3000:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3000:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3000:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3000:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3000:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3000:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3000)?(3000):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3000:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3000:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3000:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3001:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3001:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3001:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3001:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3001:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3001:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3001)?(3001):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3001:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3001:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3001:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3002:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3002:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3002:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3002:/ apply.arg"); argtab[0].bp_cstring = "compilobj_routproc gcx"; BASILYS_LOCATION("warmelt-genobj.melt:3002:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3002:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3002:/ apply.arg"); argtab[3].bp_long = 3002; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3002:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3002:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3002:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3003:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3003:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3003:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3003:/ apply.arg"); argtab[0].bp_cstring = "compilobj_routproc npro"; BASILYS_LOCATION("warmelt-genobj.melt:3003:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3003:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3003:/ apply.arg"); argtab[3].bp_long = 3003; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3003:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3003:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3003:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3004:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3004:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3004:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3004:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3004:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3004:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "UNEXPECTED CALL TO compilobj_routproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3004)?(3004):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3004:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3004:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:2999:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:2999:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:2999:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2999:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2999:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2999:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:2999:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_ROUTPROC", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_101_COMPILOBJ_ROUTPROC*/ static basilys_ptr_t rout_102_COMPILOBJ_PREDEF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_102_COMPILOBJ_PREDEF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_PREDEF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3009:/ getarg"); /*_.NPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3009:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3009:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3010:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3010:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3010:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3010:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3010:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3010:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3010)?(3010):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3010:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3010:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3010:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3012:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3014:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPR__V2*/ curfptr[1]), 1, "NRPREDEF");/*_.NRPREDEF__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3012:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3012:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPREDEF*/ curfrout->tabval[1])), (2), "CLASS_OBJPREDEF");/*_.INST__V9*/ curfptr[8] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3012:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V9*/ curfptr[8]))));basilys_putfield_object((/*_.INST__V9*/ curfptr[8]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[2])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:3012:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V9*/ curfptr[8]))));basilys_putfield_object((/*_.INST__V9*/ curfptr[8]), (1), (/*_.NRPREDEF__V7*/ curfptr[6]), "OBPREDEF"); ; /*_.OPR__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;} ; /*_.LET___V6*/ curfptr[4] = /*_.OPR__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3012:/ clear"); /*clear*/ /*_.NRPREDEF__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3012:/ clear"); /*clear*/ /*_.OPR__V8*/ curfptr[7] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3009:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-genobj.melt:3009:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3009:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3009:/ clear"); /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_PREDEF", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_102_COMPILOBJ_PREDEF*/ static basilys_ptr_t rout_103_COMPIL_DATA_AND_SLOTS_FILL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_103_COMPIL_DATA_AND_SLOTS_FILL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 84 void* varptr[84]; #define CURFRAM_NBVARNUM 18 long varnum[18]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<84; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 84; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPIL_DATA_AND_SLOTS_FILL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ getarg"); /*_.NDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.OBJ__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.ODISCR__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ODISCR__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.IROUT__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IROUT__V5*/ curfptr[4])) != NULL); /*getarg#4*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V6*/ curfptr[5])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3028:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3028:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3028:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3028:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3028:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3028:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check ndat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3028)?(3028):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3028:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3028:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3028:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3029:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3029:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3029:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3029:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3029:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3029:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check obj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3029)?(3029):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3029:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3029:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3029:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3030:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3030:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODISCR__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3030:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3030:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3030:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3030:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check odiscr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3030)?(3030):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3030:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3030:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3030:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3031:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3031:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:3031:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3031:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3031:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3031:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check irout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3031)?(3031):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3031:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3031:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3031:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3032:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3032:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:3032:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3032:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3032:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3032:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3032)?(3032):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3032:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3032:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3032:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3033:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3033:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3033:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3033:/ apply.arg"); argtab[0].bp_cstring = "compil_data_and_slots_fill start ndat"; BASILYS_LOCATION("warmelt-genobj.melt:3033:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3033:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3033:/ apply.arg"); argtab[3].bp_long = 3033; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3033:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3033:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3033:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3034:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3034:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3034:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3034:/ apply.arg"); argtab[0].bp_cstring = "compil_data_and_slots_fill start obj"; BASILYS_LOCATION("warmelt-genobj.melt:3034:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3034:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3034:/ apply.arg"); argtab[3].bp_long = 3034; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3034:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3034:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3034:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3035:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3035:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3035:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3035:/ apply.arg"); argtab[0].bp_cstring = "compil_data_and_slots_fill odiscr"; BASILYS_LOCATION("warmelt-genobj.melt:3035:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3035:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3035:/ apply.arg"); argtab[3].bp_long = 3035; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ODISCR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3035:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3035:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3035:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3036:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3036:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3036:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3036:/ apply.arg"); argtab[0].bp_cstring = "compil_data_and_slots_fill irout un"; BASILYS_LOCATION("warmelt-genobj.melt:3036:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3036:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3036:/ apply.arg"); argtab[3].bp_long = 3036; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3036:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3036:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3036:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:3038:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3038:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3038:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3038:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 6, "NINST_PREDEF");/*_.NINST_PREDEF__V27*/ curfptr[26] = slot; }; ; /*_.IPREDEF__V26*/ curfptr[25] = /*_.NINST_PREDEF__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3038:/ clear"); /*clear*/ /*_.NINST_PREDEF__V27*/ curfptr[26] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3038:/ cond.else"); /*_.IPREDEF__V26*/ curfptr[25] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3039:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), 3, "OBROUT_BODY");/*_.IBODYLIS__V28*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3040:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), 11, "OIROUT_FILL");/*_.IFILLLIS__V29*/ curfptr[28] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3041:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3041:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_8_VALDATA_*/ curfrout->tabval[8]); /*_.LOCVAR__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.GCX__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3042:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!konst_9_VALUEDATA_*/ curfrout->tabval[9])), 1, "NAMED_NAME");/*_.COMM__V31*/ curfptr[30] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3043:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V32*/ curfptr[31] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3044:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 4, "NDATA_LOCBIND");/*_.DLOCBIND__V33*/ curfptr[32] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3045:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V6*/ curfptr[5]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V34*/ curfptr[33] = slot; }; ; /*_.ISTMTLIS__V35*/ curfptr[34] = /*_.IBODYLIS__V28*/ curfptr[26];; /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = (basilys_multiple_length((basilys_ptr_t)(/*_.LOCMAP__V34*/ curfptr[33])));; /*_.TUPVAR__V36*/ curfptr[35] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3050:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3050:/ block"); /*block*/{ /*_#IS_LIST__L12*/ curfnum[11] = (basilys_magic_discr((basilys_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:3050:/ cond"); /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3050:/ cond.then"); /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3050:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3050:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check ibodylis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3050)?(3050):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V37*/ curfptr[36] = /*_.IFELSE___V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3050:/ clear"); /*clear*/ /*_#IS_LIST__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3050:/ clear"); /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3050:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3051:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3051:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3051:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), 4, "OIE_LOCVAR");/*_.OIE_LOCVAR__V40*/ curfptr[39] = slot; }; ; /*_#NULL__L13*/ curfnum[11] = ((/*_.OIE_LOCVAR__V40*/ curfptr[39]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:3051:/ cond"); /*cond*/ if (/*_#NULL__L13*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3051:/ cond.then"); /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3051:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3051:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check fresh obj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3051)?(3051):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3051:/ clear"); /*clear*/ /*_.OIE_LOCVAR__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3051:/ clear"); /*clear*/ /*_#NULL__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3051:/ clear"); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3051:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3052:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3052:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2]))));basilys_putfield_object((/*_.OBJ__V3*/ curfptr[2]), (4), (/*_.LOCVAR__V30*/ curfptr[29]), "OIE_LOCVAR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3052:/ touch"); basilysgc_touch(/*_.OBJ__V3*/ curfptr[2]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3053:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3053:/ block"); /*block*/{ /*_#IS_LIST__L14*/ curfnum[11] = (basilys_magic_discr((basilys_ptr_t)(/*_.IFILLLIS__V29*/ curfptr[28])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:3053:/ cond"); /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3053:/ cond.then"); /*_.IFELSE___V43*/ curfptr[40] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3053:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3053:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check ifilllis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3053)?(3053):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V43*/ curfptr[40] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V42*/ curfptr[39] = /*_.IFELSE___V43*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3053:/ clear"); /*clear*/ /*_#IS_LIST__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3053:/ clear"); /*clear*/ /*_.IFELSE___V43*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3053:/ cppif.else"); /*_.IFCPP___V42*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3054:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3054:/ block"); /*block*/{ /*_#IS_LIST__L15*/ curfnum[11] = (basilys_magic_discr((basilys_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:3054:/ cond"); /*cond*/ if (/*_#IS_LIST__L15*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3054:/ cond.then"); /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3054:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3054:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check ibodylis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3054)?(3054):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V44*/ curfptr[40] = /*_.IFELSE___V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3054:/ clear"); /*clear*/ /*_#IS_LIST__L15*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3054:/ clear"); /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3054:/ cppif.else"); /*_.IFCPP___V44*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3056:/ cond"); /*cond*/ if (/*_.IPREDEF__V26*/ curfptr[25]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3056:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3056:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3057:/ block"); /*block*/{ /*_#IS_A__L16*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3060:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3060:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V47*/ curfptr[46] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[13])), ( "BASILYSGIX(predefinited,")));; BASILYS_LOCATION("warmelt-genobj.melt:3067:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V48*/ curfptr[47] = slot; }; ; /*_.MAKE_STRING__V49*/ curfptr[48] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[13])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V48*/ curfptr[47]))));; /*_.MAKE_STRINGCONST__V50*/ curfptr[49] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[13])), ( ")")));; /*_.MAKE_TUPLE3__V51*/ curfptr[50] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V47*/ curfptr[46]), (basilys_ptr_t)(/*_.MAKE_STRING__V49*/ curfptr[48]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V50*/ curfptr[49])));; BASILYS_LOCATION("warmelt-genobj.melt:3061:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3061:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[12])), (2), "CLASS_OBJEXPV");/*_.INST__V53*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3061:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.MAKE_TUPLE3__V51*/ curfptr[50]), "OBX_CONT"); ; /*_.INST___V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; /*_.OTESTPREDEF__V46*/ curfptr[44] = /*_.INST___V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.NAMED_NAME__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.MAKE_STRING__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.MAKE_TUPLE3__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.INST___V52*/ curfptr[51] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3060:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3060:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L17*/ curfnum[16] = (basilys_magic_discr((basilys_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:3072:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L17*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3072:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3072:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V55*/ curfptr[47] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[13])), ( "predefinited[")));; /*_.MAKE_STRINGCONST__V56*/ curfptr[48] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[13])), ( "]")));; /*_.MAKE_TUPLE3__V57*/ curfptr[49] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V55*/ curfptr[47]), (basilys_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V56*/ curfptr[48])));; BASILYS_LOCATION("warmelt-genobj.melt:3073:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3073:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[12])), (2), "CLASS_OBJEXPV");/*_.INST__V59*/ curfptr[51] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3073:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[51]), (1), (/*_.MAKE_TUPLE3__V57*/ curfptr[49]), "OBX_CONT"); ; /*_.INST___V58*/ curfptr[50] = /*_.INST__V59*/ curfptr[51];;} ; /*_.IFELSE___V54*/ curfptr[46] = /*_.INST___V58*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3072:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V55*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3072:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V56*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3072:/ clear"); /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3072:/ clear"); /*clear*/ /*_.INST___V58*/ curfptr[50] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3072:/ cond.else"); /*_.IFELSE___V54*/ curfptr[46] = NULL;; } ; /*_.OTESTPREDEF__V46*/ curfptr[44] = /*_.IFELSE___V54*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L17*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3060:/ clear"); /*clear*/ /*_.IFELSE___V54*/ curfptr[46] = 0 ;} ; } ; /*_.INITLIS__V60*/ curfptr[47] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[14]))));; /*_.MAKE_STRINGCONST__V61*/ curfptr[48] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[16])), ( "fill predef slots")));; BASILYS_LOCATION("warmelt-genobj.melt:3085:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3085:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[15])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V63*/ curfptr[50] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3085:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[50]), (1), (/*_.INITLIS__V60*/ curfptr[47]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:3085:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[50]), (3), (/*_.MAKE_STRINGCONST__V61*/ curfptr[48]), "OCOMBLO_COMMENT"); ; /*_.OBLOCKPREDEF__V62*/ curfptr[49] = /*_.INST__V63*/ curfptr[50];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3089:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3089:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[17])), (4), "CLASS_OBJCOND");/*_.INST__V65*/ curfptr[64] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3089:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64]))));basilys_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.NLOC__V32*/ curfptr[31]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3089:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64]))));basilys_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), (/*_.OTESTPREDEF__V46*/ curfptr[44]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:3089:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64]))));basilys_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), ((/*nil*/NULL)), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:3089:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V65*/ curfptr[64]))));basilys_putfield_object((/*_.INST__V65*/ curfptr[64]), (3), (/*_.OBLOCKPREDEF__V62*/ curfptr[49]), "OBCOND_ELSE"); ; /*_.OCONDPREDEF__V64*/ curfptr[46] = /*_.INST__V65*/ curfptr[64];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3096:/ compute"); /*_.ISTMTLIS__V35*/ curfptr[34] = /*_.SETQ___V66*/ curfptr[65] = /*_.INITLIS__V60*/ curfptr[47];; basilysgc_append_list((basilys_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]), (basilys_ptr_t)(/*_.OCONDPREDEF__V64*/ curfptr[46])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_.OTESTPREDEF__V46*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_.INITLIS__V60*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V61*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_.OBLOCKPREDEF__V62*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_.OCONDPREDEF__V64*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3057:/ clear"); /*clear*/ /*_.SETQ___V66*/ curfptr[65] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3102:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3102:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V68*/ curfptr[47] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (4)); ; BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V68*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V68*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V68*/ curfptr[47])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V6*/ curfptr[5]); ; BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V68*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V68*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V68*/ curfptr[47])->tabval[1] = (basilys_ptr_t)(/*_.LOCMAP__V34*/ curfptr[33]); ; BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V68*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V68*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V68*/ curfptr[47])->tabval[2] = (basilys_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]); ; BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V68*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V68*/ curfptr[47]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V68*/ curfptr[47])->tabval[3] = (basilys_ptr_t)(/*_.TUPVAR__V36*/ curfptr[35]); ; /*_.LAMBDA___V67*/ curfptr[44] = /*_.LAMBDA___V68*/ curfptr[47];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3100:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3100:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V67*/ curfptr[44]; /*_.MULTIPLE_EVERY__V69*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.DLOCBIND__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3120:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.NINST_SLOTS__V70*/ curfptr[49] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3121:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3121:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V72*/ curfptr[65] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (4)); ; BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V6*/ curfptr[5]); ; BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[1] = (basilys_ptr_t)(/*_.NLOC__V32*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[2] = (basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[3] = (basilys_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]); ; /*_.LAMBDA___V71*/ curfptr[46] = /*_.LAMBDA___V72*/ curfptr[65];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3119:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3119:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V71*/ curfptr[46]; /*_.MULTIPLE_EVERY__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NINST_SLOTS__V70*/ curfptr[49]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3144:/ cond"); /*cond*/ if (/*_.NLOC__V32*/ curfptr[31]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3144:/ cond.then"); /*_.IFELSE___V74*/ curfptr[73] = /*_.NLOC__V32*/ curfptr[31];; } else {BASILYS_LOCATION("warmelt-genobj.melt:3144:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3144:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3144:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V75*/ curfptr[74] = slot; }; ; /*_.IFELSE___V74*/ curfptr[73] = /*_.NREP_LOC__V75*/ curfptr[74];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3144:/ clear"); /*clear*/ /*_.NREP_LOC__V75*/ curfptr[74] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:3143:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3143:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[29])), (3), "CLASS_OBJTOUCH");/*_.INST__V77*/ curfptr[76] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3143:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (0), (/*_.IFELSE___V74*/ curfptr[73]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3143:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (2), (/*_.COMM__V31*/ curfptr[30]), "OTOUCH_COMMENT"); ; BASILYS_LOCATION("warmelt-genobj.melt:3143:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (1), (/*_.OBJ__V3*/ curfptr[2]), "OTOUCH_VAL"); ; /*_.INST___V76*/ curfptr[74] = /*_.INST__V77*/ curfptr[76];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]), (basilys_ptr_t)(/*_.INST___V76*/ curfptr[74])); BASILYS_LOCATION("warmelt-genobj.melt:3150:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3150:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V79*/ curfptr[78] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:3150:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V79*/ curfptr[78])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V79*/ curfptr[78]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V79*/ curfptr[78])->tabval[0] = (basilys_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]); ; BASILYS_LOCATION("warmelt-genobj.melt:3150:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V79*/ curfptr[78])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V79*/ curfptr[78]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V79*/ curfptr[78])->tabval[1] = (basilys_ptr_t)(/*_.NLOC__V32*/ curfptr[31]); ; /*_.LAMBDA___V78*/ curfptr[77] = /*_.LAMBDA___V79*/ curfptr[78];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3148:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3148:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V78*/ curfptr[77]; /*_.MULTIPLE_EVERY__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.TUPVAR__V36*/ curfptr[35]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_append_list((basilys_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]), (basilys_ptr_t)(/*_.OBJ__V3*/ curfptr[2])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3161:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3161:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3161:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3161:/ apply.arg"); argtab[0].bp_cstring = "compil_data_and_slots_fill final dlocbind"; BASILYS_LOCATION("warmelt-genobj.melt:3161:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16]; BASILYS_LOCATION("warmelt-genobj.melt:3161:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3161:/ apply.arg"); argtab[3].bp_long = 3161; /*_.DEBUG_MSG_FUN__V82*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.DLOCBIND__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V81*/ curfptr[80] = /*_.DEBUG_MSG_FUN__V82*/ curfptr[81];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3161:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3161:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ curfptr[81] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3161:/ cppif.else"); /*_.IFCPP___V81*/ curfptr[80] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3165:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DLOCBIND__V33*/ curfptr[32];; BASILYS_LOCATION("warmelt-genobj.melt:3165:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[23] = /*_.RETURN___V83*/ curfptr[81];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IPREDEF__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IBODYLIS__V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFILLLIS__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.LOCVAR__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.COMM__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.NLOC__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.DLOCBIND__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.LOCMAP__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.ISTMTLIS__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.TUPVAR__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.LAMBDA___V67*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V69*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.NINST_SLOTS__V70*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.LAMBDA___V71*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V73*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.INST___V76*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.LAMBDA___V78*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V80*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.IFCPP___V81*/ curfptr[80] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3037:/ clear"); /*clear*/ /*_.RETURN___V83*/ curfptr[81] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3167:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-genobj.melt:3167:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V84*/ curfptr[25];; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3027:/ clear"); /*clear*/ /*_.RETURN___V84*/ curfptr[25] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPIL_DATA_AND_SLOTS_FILL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_103_COMPIL_DATA_AND_SLOTS_FILL*/ static basilys_ptr_t rout_104_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_104_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3102:/ getarg"); /*_.LBIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3102:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#BINDRK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3102:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3104:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3104:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3104:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3104:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3104:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3104:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check lbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3104)?(3104):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3104:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3104:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3104:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3105:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3105:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3106:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3107:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3108:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3108:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BDER__V5*/ curfptr[3]; BASILYS_LOCATION("warmelt-genobj.melt:3108:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CTY__V6*/ curfptr[5]; /*_.OBVA__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3109:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3109:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OBNX__V9*/ curfptr[8] = basilysgc_send((basilys_ptr_t)(/*_.NEXP__V7*/ curfptr[6]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3111:/ cond"); /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3111:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3111:/ block"); /*block*/{ basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.LBIND__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBVA__V8*/ curfptr[7])); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3112:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3112:/ cond"); /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3112:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3112:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3112:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3112:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OBVA__V8*/ curfptr[7]; /*_.PUT_OBJDEST__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.OBNX__V9*/ curfptr[8]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OBMY__V10*/ curfptr[9] = /*_.PUT_OBJDEST__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3112:/ clear"); /*clear*/ /*_.PUT_OBJDEST__V11*/ curfptr[10] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3112:/ cond.else"); /*_.OBMY__V10*/ curfptr[9] = /*_.OBNX__V9*/ curfptr[8];; } ; basilysgc_append_list((basilys_ptr_t)((/*~ISTMTLIS*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.OBMY__V10*/ curfptr[9])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3112:/ clear"); /*clear*/ /*_.OBMY__V10*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3116:/ cond"); /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3116:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3116:/ block"); /*block*/{ basilysgc_multiple_put_nth((basilys_ptr_t)((/*~TUPVAR*/ curfclos->tabval[3])), (/*_#BINDRK__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.OBVA__V8*/ curfptr[7])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3105:/ clear"); /*clear*/ /*_.BDER__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3105:/ clear"); /*clear*/ /*_.CTY__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3105:/ clear"); /*clear*/ /*_.NEXP__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3105:/ clear"); /*clear*/ /*_.OBVA__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3105:/ clear"); /*clear*/ /*_.OBNX__V9*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3102:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_104_LAMBDA_*/ static basilys_ptr_t rout_105_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_105_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 8 void* varptr[8]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3121:/ getarg"); /*_.SLOVAL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3121:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#SLORK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3121:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3123:/ cond"); /*cond*/ if (/*_.SLOVAL__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3123:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3123:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3125:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3125:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3125:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.SLOBJ__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.SLOVAL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3128:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3128:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.SLOBJ__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[1])));; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_A__L2*/ curfnum[1]));; BASILYS_LOCATION("warmelt-genobj.melt:3128:/ cond"); /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3128:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3128:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3128:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compil_data_and_slots_fill check slobj not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3128)?(3128):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3128:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3128:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3128:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3128:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3129:/ block"); /*block*/{ /*_.OOFF__V6*/ curfptr[4] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#SLORK__L1*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3132:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3132:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[3])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V8*/ curfptr[7] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3132:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3132:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), ((/*~OBJ*/ curfclos->tabval[2])), "OSLOT_ODATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:3132:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), (/*_.OOFF__V6*/ curfptr[4]), "OSLOT_OFFSET"); ; BASILYS_LOCATION("warmelt-genobj.melt:3132:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (4), (/*_.SLOBJ__V3*/ curfptr[2]), "OSLOT_VALUE"); ; /*_.OPUT__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;} ; basilysgc_append_list((basilys_ptr_t)((/*~ISTMTLIS*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.OPUT__V7*/ curfptr[6])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3129:/ clear"); /*clear*/ /*_.OOFF__V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3129:/ clear"); /*clear*/ /*_.OPUT__V7*/ curfptr[6] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3125:/ clear"); /*clear*/ /*_.SLOBJ__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3125:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_105_LAMBDA_*/ static basilys_ptr_t rout_106_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_106_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3150:/ getarg"); /*_.OBVA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3150:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3150:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3151:/ cond"); /*cond*/ if (/*_.OBVA__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3151:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3151:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3154:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3154:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3154:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3]))));basilys_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3154:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V4*/ curfptr[3]))));basilys_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.OBVA__V2*/ curfptr[1]), "OCLR_VLOC"); ; /*_.INST___V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;} ; basilysgc_append_list((basilys_ptr_t)((/*~IBODYLIS*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.INST___V3*/ curfptr[2])); BASILYS_LOCATION("warmelt-genobj.melt:3152:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3151:/ clear"); /*clear*/ /*_.INST___V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_106_LAMBDA_*/ static basilys_ptr_t rout_107_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_107_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3172:/ getarg"); /*_.DLOCBIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3172:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3172:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3173:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3173:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3173:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3173:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3173:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3173:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3173)?(3173):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3173:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3173:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3173:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3174:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3174:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3174:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3174:/ apply.arg"); argtab[0].bp_cstring = "dispose_dlocbind_after_data_and_slots_fill dlocbind"; BASILYS_LOCATION("warmelt-genobj.melt:3174:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3174:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3174:/ apply.arg"); argtab[3].bp_long = 3174; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DLOCBIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3174:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3174:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3174:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3177:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3177:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:3177:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V8*/ curfptr[6] = /*_.LAMBDA___V9*/ curfptr[8];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3175:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3175:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V8*/ curfptr[6]; /*_.MULTIPLE_EVERY__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DLOCBIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3172:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V10*/ curfptr[9];; BASILYS_LOCATION("warmelt-genobj.melt:3172:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3172:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3172:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3172:/ clear"); /*clear*/ /*_.LAMBDA___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3172:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V10*/ curfptr[9] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_107_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL*/ static basilys_ptr_t rout_108_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_108_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3177:/ getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3177:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3177:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3177:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3177:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3177:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:3177:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3177:/ clear"); /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_108_LAMBDA_*/ static basilys_ptr_t rout_109_COMPILOBJ_DATASYMBOL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_109_COMPILOBJ_DATASYMBOL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 39 void* varptr[39]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<39; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 39; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DATASYMBOL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3180:/ getarg"); /*_.SYV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3180:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3180:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3181:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3181:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3181:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3181:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3181:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3181:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3181)?(3181):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3181:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3181:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3181:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3182:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3182:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3182:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3182:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3182:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3182:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check syv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3182)?(3182):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3182:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3182:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3182:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3183:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3183:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3183:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3183:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datasymbol syv"; BASILYS_LOCATION("warmelt-genobj.melt:3183:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3183:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3183:/ apply.arg"); argtab[3].bp_long = 3183; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3183:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3183:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3183:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3184:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3184:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; }; ; /*_.CHOBJ__V12*/ curfptr[11] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.SYV__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3186:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V13*/ curfptr[12] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3189:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3189:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:3189:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3189:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3189:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3189:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3189)?(3189):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3189:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3189:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3189:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3190:/ cond"); /*cond*/ if (/*_.CHOBJ__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3190:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3190:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3192:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3192:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3192:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3192:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datasymbol found chobj"; BASILYS_LOCATION("warmelt-genobj.melt:3192:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3192:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3192:/ apply.arg"); argtab[3].bp_long = 3192; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CHOBJ__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3192:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3192:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3192:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3193:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:3193:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3191:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;} ; /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3190:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3190:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3190:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3190:/ cond.else"); /*_.IF___V16*/ curfptr[14] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3195:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDATA_DISCRX__V22*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3195:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3195:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODISCR__V23*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NDATA_DISCRX__V22*/ curfptr[17]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3197:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3197:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[5])), (6), "CLASS_OBJINITOBJECT");/*_.INST__V25*/ curfptr[24] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3197:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[6])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:3197:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.SYV__V2*/ curfptr[1]), "OIE_DATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:3197:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (3), (/*_.ODISCR__V23*/ curfptr[19]), "OIE_DISCR"); ; /*_.OBSYM__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t) (/*_.SYV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OBSYM__V24*/ curfptr[23])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3204:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3204:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3204:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3204:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datasymbol inirout"; BASILYS_LOCATION("warmelt-genobj.melt:3204:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3204:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3204:/ apply.arg"); argtab[3].bp_long = 3204; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3204:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3204:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3204:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3206:/ block"); /*block*/{ /*_.NAMBUF__V28*/ curfptr[26] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[7])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:3207:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.NDATA_RANK__V29*/ curfptr[28] = slot; }; ; /*_#SYRK__L7*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.NDATA_RANK__V29*/ curfptr[28])));; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), ( "dsym_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), (/*_#SYRK__L7*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:3212:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 9, "NDSY_NAMESTR");/*_.NDSY_NAMESTR__V30*/ curfptr[29] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), basilys_string_str((basilys_ptr_t)(/*_.NDSY_NAMESTR__V30*/ curfptr[29]))); /*_.STRBUF2STRING__V31*/ curfptr[30] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]))));; BASILYS_LOCATION("warmelt-genobj.melt:3213:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3213:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OBSYM__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]))));basilys_putfield_object((/*_.OBSYM__V24*/ curfptr[23]), (1), (/*_.STRBUF2STRING__V31*/ curfptr[30]), "OIE_CNAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:3213:/ touch"); basilysgc_touch(/*_.OBSYM__V24*/ curfptr[23]); ; /*epilog*/} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3206:/ clear"); /*clear*/ /*_.NAMBUF__V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3206:/ clear"); /*clear*/ /*_.NDATA_RANK__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3206:/ clear"); /*clear*/ /*_#SYRK__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3206:/ clear"); /*clear*/ /*_.NDSY_NAMESTR__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3206:/ clear"); /*clear*/ /*_.STRBUF2STRING__V31*/ curfptr[30] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3216:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.NINST_SLOTS__V32*/ curfptr[26] = slot; }; ; /*_#MULTIPLE_LENGTH__L8*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.NINST_SLOTS__V32*/ curfptr[26])));; basilys_put_int((basilys_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[0])); BASILYS_LOCATION("warmelt-genobj.melt:3219:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3219:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3219:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OBSYM__V24*/ curfptr[23]; BASILYS_LOCATION("warmelt-genobj.melt:3219:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ODISCR__V23*/ curfptr[19]; BASILYS_LOCATION("warmelt-genobj.melt:3219:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.INIROUT__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-genobj.melt:3219:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.DLOCBIND__V34*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPIL_DATA_AND_SLOTS_FILL*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3220:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3220:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3220:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3220:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datasymbol dlocbind"; BASILYS_LOCATION("warmelt-genobj.melt:3220:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:3220:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3220:/ apply.arg"); argtab[3].bp_long = 3220; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DLOCBIND__V34*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3220:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3220:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3220:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V33*/ curfptr[28] = /*_.IFCPP___V35*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3219:/ clear"); /*clear*/ /*_.DLOCBIND__V34*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3219:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[30] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3223:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3223:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3223:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3223:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datasymbol obsym final"; BASILYS_LOCATION("warmelt-genobj.melt:3223:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:3223:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3223:/ apply.arg"); argtab[3].bp_long = 3223; /*_.DEBUG_MSG_FUN__V38*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3223:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3223:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3223:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3224:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OBSYM__V24*/ curfptr[23];; BASILYS_LOCATION("warmelt-genobj.melt:3224:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V21*/ curfptr[16] = /*_.RETURN___V39*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.NDATA_DISCRX__V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.ODISCR__V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.OBSYM__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.NINST_SLOTS__V32*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.LET___V33*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3194:/ clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[30] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3184:/ clear"); /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3184:/ clear"); /*clear*/ /*_.CHOBJ__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3184:/ clear"); /*clear*/ /*_.INIROUT__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3184:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3184:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3184:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3180:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3180:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3180:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3180:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3180:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3180:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DATASYMBOL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_109_COMPILOBJ_DATASYMBOL*/ static basilys_ptr_t rout_110_COMPILOBJ_DATAINSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_110_COMPILOBJ_DATAINSTANCE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 59 void* varptr[59]; #define CURFRAM_NBVARNUM 16 long varnum[16]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<59; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 59; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DATAINSTANCE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3231:/ getarg"); /*_.DAI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3231:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3231:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3232:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3232:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3232:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3232:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3232:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3232:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3232)?(3232):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3232:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3232:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3232:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3234:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3234:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3234:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3234:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance dai"; BASILYS_LOCATION("warmelt-genobj.melt:3234:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3234:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3234:/ apply.arg"); argtab[3].bp_long = 3234; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3234:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3234:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3234:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3235:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3235:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V9*/ curfptr[8] = slot; }; ; /*_.CHOBJ__V10*/ curfptr[9] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V9*/ curfptr[8]), (basilysobject_ptr_t)(/*_.DAI__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3237:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V11*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3240:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3240:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3240:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3240:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3240:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3240:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3240)?(3240):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3240:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3240:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3240:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3241:/ cond"); /*cond*/ if (/*_.CHOBJ__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3241:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3241:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3243:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3243:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3243:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3243:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance return found chobj"; BASILYS_LOCATION("warmelt-genobj.melt:3243:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3243:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3243:/ apply.arg"); argtab[3].bp_long = 3243; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CHOBJ__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3243:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3243:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3243:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3244:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V10*/ curfptr[9];; BASILYS_LOCATION("warmelt-genobj.melt:3244:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3242:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[15];;} ; /*_.IF___V14*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3241:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3241:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3241:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3241:/ cond.else"); /*_.IF___V14*/ curfptr[12] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3245:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V20*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3246:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V21*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3248:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V22*/ curfptr[21] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3249:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V23*/ curfptr[22] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3250:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 7, "NINST_HASH");/*_.DHASH__V24*/ curfptr[23] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3251:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 6, "NINST_PREDEF");/*_.DPREDEF__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3252:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.DSLOTS__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3253:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), 2, "NINIT_TOPL");/*_.ININSL__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3254:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), 11, "OIROUT_FILL");/*_.INIFILL__V28*/ curfptr[27] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3258:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3258:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.DRANK__V23*/ curfptr[22])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:3258:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3258:/ cond.then"); /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3258:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3258:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_datainstance check drank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3258)?(3258):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.IFELSE___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3258:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3258:/ clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3258:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3261:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3261:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3261:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3261:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance loc before cdisx"; BASILYS_LOCATION("warmelt-genobj.melt:3261:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3261:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3261:/ apply.arg"); argtab[3].bp_long = 3261; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3261:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3261:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3261:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3262:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3262:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3262:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.CDISX__V34*/ curfptr[33] = basilysgc_send((basilys_ptr_t)(/*_.DISX__V22*/ curfptr[21]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3264:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3264:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3264:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3264:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance loc after cdisx"; BASILYS_LOCATION("warmelt-genobj.melt:3264:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3264:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3264:/ apply.arg"); argtab[3].bp_long = 3264; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3264:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3264:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3264:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3268:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3268:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[4])), (6), "CLASS_OBJINITOBJECT");/*_.INST__V39*/ curfptr[38] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3268:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[5])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:3268:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.DAI__V2*/ curfptr[1]), "OIE_DATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:3268:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.CDISX__V34*/ curfptr[33]), "OIE_DISCR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3268:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V39*/ curfptr[38]))));basilys_putfield_object((/*_.INST__V39*/ curfptr[38]), (5), (/*_.DPREDEF__V25*/ curfptr[24]), "OIO_PREDEF"); ; /*_.OINI__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} ; /*_.NAMBUF__V40*/ curfptr[39] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[6])), (char*)0);; /*_#DRK__L8*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.DRANK__V23*/ curfptr[22])));; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V9*/ curfptr[8]), (basilysobject_ptr_t) (/*_.DAI__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OINI__V38*/ curfptr[37])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3278:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3278:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3278:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3278:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance loc after put compicache"; BASILYS_LOCATION("warmelt-genobj.melt:3278:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:3278:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3278:/ apply.arg"); argtab[3].bp_long = 3278; /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3278:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3278:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3278:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), ( "dobj_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), (/*_#DRK__L8*/ curfnum[0])); BASILYS_LOCATION("warmelt-genobj.melt:3281:/ cond"); /*cond*/ if (/*_.NAM__V21*/ curfptr[17]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3281:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3281:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:3283:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V21*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ curfptr[41] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V43*/ curfptr[41]))); BASILYS_LOCATION("warmelt-genobj.melt:3281:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3281:/ clear"); /*clear*/ /*_.NAMED_NAME__V43*/ curfptr[41] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3284:/ block"); /*block*/{ /*_.CNAM__V45*/ curfptr[44] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]))));; BASILYS_LOCATION("warmelt-genobj.melt:3285:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3285:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OINI__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.OINI__V38*/ curfptr[37]))));basilys_putfield_object((/*_.OINI__V38*/ curfptr[37]), (1), (/*_.CNAM__V45*/ curfptr[44]), "OIE_CNAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:3285:/ touch"); basilysgc_touch(/*_.OINI__V38*/ curfptr[37]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3286:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3286:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3286:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3286:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance cnam"; BASILYS_LOCATION("warmelt-genobj.melt:3286:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:3286:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3286:/ apply.arg"); argtab[3].bp_long = 3286; /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CNAM__V45*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3286:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3286:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3286:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V44*/ curfptr[41] = /*_.IFCPP___V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3284:/ clear"); /*clear*/ /*_.CNAM__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3284:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ;} ; /*_#MULTIPLE_LENGTH__L11*/ curfnum[8] = (basilys_multiple_length((basilys_ptr_t)(/*_.DSLOTS__V26*/ curfptr[25])));; basilys_put_int((basilys_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[8])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3290:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3290:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3290:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3290:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance oini before data&slots"; BASILYS_LOCATION("warmelt-genobj.melt:3290:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:3290:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3290:/ apply.arg"); argtab[3].bp_long = 3290; /*_.DEBUG_MSG_FUN__V49*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3290:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3290:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3290:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3291:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3291:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3291:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3291:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance loc before data&slots"; BASILYS_LOCATION("warmelt-genobj.melt:3291:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:3291:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3291:/ apply.arg"); argtab[3].bp_long = 3291; /*_.DEBUG_MSG_FUN__V51*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V50*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3291:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3291:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3291:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3292:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3292:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3292:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OINI__V38*/ curfptr[37]; BASILYS_LOCATION("warmelt-genobj.melt:3292:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CDISX__V34*/ curfptr[33]; BASILYS_LOCATION("warmelt-genobj.melt:3292:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.INIROUT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-genobj.melt:3292:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.DLOCBIND__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPIL_DATA_AND_SLOTS_FILL*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.DAI__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3293:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3293:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3293:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3293:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance dlocbind"; BASILYS_LOCATION("warmelt-genobj.melt:3293:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:3293:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3293:/ apply.arg"); argtab[3].bp_long = 3293; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DLOCBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3293:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3293:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3293:/ cppif.else"); /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V52*/ curfptr[44] = /*_.IFCPP___V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3292:/ clear"); /*clear*/ /*_.DLOCBIND__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3292:/ clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3296:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3296:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3296:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3296:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance loc after data&slots"; BASILYS_LOCATION("warmelt-genobj.melt:3296:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:3296:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3296:/ apply.arg"); argtab[3].bp_long = 3296; /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3296:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3296:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3296:/ cppif.else"); /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3297:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3297:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3297:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3297:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datainstance final oini"; BASILYS_LOCATION("warmelt-genobj.melt:3297:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:3297:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3297:/ apply.arg"); argtab[3].bp_long = 3297; /*_.DEBUG_MSG_FUN__V59*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V58*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3297:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3297:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3297:/ cppif.else"); /*_.IFCPP___V58*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V37*/ curfptr[35] = /*_.OINI__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.OINI__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.NAMBUF__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_#DRK__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.LET___V52*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3266:/ clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[53] = 0 ;} ; /*_.LET___V33*/ curfptr[31] = /*_.LET___V37*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3262:/ clear"); /*clear*/ /*_.CDISX__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3262:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3262:/ clear"); /*clear*/ /*_.LET___V37*/ curfptr[35] = 0 ;} ; /*_.LET___V19*/ curfptr[14] = /*_.LET___V33*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.LOC__V20*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.NAM__V21*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.DISX__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.DRANK__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.DHASH__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.DPREDEF__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.DSLOTS__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.ININSL__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.INIFILL__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3245:/ clear"); /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.LET___V19*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3235:/ clear"); /*clear*/ /*_.COMPICACHE__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3235:/ clear"); /*clear*/ /*_.CHOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3235:/ clear"); /*clear*/ /*_.INIROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3235:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3235:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3235:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[14] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3231:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-genobj.melt:3231:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3231:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3231:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3231:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DATAINSTANCE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_110_COMPILOBJ_DATAINSTANCE*/ static basilys_ptr_t rout_111_COMPILOBJ_DATATUPLE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_111_COMPILOBJ_DATATUPLE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 46 void* varptr[46]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<46; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 46; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DATATUPLE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3309:/ getarg"); /*_.NTI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3309:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3309:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3310:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3310:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3310:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3310:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3310:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3310:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nti"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3310)?(3310):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3310:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3310:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3310:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3311:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3311:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3311:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3311:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3311:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3311:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3311)?(3311):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3311:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3311:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3311:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3313:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3313:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3313:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3313:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datatuple nti"; BASILYS_LOCATION("warmelt-genobj.melt:3313:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3313:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3313:/ apply.arg"); argtab[3].bp_long = 3313; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NTI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3313:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3313:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3313:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3314:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3314:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; }; ; /*_.CHOBJ__V12*/ curfptr[11] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.NTI__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3316:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V13*/ curfptr[12] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3319:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3319:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:3319:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3319:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3319:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3319:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3319)?(3319):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3319:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3319:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3319:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3320:/ cond"); /*cond*/ if (/*_.CHOBJ__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3320:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3320:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3322:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3322:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3322:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3322:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datatuple found chobj"; BASILYS_LOCATION("warmelt-genobj.melt:3322:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3322:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3322:/ apply.arg"); argtab[3].bp_long = 3322; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CHOBJ__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3322:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3322:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3322:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3323:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:3323:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3321:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;} ; /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3320:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3320:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3320:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3320:/ cond.else"); /*_.IF___V16*/ curfptr[14] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3324:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 5, "NTUP_COMP");/*_.NCOMPI__V22*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3327:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1)); ; BASILYS_LOCATION("warmelt-genobj.melt:3327:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; /*_.LAMBDA___V23*/ curfptr[19] = /*_.LAMBDA___V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3325:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3325:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[19]; /*_.OCOMPI__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3328:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3329:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3330:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3330:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODISCR__V28*/ curfptr[27] = basilysgc_send((basilys_ptr_t)(/*_.DISX__V26*/ curfptr[25]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3331:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V29*/ curfptr[28] = slot; }; ; /*_.NAMBUF__V30*/ curfptr[29] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:3333:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3333:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_10_VALTUP_*/ curfrout->tabval[10]); /*_.LOCVAR__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#DRK__L6*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.DRANK__V27*/ curfptr[26])));; BASILYS_LOCATION("warmelt-genobj.melt:3335:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), 3, "OBROUT_BODY");/*_.INIBODY__V32*/ curfptr[31] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3336:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!konst_11_INITUP_*/ curfrout->tabval[11])), 1, "NAMED_NAME");/*_.COMM__V33*/ curfptr[32] = slot; }; ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), ( "dtup_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), (/*_#DRK__L6*/ curfnum[0])); BASILYS_LOCATION("warmelt-genobj.melt:3340:/ cond"); /*cond*/ if (/*_.NAM__V29*/ curfptr[28]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3340:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3340:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:3342:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33]))); BASILYS_LOCATION("warmelt-genobj.melt:3340:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3340:/ clear"); /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ block"); /*block*/{ /*_.STRBUF2STRING__V36*/ curfptr[35] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[14])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]))));; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3343:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[12])), (6), "CLASS_OBJINITMULTIPLE");/*_.INST__V38*/ curfptr[37] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.ODISCR__V28*/ curfptr[27]), "OIE_DISCR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (4), (/*_.LOCVAR__V31*/ curfptr[30]), "OIE_LOCVAR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.STRBUF2STRING__V36*/ curfptr[35]), "OIE_CNAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[37]), (5), (/*_.OCOMPI__V25*/ curfptr[24]), "OIM_TUPVAL"); ; /*_.OTUP__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t) (/*_.NTI__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OTUP__V37*/ curfptr[36])); /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17])));; basilys_put_int((basilys_ptr_t)(/*_.OTUP__V37*/ curfptr[36]), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6])); BASILYS_LOCATION("warmelt-genobj.melt:3355:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3355:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:3355:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (basilys_ptr_t)(/*_.OCOMPI__V25*/ curfptr[24]); ; BASILYS_LOCATION("warmelt-genobj.melt:3355:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[1] = (basilys_ptr_t)(/*_.INIBODY__V32*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-genobj.melt:3355:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[2] = (basilys_ptr_t)(/*_.OTUP__V37*/ curfptr[36]); ; /*_.LAMBDA___V39*/ curfptr[38] = /*_.LAMBDA___V40*/ curfptr[39];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3353:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3353:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[38]; /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3365:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3365:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[19])), (3), "CLASS_OBJTOUCH");/*_.INST__V43*/ curfptr[42] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3365:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.OTUP__V37*/ curfptr[36]), "OTOUCH_VAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:3365:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.COMM__V33*/ curfptr[32]), "OTOUCH_COMMENT"); ; /*_.INST___V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.INIBODY__V32*/ curfptr[31]), (basilys_ptr_t)(/*_.INST___V42*/ curfptr[41])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3368:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3368:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3368:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3368:/ apply.arg"); argtab[0].bp_cstring = "compilobj datatuple otup"; BASILYS_LOCATION("warmelt-genobj.melt:3368:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-genobj.melt:3368:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3368:/ apply.arg"); argtab[3].bp_long = 3368; /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OTUP__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3368:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3368:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3368:/ cppif.else"); /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3369:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OTUP__V37*/ curfptr[36];; BASILYS_LOCATION("warmelt-genobj.melt:3369:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V35*/ curfptr[33] = /*_.RETURN___V46*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.OTUP__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.LAMBDA___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.INST___V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3343:/ clear"); /*clear*/ /*_.RETURN___V46*/ curfptr[44] = 0 ;} ; /*_.LET___V21*/ curfptr[16] = /*_.LET___V35*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.NCOMPI__V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.OCOMPI__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.DISX__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.DRANK__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.ODISCR__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.NAM__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.NAMBUF__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.LOCVAR__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.INIBODY__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.COMM__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3324:/ clear"); /*clear*/ /*_.LET___V35*/ curfptr[33] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3314:/ clear"); /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3314:/ clear"); /*clear*/ /*_.CHOBJ__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3314:/ clear"); /*clear*/ /*_.INIROUT__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3314:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3314:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3314:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3309:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3309:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3309:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3309:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3309:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3309:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DATATUPLE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_111_COMPILOBJ_DATATUPLE*/ static basilys_ptr_t rout_112_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_112_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ cond"); /*cond*/ if (/*_.C__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3327:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3327:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3327:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.COMPILE_OBJ__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V3*/ curfptr[2] = /*_.COMPILE_OBJ__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3327:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3327:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:3327:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3327:/ clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_112_LAMBDA_*/ static basilys_ptr_t rout_113_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_113_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3355:/ getarg"); /*_.SCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3355:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#SRK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3355:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3356:/ cond"); /*cond*/ if (/*_.SCOMP__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3356:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3356:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3357:/ block"); /*block*/{ /*_.OCOMP__V3*/ curfptr[2] = (basilys_multiple_nth((basilys_ptr_t)((/*~OCOMPI*/ curfclos->tabval[0])), (/*_#SRK__L1*/ curfnum[0])));; /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#SRK__L1*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3359:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3359:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTUPLE*/ curfrout->tabval[0])), (4), "CLASS_OBJPUTUPLE");/*_.INST__V6*/ curfptr[5] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3359:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), ((/*~OTUP*/ curfclos->tabval[2])), "OPUTU_TUPLED"); ; BASILYS_LOCATION("warmelt-genobj.melt:3359:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ curfptr[3]), "OPUTU_OFFSET"); ; BASILYS_LOCATION("warmelt-genobj.melt:3359:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (3), (/*_.OCOMP__V3*/ curfptr[2]), "OPUTU_VALUE"); ; /*_.INST___V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;} ; basilysgc_append_list((basilys_ptr_t)((/*~INIBODY*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.INST___V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3357:/ clear"); /*clear*/ /*_.OCOMP__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3357:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3357:/ clear"); /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_113_LAMBDA_*/ static basilys_ptr_t rout_114_COMPILOBJ_DATASTRING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_114_COMPILOBJ_DATASTRING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 34 void* varptr[34]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<34; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 34; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DATASTRING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3380:/ getarg"); /*_.NDS__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3380:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3380:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3381:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3381:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDS__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3381:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3381:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3381:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3381:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nds"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3381)?(3381):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3381:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3381:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3381:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3382:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3382:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3382:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3382:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3382:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3382:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3382)?(3382):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3382:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3382:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3382:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3384:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3384:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3384:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3384:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datastring nds"; BASILYS_LOCATION("warmelt-genobj.melt:3384:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3384:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3384:/ apply.arg"); argtab[3].bp_long = 3384; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NDS__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3384:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3384:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3384:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3385:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3385:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3386:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; }; ; /*_.CHOBJ__V13*/ curfptr[12] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.NDS__V2*/ curfptr[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3390:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3390:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:3390:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3390:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3390:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3390:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3390)?(3390):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3390:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3390:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3390:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3391:/ cond"); /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3391:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3391:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3393:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3393:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3393:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3393:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datastring found chobj"; BASILYS_LOCATION("warmelt-genobj.melt:3393:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3393:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3393:/ apply.arg"); argtab[3].bp_long = 3393; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3393:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3393:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3393:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3394:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];; BASILYS_LOCATION("warmelt-genobj.melt:3394:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3392:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;} ; /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3391:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3391:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3391:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3391:/ cond.else"); /*_.IF___V16*/ curfptr[14] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ block"); /*block*/{ /*_.NAMBUF__V22*/ curfptr[17] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:3397:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDISX__V23*/ curfptr[19] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3398:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3398:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODISCR__V24*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.NDISX__V23*/ curfptr[19]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3399:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 5, "NSTR_STRING");/*_.ODATA__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3400:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3401:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3402:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3402:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_7_VALSTR_*/ curfrout->tabval[7]); /*_.LOCVAR__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#DRK__L6*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));; BASILYS_LOCATION("warmelt-genobj.melt:3404:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3404:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINITSTRING*/ curfrout->tabval[8])), (5), "CLASS_OBJINITSTRING");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3404:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.ODATA__V25*/ curfptr[24]), "OIE_DATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:3404:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.ODISCR__V24*/ curfptr[23]), "OIE_DISCR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3404:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (4), (/*_.LOCVAR__V28*/ curfptr[27]), "OIE_LOCVAR"); ; /*_.OSTR__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t) (/*_.NDS__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OSTR__V29*/ curfptr[28])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "dstr_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), (/*_#DRK__L6*/ curfnum[0])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__")); basilysgc_add_strbuf_cidentprefix((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), basilys_string_str((basilys_ptr_t)(/*_.ODATA__V25*/ curfptr[24])), (16)); /*_#STRING_LENGTH__L7*/ curfnum[6] = basilys_string_length((basilys_ptr_t)(/*_.ODATA__V25*/ curfptr[24]));; basilys_put_int((basilys_ptr_t)(/*_.OSTR__V29*/ curfptr[28]), (/*_#STRING_LENGTH__L7*/ curfnum[6])); BASILYS_LOCATION("warmelt-genobj.melt:3416:/ cond"); /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3416:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3416:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:3419:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30]))); BASILYS_LOCATION("warmelt-genobj.melt:3417:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3416:/ clear"); /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ;} ; } /*noelse*/ ; /*_.STRBUF2STRING__V32*/ curfptr[30] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]))));; BASILYS_LOCATION("warmelt-genobj.melt:3420:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3420:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OSTR__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.OSTR__V29*/ curfptr[28]))));basilys_putfield_object((/*_.OSTR__V29*/ curfptr[28]), (1), (/*_.STRBUF2STRING__V32*/ curfptr[30]), "OIE_CNAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:3420:/ touch"); basilysgc_touch(/*_.OSTR__V29*/ curfptr[28]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3421:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3421:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3421:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3421:/ apply.arg"); argtab[0].bp_cstring = "compilobj_datastring ostr"; BASILYS_LOCATION("warmelt-genobj.melt:3421:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-genobj.melt:3421:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3421:/ apply.arg"); argtab[3].bp_long = 3421; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OSTR__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3421:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3421:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3421:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V21*/ curfptr[16] = /*_.OSTR__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.NAMBUF__V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.NDISX__V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.ODISCR__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.ODATA__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.LOCVAR__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.OSTR__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_#STRING_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3395:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3385:/ clear"); /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3385:/ clear"); /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3385:/ clear"); /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3385:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3385:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3385:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3380:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3380:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3380:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3380:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3380:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3380:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DATASTRING", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_114_COMPILOBJ_DATASTRING*/ static basilys_ptr_t rout_115_COMPILOBJ_DATACLOSURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_115_COMPILOBJ_DATACLOSURE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 59 void* varptr[59]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<59; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 59; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DATACLOSURE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3429:/ getarg"); /*_.NCL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3429:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3429:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3430:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3430:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3430:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3430:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3430:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3430:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncl"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3430)?(3430):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3430:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3430:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3430:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3431:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3431:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3431:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3431:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3431:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3431:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3431)?(3431):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3431:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3431:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3431:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3433:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3433:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3433:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3433:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataclosure ncl"; BASILYS_LOCATION("warmelt-genobj.melt:3433:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3433:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3433:/ apply.arg"); argtab[3].bp_long = 3433; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3433:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3433:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3433:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3434:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3435:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3436:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), 3, "OBROUT_BODY");/*_.INIBODY__V13*/ curfptr[12] = slot; }; ; /*_.CHOBJ__V14*/ curfptr[13] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.NCL__V2*/ curfptr[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3439:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3439:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:3439:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3439:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3439:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3439:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3439)?(3439):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3439:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3439:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3439:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3440:/ cond"); /*cond*/ if (/*_.CHOBJ__V14*/ curfptr[13]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3440:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3440:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3442:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3442:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3442:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3442:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataclosure found chobj"; BASILYS_LOCATION("warmelt-genobj.melt:3442:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3442:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3442:/ apply.arg"); argtab[3].bp_long = 3442; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CHOBJ__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3442:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3442:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3442:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3443:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V14*/ curfptr[13];; BASILYS_LOCATION("warmelt-genobj.melt:3443:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3441:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[18];;} ; /*_.IF___V17*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3440:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3440:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3440:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3440:/ cond.else"); /*_.IF___V17*/ curfptr[15] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3445:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V23*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3446:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISCX__V24*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3447:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.NRANK__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3448:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3449:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 5, "NDCLO_PROC");/*_.NPRO__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3450:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 6, "NDCLO_CLOSV");/*_.NCLOV__V28*/ curfptr[27] = slot; }; ; /*_#NBCLOS__L6*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.NCLOV__V28*/ curfptr[27])));; /*_.NAMBUF__V29*/ curfptr[28] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:3453:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3453:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODISCR__V30*/ curfptr[29] = basilysgc_send((basilys_ptr_t)(/*_.DISCX__V24*/ curfptr[20]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3454:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3454:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_7_VALCLO_*/ curfrout->tabval[7]); /*_.LOCVAR__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3455:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!konst_8_DATACLOSURE_*/ curfrout->tabval[8])), 1, "NAMED_NAME");/*_.COMM__V32*/ curfptr[31] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3457:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3457:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.NPRO__V27*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-genobj.melt:3457:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3457:/ cond.then"); /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3457:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3457:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3457)?(3457):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.IFELSE___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3457:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3457:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3457:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), ( "dclo_")); /*_#GET_INT__L8*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.NRANK__V25*/ curfptr[24])));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), (/*_#GET_INT__L8*/ curfnum[6])); BASILYS_LOCATION("warmelt-genobj.melt:3460:/ cond"); /*cond*/ if (/*_.NAM__V23*/ curfptr[18]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3460:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3460:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:3462:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V23*/ curfptr[18]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[33] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[33]))); BASILYS_LOCATION("warmelt-genobj.melt:3460:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3460:/ clear"); /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[33] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3464:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3465:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V27*/ curfptr[26]), 6, "NRPRO_DATAROUT");/*_.NDATAROU__V37*/ curfptr[36] = slot; }; ; /*_.STRBUF2STRING__V38*/ curfptr[37] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[12])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]))));; BASILYS_LOCATION("warmelt-genobj.melt:3467:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3467:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[10])), (5), "CLASS_OBJINITCLOSURE");/*_.INST__V40*/ curfptr[39] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3467:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[11])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:3467:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (3), (/*_.ODISCR__V30*/ curfptr[29]), "OIE_DISCR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3467:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NCL__V2*/ curfptr[1]), "OIE_DATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:3467:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (4), (/*_.LOCVAR__V31*/ curfptr[30]), "OIE_LOCVAR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3467:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.STRBUF2STRING__V38*/ curfptr[37]), "OIE_CNAME"); ; /*_.OICLO__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;} ; basilys_put_int((basilys_ptr_t)(/*_.OICLO__V39*/ curfptr[38]), (/*_#NBCLOS__L6*/ curfnum[0])); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t) (/*_.NCL__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OICLO__V39*/ curfptr[38])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3477:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3477:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDATAROU__V37*/ curfptr[36]), (basilys_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-genobj.melt:3477:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3477:/ cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3477:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3477:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ndatarou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3477)?(3477):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[40] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3477:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3477:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3477:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ block"); /*block*/{ /*_.OCROUT__V44*/ curfptr[43] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.NPRO__V27*/ curfptr[26])));; BASILYS_LOCATION("warmelt-genobj.melt:3481:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3481:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODATROUT__V45*/ curfptr[44] = basilysgc_send((basilys_ptr_t)(/*_.NDATAROU__V37*/ curfptr[36]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3482:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3482:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ curfrout->tabval[14])), (3), "CLASS_OBJPUTCLOSUROUT");/*_.INST__V47*/ curfptr[46] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3482:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (0), (/*_.NLOC__V26*/ curfptr[25]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3482:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.OICLO__V39*/ curfptr[38]), "OPCLOR_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:3482:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.ODATROUT__V45*/ curfptr[44]), "OPCLOR_ROUT"); ; /*_.OCPUTROUT__V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;} ; /*_.BXOFF__V48*/ curfptr[47] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[15])), (0)));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3490:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3490:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCROUT__V44*/ curfptr[43]), (basilys_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[16])));; BASILYS_LOCATION("warmelt-genobj.melt:3490:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3490:/ cond.then"); /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3490:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3490:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ocrout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3490)?(3490):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3490:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3490:/ clear"); /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3490:/ cppif.else"); /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]), (basilys_ptr_t)(/*_.OCPUTROUT__V46*/ curfptr[45])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3492:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3492:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3492:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3492:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataclosure nclov"; BASILYS_LOCATION("warmelt-genobj.melt:3492:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:3492:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3492:/ apply.arg"); argtab[3].bp_long = 3492; /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCLOV__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3492:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3492:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3492:/ cppif.else"); /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3493:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3493:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3493:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3493:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataclosure ocrout"; BASILYS_LOCATION("warmelt-genobj.melt:3493:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:3493:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3493:/ apply.arg"); argtab[3].bp_long = 3493; /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCROUT__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V53*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3493:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3493:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3493:/ cppif.else"); /*_.IFCPP___V53*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3496:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V56*/ curfptr[55] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (5)); ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[1] = (basilys_ptr_t)(/*_.NLOC__V26*/ curfptr[25]); ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[2] = (basilys_ptr_t)(/*_.OICLO__V39*/ curfptr[38]); ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[3] = (basilys_ptr_t)(/*_.BXOFF__V48*/ curfptr[47]); ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[4] = (basilys_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]); ; /*_.LAMBDA___V55*/ curfptr[53] = /*_.LAMBDA___V56*/ curfptr[55];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3494:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3494:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V55*/ curfptr[53]; /*_.MULTIPLE_EVERY__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.NCLOV__V28*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3507:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3507:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[22])), (3), "CLASS_OBJTOUCH");/*_.INST__V59*/ curfptr[58] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3507:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.NLOC__V26*/ curfptr[25]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3507:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.COMM__V32*/ curfptr[31]), "OTOUCH_COMMENT"); ; BASILYS_LOCATION("warmelt-genobj.melt:3507:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.OICLO__V39*/ curfptr[38]), "OTOUCH_VAL"); ; /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]), (basilys_ptr_t)(/*_.INST___V58*/ curfptr[57])); /*_.LET___V43*/ curfptr[41] = /*_.OICLO__V39*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.OCROUT__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.ODATROUT__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.OCPUTROUT__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.BXOFF__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.LAMBDA___V55*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3478:/ clear"); /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ;} ; /*_.LET___V36*/ curfptr[33] = /*_.LET___V43*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3464:/ clear"); /*clear*/ /*_.NDATAROU__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3464:/ clear"); /*clear*/ /*_.STRBUF2STRING__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3464:/ clear"); /*clear*/ /*_.OICLO__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3464:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3464:/ clear"); /*clear*/ /*_.LET___V43*/ curfptr[41] = 0 ;} ; /*_.LET___V22*/ curfptr[17] = /*_.LET___V36*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.NAM__V23*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.DISCX__V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.NRANK__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.NLOC__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.NPRO__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.NCLOV__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_#NBCLOS__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.NAMBUF__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.ODISCR__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.LOCVAR__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.COMM__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3444:/ clear"); /*clear*/ /*_.LET___V36*/ curfptr[33] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.INIBODY__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.CHOBJ__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.IF___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3434:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3429:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3429:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3429:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3429:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3429:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3429:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DATACLOSURE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_115_COMPILOBJ_DATACLOSURE*/ static basilys_ptr_t rout_116_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_116_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3496:/ getarg"); /*_.CLOV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3496:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3496:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3497:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3497:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3497:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.CLOVAL__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[3]))));; /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#GET_INT__L2*/ curfnum[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3498:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3498:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV");/*_.INST__V6*/ curfptr[5] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3498:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3498:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), ((/*~OICLO*/ curfclos->tabval[2])), "OPCLOV_CLOS"); ; BASILYS_LOCATION("warmelt-genobj.melt:3498:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ curfptr[3]), "OPCLOV_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:3498:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V6*/ curfptr[5]))));basilys_putfield_object((/*_.INST__V6*/ curfptr[5]), (3), (/*_.CLOVAL__V3*/ curfptr[2]), "OPCLOV_CVAL"); ; /*_.OCPUTCLOS__V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;} ; basilysgc_append_list((basilys_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.OCPUTCLOS__V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3497:/ clear"); /*clear*/ /*_.CLOVAL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3497:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3497:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3497:/ clear"); /*clear*/ /*_.OCPUTCLOS__V5*/ curfptr[4] = 0 ;} ; /*_#GET_INT__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[3]))));; /*_#I__L4*/ curfnum[3] = ((/*_#GET_INT__L3*/ curfnum[1]) + (1));; basilys_put_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[3])), (/*_#I__L4*/ curfnum[3])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3496:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3496:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_116_LAMBDA_*/ static basilys_ptr_t rout_117_COMPILOBJ_DATAROUTINE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_117_COMPILOBJ_DATAROUTINE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 61 void* varptr[61]; #define CURFRAM_NBVARNUM 16 long varnum[16]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<61; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 61; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_DATAROUTINE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3520:/ getarg"); /*_.NDROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3520:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3520:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3521:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3521:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3521:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3521:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3521:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3521:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ndrou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3521)?(3521):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3521:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3521:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3521:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3522:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3522:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3522:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3522:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3522:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3522:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3522)?(3522):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3522:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3522:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3522:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3524:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3524:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3524:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3524:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine+ ndrou"; BASILYS_LOCATION("warmelt-genobj.melt:3524:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3524:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3524:/ apply.arg"); argtab[3].bp_long = 3524; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3524:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3524:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3524:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3525:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3526:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; }; ; /*_.CHOBJ__V13*/ curfptr[12] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.NDROU__V2*/ curfptr[1])));; /*_.UNUSED_STUFF__V14*/ curfptr[13] = (/*nil*/NULL);; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3531:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3531:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:3531:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3531:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3531:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3531:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3531)?(3531):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3531:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3531:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3531:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3532:/ cond"); /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3532:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3532:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3534:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3534:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3534:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3534:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine+ found chobj"; BASILYS_LOCATION("warmelt-genobj.melt:3534:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3534:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3534:/ apply.arg"); argtab[3].bp_long = 3534; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3534:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3534:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3534:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3535:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];; BASILYS_LOCATION("warmelt-genobj.melt:3535:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3533:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[18];;} ; /*_.IF___V17*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3532:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3532:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3532:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3532:/ cond.else"); /*_.IF___V17*/ curfptr[15] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3536:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V23*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3537:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V24*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3538:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3539:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3540:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3541:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 5, "NDROU_PROC");/*_.NPRO__V28*/ curfptr[27] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3542:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), 3, "OBROUT_BODY");/*_.INIBODY__V29*/ curfptr[28] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3543:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3543:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!konst_5_VALROUT_*/ curfrout->tabval[5]); /*_.LOCVAR__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NULL__L6*/ curfnum[0] = ((/*_.NLOC__V25*/ curfptr[24]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:3545:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3545:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3545:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-genobj.melt:3546:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3546:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3546:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3547:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), 0, "NREP_LOC");/*_.NREP_LOC__V33*/ curfptr[32] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3547:/ compute"); /*_.NLOC__V25*/ curfptr[24] = /*_.SETQ___V34*/ curfptr[33] = /*_.NREP_LOC__V33*/ curfptr[32];; /*_.IF___V32*/ curfptr[31] = /*_.SETQ___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3546:/ clear"); /*clear*/ /*_.NREP_LOC__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3546:/ clear"); /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3546:/ cond.else"); /*_.IF___V32*/ curfptr[31] = NULL;; } ; /*_.IF___V31*/ curfptr[30] = /*_.IF___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3545:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3545:/ clear"); /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3545:/ cond.else"); /*_.IF___V31*/ curfptr[30] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3548:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3548:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L8*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-genobj.melt:3548:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3548:/ cond.then"); /*_.IFELSE___V36*/ curfptr[33] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3548:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3548:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check compicache"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3548)?(3548):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V36*/ curfptr[33] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V35*/ curfptr[32] = /*_.IFELSE___V36*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3548:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3548:/ clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3548:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3549:/ block"); /*block*/{ /*_.NAMBUF__V38*/ curfptr[33] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[7])), (char*)0);; /*_#DRK__L9*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));; BASILYS_LOCATION("warmelt-genobj.melt:3552:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3552:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.ODISCR__V39*/ curfptr[38] = basilysgc_send((basilys_ptr_t)(/*_.DISX__V24*/ curfptr[20]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[8])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), ( "drout_")); basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), (/*_#DRK__L9*/ curfnum[6])); BASILYS_LOCATION("warmelt-genobj.melt:3556:/ cond"); /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3556:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3556:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:3558:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; }; ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39]))); BASILYS_LOCATION("warmelt-genobj.melt:3556:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3556:/ clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3560:/ block"); /*block*/{ /*_.STRBUF2STRING__V42*/ curfptr[41] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), basilys_strbuf_str((basilys_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]))));; /*_.MAPOBJECT_GET__V43*/ curfptr[42] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.NPRO__V28*/ curfptr[27])));; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3562:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[9])), (6), "CLASS_OBJINITROUTINE");/*_.INST__V45*/ curfptr[44] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (3), (/*_.ODISCR__V39*/ curfptr[38]), "OIE_DISCR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.NDROU__V2*/ curfptr[1]), "OIE_DATA"); ; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (4), (/*_.LOCVAR__V30*/ curfptr[29]), "OIE_LOCVAR"); ; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), (/*_.STRBUF2STRING__V42*/ curfptr[41]), "OIE_CNAME"); ; BASILYS_LOCATION("warmelt-genobj.melt:3562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (5), (/*_.MAPOBJECT_GET__V43*/ curfptr[42]), "OIR_PROCROUTINE"); ; /*_.OIROUT__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), (basilysobject_ptr_t) (/*_.NDROU__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.OIROUT__V44*/ curfptr[43])); /*_#IS_A__L10*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-genobj.melt:3572:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3572:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3572:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3573:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3573:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), 5, "NRPRO_CONST");/*_.PCONSTL__V48*/ curfptr[47] = slot; }; ; /*_#NBCONST__L11*/ curfnum[10] = (basilys_list_length((basilys_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47])));; /*_.BXOFF__V49*/ curfptr[48] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (0)));; BASILYS_LOCATION("warmelt-genobj.melt:3576:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!konst_14_IROUTVAL_*/ curfrout->tabval[14])), 1, "NAMED_NAME");/*_.COMM__V50*/ curfptr[49] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3578:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3578:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3578:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3578:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine pconstl"; BASILYS_LOCATION("warmelt-genobj.melt:3578:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11]; BASILYS_LOCATION("warmelt-genobj.melt:3578:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3578:/ apply.arg"); argtab[3].bp_long = 3578; /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3578:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3578:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3578:/ cppif.else"); /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_put_int((basilys_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]), (/*_#NBCONST__L11*/ curfnum[10])); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3582:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V54*/ curfptr[53] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (5)); ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[1] = (basilys_ptr_t)(/*_.BXOFF__V49*/ curfptr[48]); ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[2] = (basilys_ptr_t)(/*_.NLOC__V25*/ curfptr[24]); ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[3] = (basilys_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]); ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[4] = (basilys_ptr_t)(/*_.INIBODY__V29*/ curfptr[28]); ; /*_.LAMBDA___V53*/ curfptr[51] = /*_.LAMBDA___V54*/ curfptr[53];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3580:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3580:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V53*/ curfptr[51]; /*_.LIST_EVERY__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L13*/ curfnum[11] = (basilys_get_int((basilys_ptr_t)(/*_.BXOFF__V49*/ curfptr[48])));; /*_#I__L14*/ curfnum[13] = ((/*_#GET_INT__L13*/ curfnum[11]) > (0));; BASILYS_LOCATION("warmelt-genobj.melt:3632:/ cond"); /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3632:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3632:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3633:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3633:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[26])), (3), "CLASS_OBJTOUCH");/*_.INST__V57*/ curfptr[56] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3633:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.NLOC__V25*/ curfptr[24]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3633:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.OIROUT__V44*/ curfptr[43]), "OTOUCH_VAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:3633:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.COMM__V50*/ curfptr[49]), "OTOUCH_COMMENT"); ; /*_.INST___V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.INIBODY__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.INST___V56*/ curfptr[55])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3632:/ clear"); /*clear*/ /*_.INST___V56*/ curfptr[55] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3638:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3638:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3638:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3638:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine here npro"; BASILYS_LOCATION("warmelt-genobj.melt:3638:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:3638:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3638:/ apply.arg"); argtab[3].bp_long = 3638; /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V58*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3638:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3638:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3638:/ cppif.else"); /*_.IFCPP___V58*/ curfptr[55] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3639:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3639:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3639:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3639:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine here fresh oirout"; BASILYS_LOCATION("warmelt-genobj.melt:3639:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:3639:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3639:/ apply.arg"); argtab[3].bp_long = 3639; /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V60*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3639:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3639:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3639:/ cppif.else"); /*_.IFCPP___V60*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V47*/ curfptr[46] = /*_.OIROUT__V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.PCONSTL__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_#NBCONST__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.BXOFF__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.COMM__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.LAMBDA___V53*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.LIST_EVERY__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_#GET_INT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3573:/ clear"); /*clear*/ /*_.IFCPP___V60*/ curfptr[58] = 0 ;} ; /*_.IF___V46*/ curfptr[45] = /*_.LET___V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3572:/ clear"); /*clear*/ /*_.LET___V47*/ curfptr[46] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3572:/ cond.else"); /*_.IF___V46*/ curfptr[45] = NULL;; } ; /*_.LET___V41*/ curfptr[39] = /*_.IF___V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3560:/ clear"); /*clear*/ /*_.STRBUF2STRING__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3560:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3560:/ clear"); /*clear*/ /*_.OIROUT__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3560:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3560:/ clear"); /*clear*/ /*_.IF___V46*/ curfptr[45] = 0 ;} ; /*_.LET___V37*/ curfptr[31] = /*_.LET___V41*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3549:/ clear"); /*clear*/ /*_.NAMBUF__V38*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3549:/ clear"); /*clear*/ /*_#DRK__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3549:/ clear"); /*clear*/ /*_.ODISCR__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3549:/ clear"); /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;} ; /*_.LET___V22*/ curfptr[17] = /*_.LET___V37*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.NAM__V23*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.DISX__V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.NLOC__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.NPRO__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.INIBODY__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.LOCVAR__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.IF___V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3536:/ clear"); /*clear*/ /*_.LET___V37*/ curfptr[31] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.UNUSED_STUFF__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.IF___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3525:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3520:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3520:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3520:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3520:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3520:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3520:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_DATAROUTINE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_117_COMPILOBJ_DATAROUTINE*/ static basilys_ptr_t rout_118_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_118_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3582:/ getarg"); /*_.CONSTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3582:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3583:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3583:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3583:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3583:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine constx"; BASILYS_LOCATION("warmelt-genobj.melt:3583:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3583:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3583:/ apply.arg"); argtab[3].bp_long = 3583; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3583:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3583:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3583:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3585:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3585:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3585:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3586:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3586:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.CNSTBIND__V6*/ curfptr[5] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3587:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3587:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3587:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3587:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3587:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3587:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_dataroutine check cnstbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3587)?(3587):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3587:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3587:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3587:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3588:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3589:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3589:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OCONSTX__V9*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#OFF__L4*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[1]))));; BASILYS_LOCATION("warmelt-genobj.melt:3592:/ cond"); /*cond*/ if (/*_.OCONSTX__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3592:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3592:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3593:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:3595:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3595:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3595:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L4*/ curfnum[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3596:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3596:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ curfrout->tabval[5])), (4), "CLASS_OBJPUTROUTCONSTNOTNULL");/*_.INST__V13*/ curfptr[12] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3596:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3596:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:3596:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.MAKE_INTEGERBOX__V11*/ curfptr[10]), "OPRCONST_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:3596:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (3), (/*_.OCONSTX__V9*/ curfptr[7]), "OPRCONST_CVAL"); ; /*_.INST___V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;} ; /*_.IPUT__V10*/ curfptr[9] = /*_.INST___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3595:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3595:/ clear"); /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3595:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3595:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V14*/ curfptr[10] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L4*/ curfnum[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3601:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3601:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[7])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3601:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3601:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:3601:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.MAKE_INTEGERBOX__V14*/ curfptr[10]), "OPRCONST_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:3601:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (3), (/*_.OCONSTX__V9*/ curfptr[7]), "OPRCONST_CVAL"); ; /*_.INST___V15*/ curfptr[11] = /*_.INST__V16*/ curfptr[15];;} ; /*_.IPUT__V10*/ curfptr[9] = /*_.INST___V15*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3595:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3595:/ clear"); /*clear*/ /*_.INST___V15*/ curfptr[11] = 0 ;} ; } ; basilysgc_append_list((basilys_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.IPUT__V10*/ curfptr[9])); /*_#I__L6*/ curfnum[5] = ((/*_#OFF__L4*/ curfnum[2]) + (1));; basilys_put_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[1])), (/*_#I__L6*/ curfnum[5])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3593:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3593:/ clear"); /*clear*/ /*_.IPUT__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3593:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3588:/ clear"); /*clear*/ /*_.OCONSTX__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3588:/ clear"); /*clear*/ /*_#OFF__L4*/ curfnum[2] = 0 ;} ; /*_.IFELSE___V5*/ curfptr[3] = /*_.IFCPP___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3586:/ clear"); /*clear*/ /*_.CNSTBIND__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3586:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3585:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3585:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-genobj.melt:3611:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3611:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3611:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3612:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3612:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3612:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3612:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine constx data"; BASILYS_LOCATION("warmelt-genobj.melt:3612:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:3612:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3612:/ apply.arg"); argtab[3].bp_long = 3612; /*_.DEBUG_MSG_FUN__V19*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3612:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3612:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3612:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3613:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3614:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3614:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OCONSTX__V20*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#OFF__L9*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[1]))));; BASILYS_LOCATION("warmelt-genobj.melt:3617:/ cond"); /*cond*/ if (/*_.OCONSTX__V20*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3617:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3617:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3618:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V21*/ curfptr[5] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L9*/ curfnum[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3618:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[7])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V23*/ curfptr[9] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[9]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[9]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[9]), (2), (/*_.MAKE_INTEGERBOX__V21*/ curfptr[5]), "OPRCONST_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[9]), (3), (/*_.OCONSTX__V20*/ curfptr[7]), "OPRCONST_CVAL"); ; /*_.IPUT__V22*/ curfptr[6] = /*_.INST__V23*/ curfptr[9];;} ; basilysgc_append_list((basilys_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (basilys_ptr_t)(/*_.IPUT__V22*/ curfptr[6])); /*_#I__L10*/ curfnum[5] = ((/*_#OFF__L9*/ curfnum[2]) + (1));; basilys_put_int((basilys_ptr_t)((/*~BXOFF*/ curfclos->tabval[1])), (/*_#I__L10*/ curfnum[5])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3618:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V21*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ clear"); /*clear*/ /*_.IPUT__V22*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3618:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[5] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3613:/ clear"); /*clear*/ /*_.OCONSTX__V20*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3613:/ clear"); /*clear*/ /*_#OFF__L9*/ curfnum[2] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3611:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3611:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3611:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3611:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3626:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3626:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3626:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3626:/ apply.arg"); argtab[0].bp_cstring = "compilobj_dataroutine unexpected constx"; BASILYS_LOCATION("warmelt-genobj.melt:3626:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:3626:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3626:/ apply.arg"); argtab[3].bp_long = 3626; /*_.DEBUG_MSG_FUN__V25*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3626:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3626:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3626:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3627:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3627:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3627:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3627:/ cond.then"); /*_.IFELSE___V27*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3627:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3627:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "compilobj_dataroutine unexepected constx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3627)?(3627):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[7] = /*_.IFELSE___V27*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3627:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3627:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3625:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[6] = /*_.IFCPP___V26*/ curfptr[7];;} ; /*_.IFELSE___V17*/ curfptr[10] = /*_.PROGN___V28*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3611:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3611:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3611:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[6] = 0 ;} ; } ; /*_.IFELSE___V5*/ curfptr[3] = /*_.IFELSE___V17*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3585:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3585:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[10] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3582:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3582:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_118_LAMBDA_*/ static basilys_ptr_t rout_119_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_119_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3647:/ getarg"); /*_.QDCM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3647:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3647:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3648:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3648:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.QDCM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3648:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3648:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3648:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3648:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check qdcm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3648)?(3648):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3648:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3648:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3648:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3649:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3649:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_INITGENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3649:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3649:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3649:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3649:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3649)?(3649):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3649:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3649:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3649:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3650:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3650:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3650:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3650:/ apply.arg"); argtab[0].bp_cstring = "compilobj_quasidata_current_module_environment_container qdcm"; BASILYS_LOCATION("warmelt-genobj.melt:3650:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3650:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3650:/ apply.arg"); argtab[3].bp_long = 3650; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.QDCM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3650:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3650:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3650:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3651:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3651:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 10, "IGNCX_CONTENVLOC");/*_.LOCBOX__V11*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3653:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3653:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3653:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3653:/ apply.arg"); argtab[0].bp_cstring = "compilobj_quasidata_current_module_environment_container return locbox"; BASILYS_LOCATION("warmelt-genobj.melt:3653:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3653:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3653:/ apply.arg"); argtab[3].bp_long = 3653; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LOCBOX__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3653:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3653:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3653:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3654:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCBOX__V11*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:3654:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3651:/ clear"); /*clear*/ /*_.LOCBOX__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3651:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3651:/ clear"); /*clear*/ /*_.RETURN___V14*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3647:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3647:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3647:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3647:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3647:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3647:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_119_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t rout_120_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_120_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3659:/ getarg"); /*_.QDPM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3659:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3659:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3660:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3660:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.QDPM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3660:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3660:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3660:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3660:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check qdpm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3660)?(3660):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3660:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3660:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3660:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3661:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3661:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_INITGENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3661:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3661:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3661:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3661:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3661)?(3661):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3661:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3661:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3661:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3662:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3662:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3662:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3662:/ apply.arg"); argtab[0].bp_cstring = "compilobj_quasidata_parent_module_environment qdpm"; BASILYS_LOCATION("warmelt-genobj.melt:3662:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3662:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3662:/ apply.arg"); argtab[3].bp_long = 3662; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.QDPM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3662:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3662:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3662:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3663:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3663:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 9, "IGNCX_PREVENVLOC");/*_.PREVENVLOC__V11*/ curfptr[10] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3665:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3665:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3665:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3665:/ apply.arg"); argtab[0].bp_cstring = "compilobj_quasidata_parent_module_environment return prevenvloc"; BASILYS_LOCATION("warmelt-genobj.melt:3665:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3665:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3665:/ apply.arg"); argtab[3].bp_long = 3665; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PREVENVLOC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3665:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3665:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3665:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3666:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PREVENVLOC__V11*/ curfptr[10];; BASILYS_LOCATION("warmelt-genobj.melt:3666:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3663:/ clear"); /*clear*/ /*_.PREVENVLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3663:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3663:/ clear"); /*clear*/ /*_.RETURN___V14*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3659:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3659:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3659:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3659:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3659:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3659:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_120_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ static basilys_ptr_t rout_121_COMPILOBJ_NREP_STORE_PREDEFINED(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_121_COMPILOBJ_NREP_STORE_PREDEFINED_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_STORE_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3671:/ getarg"); /*_.NSPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3671:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3671:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3672:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3672:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3672:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3672:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3672:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3672:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nspr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3672)?(3672):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3672:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3672:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3672:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3673:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3673:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3673:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3673:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3673:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3673:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3673)?(3673):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3673:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3673:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3673:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3674:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3674:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3674:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3674:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_store_predefined start nspr"; BASILYS_LOCATION("warmelt-genobj.melt:3674:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3674:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3674:/ apply.arg"); argtab[3].bp_long = 3674; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3674:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3674:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3674:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3675:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3676:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 1, "NSTPD_PREDEF");/*_.NPRED__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3677:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 2, "NSTPD_VALUE");/*_.NVAL__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3678:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3678:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OVAL__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.NVAL__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:3681:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3681:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3681:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3682:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; }; ; /*_.MAKE_STRING__V17*/ curfptr[16] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[5])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]))));; /*_.OPRED__V15*/ curfptr[14] = /*_.MAKE_STRING__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3681:/ clear"); /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3681:/ clear"); /*clear*/ /*_.MAKE_STRING__V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3681:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3681:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.NPRED__V12*/ curfptr[11])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-genobj.melt:3683:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3683:/ cond.then"); /*_.IFELSE___V18*/ curfptr[15] = /*_.NPRED__V12*/ curfptr[11];; } else {BASILYS_LOCATION("warmelt-genobj.melt:3683:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3683:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3685:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3685:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3685:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3685:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3685:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3685:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "unexpected npred"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3685)?(3685):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[16] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3685:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3685:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3685:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[19] = /*_.IFCPP___V19*/ curfptr[16];;} ; /*_.IFELSE___V18*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3683:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3683:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;} ; } ; /*_.OPRED__V15*/ curfptr[14] = /*_.IFELSE___V18*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3681:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3681:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[15] = 0 ;} ; } ; /*_.MAKE_STRINGCONST__V22*/ curfptr[16] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[5])), ( "BASILYSG(")));; /*_.MAKE_STRINGCONST__V23*/ curfptr[19] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[5])), ( ")")));; /*_.MAKE_TUPLE3__V24*/ curfptr[15] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V22*/ curfptr[16]), (basilys_ptr_t)(/*_.OPRED__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V23*/ curfptr[19])));; BASILYS_LOCATION("warmelt-genobj.melt:3686:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3686:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[6])), (2), "CLASS_OBJEXPV");/*_.INST__V26*/ curfptr[25] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3686:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.MAKE_TUPLE3__V24*/ curfptr[15]), "OBX_CONT"); ; /*_.OLEFT__V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3693:/ apply"); /*apply*/{ /*_.LIST1__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.OLEFT__V25*/ curfptr[24]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3691:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3691:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[8])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V29*/ curfptr[28] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3691:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3691:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.LIST1__V27*/ curfptr[26]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:3691:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.OVAL__V14*/ curfptr[13]), "OBCPT_EXPR"); ; /*_.RES__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3697:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3697:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3697:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3697:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_store_predefined result res"; BASILYS_LOCATION("warmelt-genobj.melt:3697:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:3697:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3697:/ apply.arg"); argtab[3].bp_long = 3697; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3697:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3697:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3697:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.RES__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.NPRED__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.NVAL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.OVAL__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.OPRED__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V22*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.MAKE_TUPLE3__V24*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.OLEFT__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.LIST1__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.RES__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3675:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3671:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3671:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3671:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3671:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3671:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3671:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_STORE_PREDEFINED", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_121_COMPILOBJ_NREP_STORE_PREDEFINED*/ static basilys_ptr_t rout_122_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_122_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3705:/ getarg"); /*_.NUCMEB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3705:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3705:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3706:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3706:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3706:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3706:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3706:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3706:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nucmeb"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3706)?(3706):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3706:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3706:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3706:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3707:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3707:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_INITGENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3707:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3707:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3707:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3707:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3707)?(3707):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3707:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3707:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3707:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3708:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3708:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3708:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3708:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_update_current_module_environment_container nucmeb"; BASILYS_LOCATION("warmelt-genobj.melt:3708:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3708:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3708:/ apply.arg"); argtab[3].bp_long = 3708; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3708:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3708:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3708:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3709:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3710:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 2, "NCUMEB_COMMENT");/*_.NCOMM__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3711:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 1, "NUCMEB_EXPR");/*_.NEX__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3712:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 11, "IGNCX_PROCURMODENVLIST");/*_.PCML__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3713:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 10, "IGNCX_CONTENVLOC");/*_.OCONTENVLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3714:/ block"); /*block*/{ /*_.SB__V17*/ curfptr[16] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SB__V17*/ curfptr[16]), ( "upd.cur.mod.env.cont")); /*_#IS_STRING__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.NCOMM__V12*/ curfptr[11])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:3717:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3717:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3717:/ block"); /*block*/{ basilysgc_add_strbuf((basilys_ptr_t)(/*_.SB__V17*/ curfptr[16]), ( " : ")); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SB__V17*/ curfptr[16]), basilys_string_str((basilys_ptr_t)(/*_.NCOMM__V12*/ curfptr[11]))); BASILYS_LOCATION("warmelt-genobj.melt:3718:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*_.LET___V16*/ curfptr[15] = /*_.SB__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3714:/ clear"); /*clear*/ /*_.SB__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3714:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;} ; /*_.CSBUF__V18*/ curfptr[16] = /*_.LET___V16*/ curfptr[15];; /*_.OBODL__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.STRBUF2STRING__V20*/ curfptr[19] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), basilys_strbuf_str((basilys_ptr_t)(/*_.CSBUF__V18*/ curfptr[16]))));; BASILYS_LOCATION("warmelt-genobj.melt:3724:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3724:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[5])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V22*/ curfptr[21] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3724:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3724:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OBODL__V19*/ curfptr[18]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:3724:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.STRBUF2STRING__V20*/ curfptr[19]), "OCOMBLO_COMMENT"); ; /*_.OCBLO__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3729:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3729:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OEX__V23*/ curfptr[22] = basilysgc_send((basilys_ptr_t)(/*_.NEX__V13*/ curfptr[12]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3731:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3731:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3731:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3731:/ apply.arg"); argtab[0].bp_cstring = "compilobj.upd.cur.mod.env.box pcml"; BASILYS_LOCATION("warmelt-genobj.melt:3731:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3731:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3731:/ apply.arg"); argtab[3].bp_long = 3731; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PCML__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3731:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3731:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3731:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3737:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V27*/ curfptr[26] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (5)); ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[1] = (basilys_ptr_t)(/*_.NLOC__V11*/ curfptr[10]); ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[2] = (basilys_ptr_t)(/*_.OEX__V23*/ curfptr[22]); ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[3] = (basilys_ptr_t)(/*_.OCONTENVLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[4] = (basilys_ptr_t)(/*_.OBODL__V19*/ curfptr[18]); ; /*_.LAMBDA___V26*/ curfptr[24] = /*_.LAMBDA___V27*/ curfptr[26];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3735:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3735:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V26*/ curfptr[24]; /*_.LIST_EVERY__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.PCML__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3791:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3791:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3791:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3791:/ apply.arg"); argtab[0].bp_cstring = "compobj.upd.mod.env.box result ocblo"; BASILYS_LOCATION("warmelt-genobj.melt:3791:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3791:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3791:/ apply.arg"); argtab[3].bp_long = 3791; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OCBLO__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3791:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3791:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3791:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3792:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OCBLO__V21*/ curfptr[20];; BASILYS_LOCATION("warmelt-genobj.melt:3792:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V31*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.NCOMM__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.NEX__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.PCML__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.OCONTENVLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.CSBUF__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.OBODL__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.STRBUF2STRING__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.OCBLO__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.OEX__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.LAMBDA___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.LIST_EVERY__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3709:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3705:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3705:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3705:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3705:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3705:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3705:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_122_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t rout_123_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_123_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3737:/ getarg"); /*_.CUROUT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3737:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3738:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3738:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3738:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3738:/ apply.arg"); argtab[0].bp_cstring = "compilobj.upd.cur.mod.env.box curout"; BASILYS_LOCATION("warmelt-genobj.melt:3738:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3738:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3738:/ apply.arg"); argtab[3].bp_long = 3738; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3738:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3738:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3738:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3739:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3739:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3739:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3740:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3741:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), 2, "OBROUT_PROC");/*_.CURPROC__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3742:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPROC__V5*/ curfptr[3]), 5, "NRPRO_CONST");/*_.CNSLIS__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3743:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPROC__V5*/ curfptr[3]), 6, "NRPRO_DATAROUT");/*_.DATAROUT__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3744:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3744:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.ODATAROUT__V8*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.DATAROUT__V7*/ curfptr[6]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.BOXCOUNT__V9*/ curfptr[8] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (0)));; BASILYS_LOCATION("warmelt-genobj.melt:3746:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), 4, "OIE_LOCVAR");/*_.OROUTLOCVAR__V10*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3748:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3748:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3748:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3748:/ apply.arg"); argtab[0].bp_cstring = "compilobj.upd.cur.mod.env.box cnslis"; BASILYS_LOCATION("warmelt-genobj.melt:3748:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; BASILYS_LOCATION("warmelt-genobj.melt:3748:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3748:/ apply.arg"); argtab[3].bp_long = 3748; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CNSLIS__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3748:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3748:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3748:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3749:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3749:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3749:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3749:/ apply.arg"); argtab[0].bp_cstring = "compilobj.upd.cur.mod.env.box odatarout"; BASILYS_LOCATION("warmelt-genobj.melt:3749:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[2]; BASILYS_LOCATION("warmelt-genobj.melt:3749:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3749:/ apply.arg"); argtab[3].bp_long = 3749; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3749:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3749:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3749:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3750:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3750:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-genobj.melt:3750:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3750:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3750:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3750:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check odatarout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3750)?(3750):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3750:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3750:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3750:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3751:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3751:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3751:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3751:/ apply.arg"); argtab[0].bp_cstring = "compilobj.upd.cur.mod.env.box oroutlocvar"; BASILYS_LOCATION("warmelt-genobj.melt:3751:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[2]; BASILYS_LOCATION("warmelt-genobj.melt:3751:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3751:/ apply.arg"); argtab[3].bp_long = 3751; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OROUTLOCVAR__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3751:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3751:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3751:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3754:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (6)); ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (basilys_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8]); ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (basilys_ptr_t)((/*~NLOC*/ curfclos->tabval[1])); ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (basilys_ptr_t)(/*_.OROUTLOCVAR__V10*/ curfptr[9]); ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[3] = (basilys_ptr_t)((/*~OEX*/ curfclos->tabval[2])); ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[4] = (basilys_ptr_t)((/*~OCONTENVLOC*/ curfclos->tabval[3])); ; BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[5] = (basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[4])); ; /*_.LAMBDA___V19*/ curfptr[17] = /*_.LAMBDA___V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3752:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3752:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[17]; /*_.LIST_EVERY__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.CNSLIS__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L7*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8])));; /*_#I__L8*/ curfnum[7] = ((/*_#GET_INT__L7*/ curfnum[2]) + (1));; basilys_put_int((basilys_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8]), (/*_#I__L8*/ curfnum[7])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.CURPROC__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.CNSLIS__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.DATAROUT__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.ODATAROUT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.BOXCOUNT__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.OROUTLOCVAR__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3740:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3737:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3737:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_123_LAMBDA_*/ static basilys_ptr_t rout_124_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_124_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 17 void* varptr[17]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3754:/ getarg"); /*_.CURCONST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3754:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3755:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3755:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3755:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3755:/ apply.arg"); argtab[0].bp_cstring = "compilobj.upd.cur.mod.env.box curconst"; BASILYS_LOCATION("warmelt-genobj.melt:3755:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3755:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3755:/ apply.arg"); argtab[3].bp_long = 3755; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURCONST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3755:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3755:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3755:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3756:/ block"); /*block*/{ /*_#CURCOUNT__L2*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXCOUNT*/ curfclos->tabval[0]))));; /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCONST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3759:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3759:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3759:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3762:/ block"); /*block*/{ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#CURCOUNT__L2*/ curfnum[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3763:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3763:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[2])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V7*/ curfptr[6] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3763:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6]))));basilys_putfield_object((/*_.INST__V7*/ curfptr[6]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3763:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6]))));basilys_putfield_object((/*_.INST__V7*/ curfptr[6]), (1), ((/*~OROUTLOCVAR*/ curfclos->tabval[2])), "OPRCONST_ROUT"); ; BASILYS_LOCATION("warmelt-genobj.melt:3763:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6]))));basilys_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.MAKE_INTEGERBOX__V5*/ curfptr[3]), "OPRCONST_OFF"); ; BASILYS_LOCATION("warmelt-genobj.melt:3763:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6]))));basilys_putfield_object((/*_.INST__V7*/ curfptr[6]), (3), ((/*~OEX*/ curfclos->tabval[3])), "OPRCONST_CVAL"); ; /*_.OPUTROUT__V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;} ; /*_.MAKE_STRINGCONST__V8*/ curfptr[7] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), ( "compobj.upd.mod.env.box")));; BASILYS_LOCATION("warmelt-genobj.melt:3769:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3769:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[4])), (3), "CLASS_OBJTOUCH");/*_.INST__V10*/ curfptr[9] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3769:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3769:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (1), ((/*~OROUTLOCVAR*/ curfclos->tabval[2])), "OTOUCH_VAL"); ; BASILYS_LOCATION("warmelt-genobj.melt:3769:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (2), (/*_.MAKE_STRINGCONST__V8*/ curfptr[7]), "OTOUCH_COMMENT"); ; /*_.OTOUCHROUT__V9*/ curfptr[8] = /*_.INST__V10*/ curfptr[9];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3776:/ apply"); /*apply*/{ /*_.LIST1__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[7])), (basilys_ptr_t)((/*~OCONTENVLOC*/ curfclos->tabval[4])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3774:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3774:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[6])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V13*/ curfptr[12] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3774:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3774:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.LIST1__V11*/ curfptr[10]), "OBDI_DESTLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:3774:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), ((/*~OEX*/ curfclos->tabval[3])), "OBCPT_EXPR"); ; /*_.OCOPY__V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3780:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3780:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3780:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3780:/ apply.arg"); argtab[0].bp_cstring = "compobj.upd.mod.env.box oputrout"; BASILYS_LOCATION("warmelt-genobj.melt:3780:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:3780:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3780:/ apply.arg"); argtab[3].bp_long = 3780; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OPUTROUT__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3780:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3780:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3780:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3781:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3781:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3781:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3781:/ apply.arg"); argtab[0].bp_cstring = "compobj.upd.mod.env.box otouchrout"; BASILYS_LOCATION("warmelt-genobj.melt:3781:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:3781:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3781:/ apply.arg"); argtab[3].bp_long = 3781; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OTOUCHROUT__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3781:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3781:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3781:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.OPUTROUT__V6*/ curfptr[5])); basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.OTOUCHROUT__V9*/ curfptr[8])); basilysgc_append_list((basilys_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.OCOPY__V12*/ curfptr[11])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.OPUTROUT__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.OTOUCHROUT__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.LIST1__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.OCOPY__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3762:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3756:/ clear"); /*clear*/ /*_#CURCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3756:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3754:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_124_LAMBDA_*/ static basilys_ptr_t rout_125_COMPILTST_ANYTESTER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_125_COMPILTST_ANYTESTER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 16 void* varptr[16]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILTST_ANYTESTER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3842:/ getarg"); /*_.NTESTER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3842:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:3842:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3842:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3843:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3843:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTESTER__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3843:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3843:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3843:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3843:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntester"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3843)?(3843):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3843:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3843:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3843:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3844:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3844:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3844:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3844:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3844:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3844:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3844)?(3844):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3844:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3844:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3844:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3845:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3845:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:3845:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3845:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3845:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3845:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3845)?(3845):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3845:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3845:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3845:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3846:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3846:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3846:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3846:/ apply.arg"); argtab[0].bp_cstring = "compiltst_anytester ntester"; BASILYS_LOCATION("warmelt-genobj.melt:3846:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3846:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3846:/ apply.arg"); argtab[3].bp_long = 3846; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NTESTER__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3846:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3846:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3846:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_puts(stderr,( "* compiltst unimplemented reciever class ")); BASILYS_LOCATION("warmelt-genobj.melt:3848:/ block"); /*block*/{ /*_.DISCR__V13*/ curfptr[11] = (basilys_discr((basilys_ptr_t)(/*_.NTESTER__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3848:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V13*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3848:/ clear"); /*clear*/ /*_.DISCR__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3848:/ clear"); /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3850:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3850:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3850:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3850:/ cond.then"); /*_.IFELSE___V16*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3850:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3850:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@compile_tester should be implemented in normtesters-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3850)?(3850):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[11] = /*_.IFELSE___V16*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3850:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3850:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3842:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V15*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:3842:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3842:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3842:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3842:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3842:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3842:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILTST_ANYTESTER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_125_COMPILTST_ANYTESTER*/ static basilys_ptr_t rout_126_COMPILOBJ_NREP_MATCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_126_COMPILOBJ_NREP_MATCH_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 126 void* varptr[126]; #define CURFRAM_NBVARNUM 37 long varnum[37]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<126; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 126; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILOBJ_NREP_MATCH", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3856:/ getarg"); /*_.NMAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3856:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3856:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3857:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3857:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3857:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3857:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3857:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3857:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3857)?(3857):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3857:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3857:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3857:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3858:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3858:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:3858:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3858:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3858:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3858:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3858)?(3858):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3858:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3858:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3858:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3859:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3859:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3859:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3859:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match nmat"; BASILYS_LOCATION("warmelt-genobj.melt:3859:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3859:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3859:/ apply.arg"); argtab[3].bp_long = 3859; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3859:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3859:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3859:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3861:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3862:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3863:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 2, "NMATCH_TESTS");/*_.NTESTS__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3864:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 3, "NMATCH_STUFFMAP");/*_.STUFFMAP__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3865:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3865:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3865:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 4, "NMATCH_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3865:/ cond.else"); /*_.NMATCHED__V15*/ curfptr[14] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3866:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATMAP__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3867:/ block"); /*block*/{ /*_#NBMAT__L4*/ curfnum[0] = (basilys_count_mapobjects((basilysmapobjects_ptr_t)(/*_.MATMAP__V16*/ curfptr[15])));; /*_.LABUF__V18*/ curfptr[17] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), ( "labmatch_")); /*_#I__L5*/ curfnum[4] = ((/*_#NBMAT__L4*/ curfnum[0]) + (1));; basilysgc_add_strbuf_dec((basilys_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), (/*_#I__L5*/ curfnum[4])); basilysgc_add_strbuf((basilys_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), ( "_")); BASILYS_LOCATION("warmelt-genobj.melt:3873:/ block"); /*block*/{ /*_.LABSTR__V20*/ curfptr[19] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[4])), basilys_strbuf_str((basilys_ptr_t)(/*_.LABUF__V18*/ curfptr[17]))));; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.MATMAP__V16*/ curfptr[15]), (basilysobject_ptr_t) (/*_.NMAT__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.LABSTR__V20*/ curfptr[19])); /*_.LET___V19*/ curfptr[18] = /*_.LABSTR__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3873:/ clear"); /*clear*/ /*_.LABSTR__V20*/ curfptr[19] = 0 ;} ; /*_.LET___V17*/ curfptr[16] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3867:/ clear"); /*clear*/ /*_#NBMAT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3867:/ clear"); /*clear*/ /*_.LABUF__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3867:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3867:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; /*_.MATLABEL__V21*/ curfptr[19] = /*_.LET___V17*/ curfptr[16];; BASILYS_LOCATION("warmelt-genobj.melt:3877:/ block"); /*block*/{ /*_.LABUF__V23*/ curfptr[18] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.LABUF__V23*/ curfptr[18]), basilys_string_str((basilys_ptr_t)(/*_.MATLABEL__V21*/ curfptr[19]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.LABUF__V23*/ curfptr[18]), ( "_end")); /*_.STRBUF2STRING__V24*/ curfptr[23] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[4])), basilys_strbuf_str((basilys_ptr_t)(/*_.LABUF__V23*/ curfptr[18]))));; /*_.LET___V22*/ curfptr[17] = /*_.STRBUF2STRING__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3877:/ clear"); /*clear*/ /*_.LABUF__V23*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3877:/ clear"); /*clear*/ /*_.STRBUF2STRING__V24*/ curfptr[23] = 0 ;} ; /*_.ENDLABEL__V25*/ curfptr[18] = /*_.LET___V22*/ curfptr[17];; /*_.SUBCOMPLIST__V26*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.OBODYL__V27*/ curfptr[26] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-genobj.melt:3887:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3887:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[6])), (4), "CLASS_OBJMULTIBLOCK");/*_.INST__V29*/ curfptr[28] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3887:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3887:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.OBODYL__V27*/ curfptr[26]), "OBLO_BODYL"); ; BASILYS_LOCATION("warmelt-genobj.melt:3887:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), ((/*nil*/NULL)), "OMULBLO_SUBCOMP"); ; /*_.OMBLOC__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;} ; /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (0)));; BASILYS_LOCATION("warmelt-genobj.melt:3892:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3892:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[7])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3892:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3892:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.MATLABEL__V21*/ curfptr[19]), "OBGOTO_PREFIX"); ; BASILYS_LOCATION("warmelt-genobj.melt:3892:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "OBGOTO_RANK"); ; /*_.OFIRSTGOTO__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3897:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3897:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[9])), (3), "CLASS_OBJLABELINSTR");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3897:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:3897:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.ENDLABEL__V25*/ curfptr[18]), "OBLAB_PREFIX"); ; BASILYS_LOCATION("warmelt-genobj.melt:3897:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), ((/*nil*/NULL)), "OBLAB_RANK"); ; /*_.OENDLABEL__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; /*_.MAKE_LIST__V35*/ curfptr[34] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-genobj.melt:3901:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3901:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[10])), (3), "CLASS_TESTERCOMPILCONTEXT");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3901:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.NMAT__V2*/ curfptr[1]), "TCX_NRMATCH"); ; BASILYS_LOCATION("warmelt-genobj.melt:3901:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.MAKE_LIST__V35*/ curfptr[34]), "TCX_FREELIST"); ; /*_.TCX__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; /*_.DONETESTS__V38*/ curfptr[37] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3908:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3908:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3908:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3908:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match nmatched"; BASILYS_LOCATION("warmelt-genobj.melt:3908:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3908:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3908:/ apply.arg"); argtab[3].bp_long = 3908; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3908:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3908:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3908:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3909:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3909:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.COMPILE_OBJ__V41*/ curfptr[39] = basilysgc_send((basilys_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3907:/ block"); /*block*/{ /*_.OMATCHED__V42*/ curfptr[41] = /*_.COMPILE_OBJ__V41*/ curfptr[39];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODYL__V27*/ curfptr[26]), (basilys_ptr_t)(/*_.OFIRSTGOTO__V31*/ curfptr[30])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3912:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3912:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3912:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3912:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match ntests"; BASILYS_LOCATION("warmelt-genobj.melt:3912:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4]; BASILYS_LOCATION("warmelt-genobj.melt:3912:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3912:/ apply.arg"); argtab[3].bp_long = 3912; /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3912:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3912:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3912:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3913:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3913:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3913:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3913:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match omatched"; BASILYS_LOCATION("warmelt-genobj.melt:3913:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3913:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3913:/ apply.arg"); argtab[3].bp_long = 3913; /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OMATCHED__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3913:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3913:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3913:/ cppif.else"); /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.NTESTS__V13*/ curfptr[12]); int cit1__EACHTUP_ix = 0; for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { /*_.CUROTEST__V47*/ curfptr[45] = basilys_multiple_nth((basilys_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]), cit1__EACHTUP_ix); /*_#TESTIX__L9*/ curfnum[4] = cit1__EACHTUP_ix; debugnum(( "compilobj_nrep_match testix="), (/*_#TESTIX__L9*/ curfnum[4])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3918:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3918:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3918:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3918:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match curotest"; BASILYS_LOCATION("warmelt-genobj.melt:3918:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3918:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3918:/ apply.arg"); argtab[3].bp_long = 3918; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3918:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3918:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3918:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3919:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3919:/ block"); /*block*/{ /*_#IS_A__L11*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-genobj.melt:3919:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3919:/ cond.then"); /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3919:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3919:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curotest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3919)?(3919):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3919:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3919:/ clear"); /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3919:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3920:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3920:/ block"); /*block*/{ /*_#GET_INT__L12*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45])));; /*_#I__L13*/ curfnum[12] = ((/*_#GET_INT__L12*/ curfnum[0]) == (/*_#TESTIX__L9*/ curfnum[4]));; BASILYS_LOCATION("warmelt-genobj.melt:3920:/ cond"); /*cond*/ if (/*_#I__L13*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3920:/ cond.then"); /*_.IFELSE___V53*/ curfptr[52] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3920:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3920:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curotest rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3920)?(3920):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V52*/ curfptr[50] = /*_.IFELSE___V53*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3920:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3920:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3920:/ clear"); /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3920:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3921:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3922:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3922:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.LABINS__V54*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_LABELINSTR*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3923:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3923:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3923:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), 1, "NTEST_MATCHED");/*_.CURNMATCHED__V55*/ curfptr[54] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3923:/ cond.else"); /*_.CURNMATCHED__V55*/ curfptr[54] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3925:/ multimsend"); /*multimsend*/{ union basilysparam_un argtab[2]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-genobj.melt:3925:/ multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-genobj.melt:3925:/ multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.TCX__V36*/ curfptr[35]; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.CUROBDEST__V57*/ curfptr[56];BASILYS_LOCATION("warmelt-genobj.melt:3925:/ multimsend.send"); /*_.CURCOMP__V56*/ curfptr[55] = basilysgc_send ((basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), ((basilys_ptr_t)((/*!COMPILE_TESTER*/ curfrout->tabval[14]))), (BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3928:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3928:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3928:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3928:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match labins"; BASILYS_LOCATION("warmelt-genobj.melt:3928:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3928:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3928:/ apply.arg"); argtab[3].bp_long = 3928; /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LABINS__V54*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V58*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3928:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3928:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3928:/ cppif.else"); /*_.IFCPP___V58*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3929:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3929:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3929:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3929:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match curcomp"; BASILYS_LOCATION("warmelt-genobj.melt:3929:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12]; BASILYS_LOCATION("warmelt-genobj.melt:3929:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3929:/ apply.arg"); argtab[3].bp_long = 3929; /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V60*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3929:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3929:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3929:/ cppif.else"); /*_.IFCPP___V60*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3930:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3930:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3930:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3930:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match curobdest"; BASILYS_LOCATION("warmelt-genobj.melt:3930:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3930:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3930:/ apply.arg"); argtab[3].bp_long = 3930; /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CUROBDEST__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V62*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3930:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3930:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3930:/ cppif.else"); /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3931:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3931:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3931:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3931:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match tcx"; BASILYS_LOCATION("warmelt-genobj.melt:3931:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[12]; BASILYS_LOCATION("warmelt-genobj.melt:3931:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3931:/ apply.arg"); argtab[3].bp_long = 3931; /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.TCX__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V64*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3931:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3931:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3931:/ cppif.else"); /*_.IFCPP___V64*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3932:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3932:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3932:/ cond"); /*cond*/ if (/*_.CURCOMP__V56*/ curfptr[55]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3932:/ cond.then"); /*_.IFELSE___V67*/ curfptr[66] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3932:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3932:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3932)?(3932):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V67*/ curfptr[66] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V66*/ curfptr[64] = /*_.IFELSE___V67*/ curfptr[66];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3932:/ clear"); /*clear*/ /*_.IFELSE___V67*/ curfptr[66] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3932:/ cppif.else"); /*_.IFCPP___V66*/ curfptr[64] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODYL__V27*/ curfptr[26]), (basilys_ptr_t)(/*_.LABINS__V54*/ curfptr[52])); /*_#IS_LIST__L18*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:3936:/ cond"); /*cond*/ if (/*_#IS_LIST__L18*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3936:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3936:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3937:/ block"); /*block*/{ /*_.LIST_LAST__V70*/ curfptr[69] = (basilys_list_last((basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55])));; /*_.LASTLICOMP__V71*/ curfptr[70] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_LAST__V70*/ curfptr[69])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3938:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3938:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3938:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3938:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match lastlicomp"; BASILYS_LOCATION("warmelt-genobj.melt:3938:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[12]; BASILYS_LOCATION("warmelt-genobj.melt:3938:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3938:/ apply.arg"); argtab[3].bp_long = 3938; /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LASTLICOMP__V71*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V72*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3938:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3938:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3938:/ cppif.else"); /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3939:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3939:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURCOMP__V56*/ curfptr[55]; /*_.LIST_APPEND2LIST__V74*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.OBODYL__V27*/ curfptr[26]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V69*/ curfptr[68] = /*_.LIST_APPEND2LIST__V74*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3937:/ clear"); /*clear*/ /*_.LIST_LAST__V70*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3937:/ clear"); /*clear*/ /*_.LASTLICOMP__V71*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3937:/ clear"); /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3937:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V74*/ curfptr[72] = 0 ;} ; /*_.IFELSE___V68*/ curfptr[66] = /*_.LET___V69*/ curfptr[68];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3936:/ clear"); /*clear*/ /*_.LET___V69*/ curfptr[68] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3936:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3936:/ block"); /*block*/{ /*_#IS_MULTIPLE__L20*/ curfnum[12] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-genobj.melt:3941:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L20*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3941:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3941:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3942:/ block"); /*block*/{ /*_.LASTUPCOMP__V76*/ curfptr[70] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55]), (-1)));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3943:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3943:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[20] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3943:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3943:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match lastupcomp"; BASILYS_LOCATION("warmelt-genobj.melt:3943:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[20]; BASILYS_LOCATION("warmelt-genobj.melt:3943:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3943:/ apply.arg"); argtab[3].bp_long = 3943; /*_.DEBUG_MSG_FUN__V78*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LASTUPCOMP__V76*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V77*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3943:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3943:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3943:/ cppif.else"); /*_.IFCPP___V77*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { long cit2__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.CURCOMP__V56*/ curfptr[55]); int cit2__EACHTUP_ix = 0; for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix ++) { /*_.SUBTEST__V79*/ curfptr[68] = basilys_multiple_nth((basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55]), cit2__EACHTUP_ix); /*_#SUBIX__L22*/ curfnum[20] = cit2__EACHTUP_ix; basilysgc_append_list((basilys_ptr_t)(/*_.OBODYL__V27*/ curfptr[26]), (basilys_ptr_t)(/*_.SUBTEST__V79*/ curfptr[68])); } /* end cit2__EACHTUP*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3944:/ clear"); /*clear*/ /*_.SUBTEST__V79*/ curfptr[68] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3944:/ clear"); /*clear*/ /*_#SUBIX__L22*/ curfnum[20] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*_.IFELSE___V75*/ curfptr[69] = /*_.IFCPP___V77*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3942:/ clear"); /*clear*/ /*_.LASTUPCOMP__V76*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3942:/ clear"); /*clear*/ /*_.IFCPP___V77*/ curfptr[71] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3941:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3941:/ block"); /*block*/{ /*_#IS_OBJECT__L23*/ curfnum[22] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:3949:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L23*/ curfnum[22]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3949:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3949:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3950:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3950:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L24*/ curfnum[23] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3950:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3950:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match obj curcomp"; BASILYS_LOCATION("warmelt-genobj.melt:3950:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[23]; BASILYS_LOCATION("warmelt-genobj.melt:3950:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3950:/ apply.arg"); argtab[3].bp_long = 3950; /*_.DEBUG_MSG_FUN__V82*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V81*/ curfptr[70] = /*_.DEBUG_MSG_FUN__V82*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3950:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3950:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ curfptr[71] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3950:/ cppif.else"); /*_.IFCPP___V81*/ curfptr[70] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODYL__V27*/ curfptr[26]), (basilys_ptr_t)(/*_.CURCOMP__V56*/ curfptr[55])); BASILYS_LOCATION("warmelt-genobj.melt:3949:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3949:/ clear"); /*clear*/ /*_.IFCPP___V81*/ curfptr[70] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3949:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3949:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3954:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3954:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3954:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3954:/ cond.then"); /*_.IFELSE___V84*/ curfptr[70] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:3954:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3954:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "unexpected curcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(3954)?(3954):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V84*/ curfptr[70] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V83*/ curfptr[71] = /*_.IFELSE___V84*/ curfptr[70];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3954:/ clear"); /*clear*/ /*_.IFELSE___V84*/ curfptr[70] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3954:/ cppif.else"); /*_.IFCPP___V83*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3953:/ block"); /*block*/{ /*_.PROGN___V85*/ curfptr[70] = /*_.IFCPP___V83*/ curfptr[71];;} ; /*_.IFELSE___V80*/ curfptr[72] = /*_.PROGN___V85*/ curfptr[70];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3949:/ clear"); /*clear*/ /*_.IFCPP___V83*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3949:/ clear"); /*clear*/ /*_.PROGN___V85*/ curfptr[70] = 0 ;} ; } ; /*_.IFELSE___V75*/ curfptr[69] = /*_.IFELSE___V80*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3941:/ clear"); /*clear*/ /*_#IS_OBJECT__L23*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3941:/ clear"); /*clear*/ /*_.IFELSE___V80*/ curfptr[72] = 0 ;} ; } ; /*_.IFELSE___V68*/ curfptr[66] = /*_.IFELSE___V75*/ curfptr[69];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3936:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L20*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3936:/ clear"); /*clear*/ /*_.IFELSE___V75*/ curfptr[69] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:3957:/ cond"); /*cond*/ if (/*_.CUROBDEST__V57*/ curfptr[56]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3957:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3957:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.SUBCOMPLIST__V26*/ curfptr[23]), (basilys_ptr_t)(/*_.CUROBDEST__V57*/ curfptr[56])); /*epilog*/} ; } /*noelse*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.DONETESTS__V38*/ curfptr[37]), (basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45])); BASILYS_LOCATION("warmelt-genobj.melt:3961:/ block"); /*block*/{ /*_.DISPOSABLIST__V86*/ curfptr[71] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3962:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3962:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[23] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3962:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3962:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match disposing curotest"; BASILYS_LOCATION("warmelt-genobj.melt:3962:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[23]; BASILYS_LOCATION("warmelt-genobj.melt:3962:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3962:/ apply.arg"); argtab[3].bp_long = 3962; /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V87*/ curfptr[70] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3962:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3962:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3962:/ cppif.else"); /*_.IFCPP___V87*/ curfptr[70] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L26*/ curfnum[22] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUROTEST__V47*/ curfptr[45]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ curfrout->tabval[16])));; BASILYS_LOCATION("warmelt-genobj.melt:3966:/ cond"); /*cond*/ if (/*_#IS_A__L26*/ curfnum[22]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3966:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3966:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3969:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3969:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V91*/ curfptr[90] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (3)); ; BASILYS_LOCATION("warmelt-genobj.melt:3969:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V91*/ curfptr[90])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V91*/ curfptr[90]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V91*/ curfptr[90])->tabval[0] = (basilys_ptr_t)(/*_.OMATCHED__V42*/ curfptr[41]); ; BASILYS_LOCATION("warmelt-genobj.melt:3969:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V91*/ curfptr[90])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V91*/ curfptr[90]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V91*/ curfptr[90])->tabval[1] = (basilys_ptr_t)(/*_.DONETESTS__V38*/ curfptr[37]); ; BASILYS_LOCATION("warmelt-genobj.melt:3969:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V91*/ curfptr[90])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V91*/ curfptr[90]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V91*/ curfptr[90])->tabval[2] = (basilys_ptr_t)(/*_.DISPOSABLIST__V86*/ curfptr[71]); ; /*_.LAMBDA___V90*/ curfptr[72] = /*_.LAMBDA___V91*/ curfptr[90];;} ; BASILYS_LOCATION("warmelt-genobj.melt:3967:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3967:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V90*/ curfptr[72]; /*_.MAPOBJECT_EVERY__V92*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.STUFFMAP__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V89*/ curfptr[69] = /*_.MAPOBJECT_EVERY__V92*/ curfptr[91];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3966:/ clear"); /*clear*/ /*_.LAMBDA___V90*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3966:/ clear"); /*clear*/ /*_.MAPOBJECT_EVERY__V92*/ curfptr[91] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3966:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3966:/ block"); /*block*/{ /*_#__L27*/ curfnum[12] = ((/*_.CURNMATCHED__V55*/ curfptr[54]) == (/*_.NMATCHED__V15*/ curfptr[14]));; BASILYS_LOCATION("warmelt-genobj.melt:3986:/ cond"); /*cond*/ if (/*_#__L27*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3986:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3986:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3987:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3987:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L28*/ curfnum[23] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3987:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3987:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match curnmatched == nmatched"; BASILYS_LOCATION("warmelt-genobj.melt:3987:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[23]; BASILYS_LOCATION("warmelt-genobj.melt:3987:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3987:/ apply.arg"); argtab[3].bp_long = 3987; /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURNMATCHED__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V94*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3987:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3987:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3987:/ cppif.else"); /*_.IFCPP___V94*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.IFELSE___V93*/ curfptr[72] = /*_.IFCPP___V94*/ curfptr[91];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3986:/ clear"); /*clear*/ /*_.IFCPP___V94*/ curfptr[91] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3986:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3986:/ block"); /*block*/{ /*_#IS_OBJECT__L29*/ curfnum[23] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURNMATCHED__V55*/ curfptr[54])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:3993:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L29*/ curfnum[23]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3993:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3993:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3994:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3994:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L30*/ curfnum[29] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3994:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3994:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match disposing curnmatched"; BASILYS_LOCATION("warmelt-genobj.melt:3994:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[29]; BASILYS_LOCATION("warmelt-genobj.melt:3994:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3994:/ apply.arg"); argtab[3].bp_long = 3994; /*_.DEBUG_MSG_FUN__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURNMATCHED__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V97*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[97];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3994:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3994:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[97] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3994:/ cppif.else"); /*_.IFCPP___V97*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3996:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3996:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L31*/ curfnum[29] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3996:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3996:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match omatched"; BASILYS_LOCATION("warmelt-genobj.melt:3996:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[29]; BASILYS_LOCATION("warmelt-genobj.melt:3996:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3996:/ apply.arg"); argtab[3].bp_long = 3996; /*_.DEBUG_MSG_FUN__V100*/ curfptr[99] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OMATCHED__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V99*/ curfptr[97] = /*_.DEBUG_MSG_FUN__V100*/ curfptr[99];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3996:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3996:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ curfptr[99] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3996:/ cppif.else"); /*_.IFCPP___V99*/ curfptr[97] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3998:/ block"); /*block*/{ /*_.STUTESTS__V101*/ curfptr[99] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.STUFFMAP__V14*/ curfptr[13]), (basilysobject_ptr_t)(/*_.CURNMATCHED__V55*/ curfptr[54])));; BASILYS_LOCATION("warmelt-genobj.melt:3999:/ block"); /*block*/{ /*_.REMSTUFF__V102*/ curfptr[101] = /*_.CURNMATCHED__V55*/ curfptr[54];; /*citerblock FOREACH_IN_LIST*/ { /* start cit3__EACHLIST*/ for (/*_.TESTPAIR__V103*/ curfptr[102] = basilys_list_first(/*_.STUTESTS__V101*/ curfptr[99]); basilys_magic_discr(/*_.TESTPAIR__V103*/ curfptr[102]) == OBMAG_PAIR; /*_.TESTPAIR__V103*/ curfptr[102] = basilys_pair_tail(/*_.TESTPAIR__V103*/ curfptr[102])) { /*_.CURTEST__V104*/ curfptr[103] = basilys_pair_head(/*_.TESTPAIR__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:4003:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4003:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURTEST__V104*/ curfptr[103]; /*_.LIST_FIND__V105*/ curfptr[104] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_FIND*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.DONETESTS__V38*/ curfptr[37]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4003:/ cond"); /*cond*/ if (/*_.LIST_FIND__V105*/ curfptr[104]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4003:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4003:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4004:/ compute"); /*_.TESTPAIR__V103*/ curfptr[102] = /*_.SETQ___V107*/ curfptr[106] = (/*nil*/NULL);; /*_.IFELSE___V106*/ curfptr[105] = /*_.SETQ___V107*/ curfptr[106];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4003:/ clear"); /*clear*/ /*_.SETQ___V107*/ curfptr[106] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4003:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4003:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4005:/ compute"); /*_.REMSTUFF__V102*/ curfptr[101] = /*_.SETQ___V108*/ curfptr[106] = (/*nil*/NULL);; /*_.IFELSE___V106*/ curfptr[105] = /*_.SETQ___V108*/ curfptr[106];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4003:/ clear"); /*clear*/ /*_.SETQ___V108*/ curfptr[106] = 0 ;} ; } ; } /* end cit3__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4000:/ clear"); /*clear*/ /*_.TESTPAIR__V103*/ curfptr[102] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4000:/ clear"); /*clear*/ /*_.CURTEST__V104*/ curfptr[103] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4000:/ clear"); /*clear*/ /*_.LIST_FIND__V105*/ curfptr[104] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4000:/ clear"); /*clear*/ /*_.IFELSE___V106*/ curfptr[105] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4007:/ cond"); /*cond*/ if (/*_.REMSTUFF__V102*/ curfptr[101]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4007:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4007:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.DISPOSABLIST__V86*/ curfptr[71]), (basilys_ptr_t)(/*_.REMSTUFF__V102*/ curfptr[101])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3999:/ clear"); /*clear*/ /*_.REMSTUFF__V102*/ curfptr[101] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3998:/ clear"); /*clear*/ /*_.STUTESTS__V101*/ curfptr[99] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3993:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3993:/ clear"); /*clear*/ /*_.IFCPP___V97*/ curfptr[91] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3993:/ clear"); /*clear*/ /*_.IFCPP___V99*/ curfptr[97] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3993:/ cond.else"); /*_.IFELSE___V96*/ curfptr[94] = NULL;; } ; /*_.IFELSE___V93*/ curfptr[72] = /*_.IFELSE___V96*/ curfptr[94];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3986:/ clear"); /*clear*/ /*_#IS_OBJECT__L29*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3986:/ clear"); /*clear*/ /*_.IFELSE___V96*/ curfptr[94] = 0 ;} ; } ; /*_.IFELSE___V89*/ curfptr[69] = /*_.IFELSE___V93*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3966:/ clear"); /*clear*/ /*_#__L27*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3966:/ clear"); /*clear*/ /*_.IFELSE___V93*/ curfptr[72] = 0 ;} ; } ; /*citerblock FOREACH_IN_LIST*/ { /* start cit4__EACHLIST*/ for (/*_.DISPAIR__V109*/ curfptr[106] = basilys_list_first(/*_.DISPOSABLIST__V86*/ curfptr[71]); basilys_magic_discr(/*_.DISPAIR__V109*/ curfptr[106]) == OBMAG_PAIR; /*_.DISPAIR__V109*/ curfptr[106] = basilys_pair_tail(/*_.DISPAIR__V109*/ curfptr[106])) { /*_.DISPSTUFF__V110*/ curfptr[101] = basilys_pair_head(/*_.DISPAIR__V109*/ curfptr[106]); basilysgc_remove_mapobjects( (basilysmapobjects_ptr_t) (/*_.STUFFMAP__V14*/ curfptr[13]), (basilysobject_ptr_t)(/*_.DISPSTUFF__V110*/ curfptr[101])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4015:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4015:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L32*/ curfnum[29] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4015:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4015:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match dispstuff"; BASILYS_LOCATION("warmelt-genobj.melt:4015:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[29]; BASILYS_LOCATION("warmelt-genobj.melt:4015:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4015:/ apply.arg"); argtab[3].bp_long = 4015; /*_.DEBUG_MSG_FUN__V112*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DISPSTUFF__V110*/ curfptr[101]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V111*/ curfptr[99] = /*_.DEBUG_MSG_FUN__V112*/ curfptr[91];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4015:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4015:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ curfptr[91] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4015:/ cppif.else"); /*_.IFCPP___V111*/ curfptr[99] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4016:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4016:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4016:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.DISPOBJ__V114*/ curfptr[94] = basilysgc_send((basilys_ptr_t)(/*_.DISPSTUFF__V110*/ curfptr[101]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4017:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4017:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L33*/ curfnum[23] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4017:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4017:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match dispobj"; BASILYS_LOCATION("warmelt-genobj.melt:4017:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[23]; BASILYS_LOCATION("warmelt-genobj.melt:4017:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4017:/ apply.arg"); argtab[3].bp_long = 4017; /*_.DEBUG_MSG_FUN__V116*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DISPOBJ__V114*/ curfptr[94]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V115*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V116*/ curfptr[91];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4017:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4017:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V116*/ curfptr[91] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4017:/ cppif.else"); /*_.IFCPP___V115*/ curfptr[72] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4018:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4018:/ block"); /*block*/{ /*_#IS_A__L34*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.DISPOBJ__V114*/ curfptr[94]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[22])));; BASILYS_LOCATION("warmelt-genobj.melt:4018:/ cond"); /*cond*/ if (/*_#IS_A__L34*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4018:/ cond.then"); /*_.IFELSE___V118*/ curfptr[117] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4018:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4018:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check dispobj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4018)?(4018):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V118*/ curfptr[117] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V117*/ curfptr[91] = /*_.IFELSE___V118*/ curfptr[117];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4018:/ clear"); /*clear*/ /*_#IS_A__L34*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4018:/ clear"); /*clear*/ /*_.IFELSE___V118*/ curfptr[117] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4018:/ cppif.else"); /*_.IFCPP___V117*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L35*/ curfnum[29] = ((/*_.DISPOBJ__V114*/ curfptr[94]) != (/*_.OMATCHED__V42*/ curfptr[41]));; BASILYS_LOCATION("warmelt-genobj.melt:4020:/ cond"); /*cond*/ if (/*_#__L35*/ curfnum[29]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4020:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4020:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4021:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4021:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.DISPOSE_OBJLOC__V120*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[23])), (basilys_ptr_t)(/*_.DISPOBJ__V114*/ curfptr[94]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V119*/ curfptr[117] = /*_.DISPOSE_OBJLOC__V120*/ curfptr[119];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4020:/ clear"); /*clear*/ /*_.DISPOSE_OBJLOC__V120*/ curfptr[119] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4020:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4020:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4022:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4022:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L36*/ curfnum[23] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4022:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4022:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match dont dispose omatched"; BASILYS_LOCATION("warmelt-genobj.melt:4022:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L36*/ curfnum[23]; BASILYS_LOCATION("warmelt-genobj.melt:4022:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4022:/ apply.arg"); argtab[3].bp_long = 4022; /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OMATCHED__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V121*/ curfptr[119] = /*_.DEBUG_MSG_FUN__V122*/ curfptr[121];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4022:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L36*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4022:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4022:/ cppif.else"); /*_.IFCPP___V121*/ curfptr[119] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.IFELSE___V119*/ curfptr[117] = /*_.IFCPP___V121*/ curfptr[119];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4020:/ clear"); /*clear*/ /*_.IFCPP___V121*/ curfptr[119] = 0 ;} ; } ; /*_.LET___V113*/ curfptr[97] = /*_.IFELSE___V119*/ curfptr[117];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4016:/ clear"); /*clear*/ /*_.DISPOBJ__V114*/ curfptr[94] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4016:/ clear"); /*clear*/ /*_.IFCPP___V115*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4016:/ clear"); /*clear*/ /*_.IFCPP___V117*/ curfptr[91] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4016:/ clear"); /*clear*/ /*_#__L35*/ curfnum[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4016:/ clear"); /*clear*/ /*_.IFELSE___V119*/ curfptr[117] = 0 ;} ; } /* end cit4__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4011:/ clear"); /*clear*/ /*_.DISPAIR__V109*/ curfptr[106] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4011:/ clear"); /*clear*/ /*_.DISPSTUFF__V110*/ curfptr[101] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4011:/ clear"); /*clear*/ /*_.IFCPP___V111*/ curfptr[99] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4011:/ clear"); /*clear*/ /*_.LET___V113*/ curfptr[97] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3961:/ clear"); /*clear*/ /*_.DISPOSABLIST__V86*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3961:/ clear"); /*clear*/ /*_.IFCPP___V87*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3961:/ clear"); /*clear*/ /*_#IS_A__L26*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3961:/ clear"); /*clear*/ /*_.IFELSE___V89*/ curfptr[69] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.IFCPP___V60*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.IFCPP___V66*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_#IS_LIST__L18*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.IFELSE___V68*/ curfptr[66] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3925:/ clear"); /*clear*/ /*_.CUROBDEST__V57*/ curfptr[56] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3921:/ clear"); /*clear*/ /*_.LABINS__V54*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3921:/ clear"); /*clear*/ /*_.CURNMATCHED__V55*/ curfptr[54] = 0 ;} ; } /* end cit1__EACHTUP*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3914:/ clear"); /*clear*/ /*_.CUROTEST__V47*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3914:/ clear"); /*clear*/ /*_#TESTIX__L9*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3914:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3914:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3914:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OBODYL__V27*/ curfptr[26]), (basilys_ptr_t)(/*_.OENDLABEL__V33*/ curfptr[32])); BASILYS_LOCATION("warmelt-genobj.melt:4026:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4026:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[25]); /*_.LIST_TO_MULTIPLE__V123*/ curfptr[121] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[24])), (basilys_ptr_t)(/*_.SUBCOMPLIST__V26*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4025:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.OMBLOC__V28*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[6])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4025:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4025:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4025:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OMBLOC__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.OMBLOC__V28*/ curfptr[27]))));basilys_putfield_object((/*_.OMBLOC__V28*/ curfptr[27]), (3), (/*_.LIST_TO_MULTIPLE__V123*/ curfptr[121]), "OMULBLO_SUBCOMP"); ; BASILYS_LOCATION("warmelt-genobj.melt:4025:/ touch"); basilysgc_touch(/*_.OMBLOC__V28*/ curfptr[27]); ; /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4027:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4027:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L37*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4027:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4027:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match return ombloc"; BASILYS_LOCATION("warmelt-genobj.melt:4027:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L37*/ curfnum[12]; BASILYS_LOCATION("warmelt-genobj.melt:4027:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4027:/ apply.arg"); argtab[3].bp_long = 4027; /*_.DEBUG_MSG_FUN__V125*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OMBLOC__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V124*/ curfptr[119] = /*_.DEBUG_MSG_FUN__V125*/ curfptr[94];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4027:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L37*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4027:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V125*/ curfptr[94] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4027:/ cppif.else"); /*_.IFCPP___V124*/ curfptr[119] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4028:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OMBLOC__V28*/ curfptr[27];; BASILYS_LOCATION("warmelt-genobj.melt:4028:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V126*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.NCTYP__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.NTESTS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.STUFFMAP__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.MATMAP__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.LET___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.MATLABEL__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.ENDLABEL__V25*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.SUBCOMPLIST__V26*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.OBODYL__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.OMBLOC__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.OFIRSTGOTO__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.OENDLABEL__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.MAKE_LIST__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.TCX__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.DONETESTS__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.COMPILE_OBJ__V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.OMATCHED__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V123*/ curfptr[121] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.IFCPP___V124*/ curfptr[119] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3860:/ clear"); /*clear*/ /*_.RETURN___V126*/ curfptr[72] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:3856:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:3856:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3856:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3856:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3856:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3856:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILOBJ_NREP_MATCH", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_126_COMPILOBJ_NREP_MATCH*/ static basilys_ptr_t rout_127_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_127_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:3969:/ getarg"); /*_.STUFF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:3969:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.STUTESTS__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.STUTESTS__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:3969:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3970:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3970:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3970:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3970:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match succ stuff"; BASILYS_LOCATION("warmelt-genobj.melt:3970:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3970:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3970:/ apply.arg"); argtab[3].bp_long = 3970; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.STUFF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3970:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3970:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3970:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:3971:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:3971:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:3971:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3971:/ apply.arg"); argtab[0].bp_cstring = "compilobj_nrep_match succ stutest"; BASILYS_LOCATION("warmelt-genobj.melt:3971:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:3971:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:3971:/ apply.arg"); argtab[3].bp_long = 3971; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.STUTESTS__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3971:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3971:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:3971:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L3*/ curfnum[0] = ((/*_.STUFF__V2*/ curfptr[1]) != ((/*~OMATCHED*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:3972:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3972:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3972:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3973:/ block"); /*block*/{ /*_.REMSTUFF__V8*/ curfptr[6] = /*_.STUFF__V2*/ curfptr[1];; /*citerblock FOREACH_IN_LIST*/ { /* start cit1__EACHLIST*/ for (/*_.TESTPAIR__V9*/ curfptr[8] = basilys_list_first(/*_.STUTESTS__V3*/ curfptr[2]); basilys_magic_discr(/*_.TESTPAIR__V9*/ curfptr[8]) == OBMAG_PAIR; /*_.TESTPAIR__V9*/ curfptr[8] = basilys_pair_tail(/*_.TESTPAIR__V9*/ curfptr[8])) { /*_.CURTEST__V10*/ curfptr[9] = basilys_pair_head(/*_.TESTPAIR__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-genobj.melt:3977:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3977:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURTEST__V10*/ curfptr[9]; /*_.LIST_FIND__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_FIND*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~DONETESTS*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3977:/ cond"); /*cond*/ if (/*_.LIST_FIND__V11*/ curfptr[10]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3977:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3977:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3978:/ compute"); /*_.TESTPAIR__V9*/ curfptr[8] = /*_.SETQ___V13*/ curfptr[12] = (/*nil*/NULL);; /*_.IFELSE___V12*/ curfptr[11] = /*_.SETQ___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3977:/ clear"); /*clear*/ /*_.SETQ___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:3977:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:3977:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3979:/ compute"); /*_.REMSTUFF__V8*/ curfptr[6] = /*_.SETQ___V14*/ curfptr[12] = (/*nil*/NULL);; /*_.IFELSE___V12*/ curfptr[11] = /*_.SETQ___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3977:/ clear"); /*clear*/ /*_.SETQ___V14*/ curfptr[12] = 0 ;} ; } ; } /* end cit1__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3974:/ clear"); /*clear*/ /*_.TESTPAIR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3974:/ clear"); /*clear*/ /*_.CURTEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3974:/ clear"); /*clear*/ /*_.LIST_FIND__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3974:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; BASILYS_LOCATION("warmelt-genobj.melt:3981:/ cond"); /*cond*/ if (/*_.REMSTUFF__V8*/ curfptr[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:3981:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:3981:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~DISPOSABLIST*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.REMSTUFF__V8*/ curfptr[6])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3973:/ clear"); /*clear*/ /*_.REMSTUFF__V8*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:3969:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3969:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:3969:/ clear"); /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_127_LAMBDA_*/ static basilys_ptr_t rout_128_NORMTESTER_LABELINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_128_NORMTESTER_LABELINSTR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMTESTER_LABELINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4034:/ getarg"); /*_.NT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4034:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4034:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4035:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4035:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4035:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4035:/ apply.arg"); argtab[0].bp_cstring = "normtester_labelinstr start nt"; BASILYS_LOCATION("warmelt-genobj.melt:4035:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4035:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4035:/ apply.arg"); argtab[3].bp_long = 4035; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4035:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4035:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4035:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4036:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4036:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4036:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4036:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4036:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4036:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4036)?(4036):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4036:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4036:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4036:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L3*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4037:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4037:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4037:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4039:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4039:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4039:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4039:/ apply.arg"); argtab[0].bp_cstring = "normtester_labelinstr return nil"; BASILYS_LOCATION("warmelt-genobj.melt:4039:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:4039:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4039:/ apply.arg"); argtab[3].bp_long = 4039; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*nil*/NULL)), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4039:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4039:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4039:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4040:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-genobj.melt:4040:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4038:/ block"); /*block*/{ /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[9];;} ; /*_.IF___V8*/ curfptr[6] = /*_.PROGN___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4037:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4037:/ clear"); /*clear*/ /*_.RETURN___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4037:/ clear"); /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4037:/ cond.else"); /*_.IF___V8*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4042:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[9] = slot; }; ; /*_#NTESTIX__L5*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)(/*_.NT__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4044:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V15*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4045:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4047:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4047:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4047:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4047:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4047:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4047:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4047)?(4047):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4047:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4047:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4047:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4048:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4048:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4049:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4049:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4049:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), 2, "NMATCH_TESTS");/*_.NMATCH_TESTS__V20*/ curfptr[19] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4049:/ cond.else"); /*_.NMATCH_TESTS__V20*/ curfptr[19] = NULL;; } ; /*_.MULTIPLE_NTH__V21*/ curfptr[20] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NMATCH_TESTS__V20*/ curfptr[19]), (/*_#NTESTIX__L5*/ curfnum[3])));; /*_#__L7*/ curfnum[5] = ((/*_.MULTIPLE_NTH__V21*/ curfptr[20]) == (/*_.NT__V2*/ curfptr[1]));; BASILYS_LOCATION("warmelt-genobj.melt:4048:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4048:/ cond.then"); /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4048:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4048:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check valid normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4048)?(4048):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4048:/ clear"); /*clear*/ /*_.NMATCH_TESTS__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4048:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4048:/ clear"); /*clear*/ /*_#__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4048:/ clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4048:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4052:/ block"); /*block*/{ /*_.PREFIX__V24*/ curfptr[20] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.MATCHMAP__V16*/ curfptr[15]), (basilysobject_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11])));; BASILYS_LOCATION("warmelt-genobj.melt:4054:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4054:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJLABELINSTR");/*_.INST__V26*/ curfptr[25] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4054:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (0), (/*_.NLOC__V14*/ curfptr[9]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4054:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.PREFIX__V24*/ curfptr[20]), "OBLAB_PREFIX"); ; BASILYS_LOCATION("warmelt-genobj.melt:4054:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (2), (/*_.NT__V2*/ curfptr[1]), "OBLAB_RANK"); ; /*_.LABINS__V25*/ curfptr[21] = /*_.INST__V26*/ curfptr[25];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4059:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4059:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4059:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4059:/ apply.arg"); argtab[0].bp_cstring = "normtester_labelinstr result labins"; BASILYS_LOCATION("warmelt-genobj.melt:4059:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4059:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4059:/ apply.arg"); argtab[3].bp_long = 4059; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.LABINS__V25*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4059:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4059:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4059:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4060:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4060:/ block"); /*block*/{ /*_#IS_STRING__L9*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.PREFIX__V24*/ curfptr[20])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:4060:/ cond"); /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4060:/ cond.then"); /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4060:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4060:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4060)?(4060):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4060:/ clear"); /*clear*/ /*_#IS_STRING__L9*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4060:/ clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4060:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4061:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LABINS__V25*/ curfptr[21];; BASILYS_LOCATION("warmelt-genobj.melt:4061:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[19] = /*_.RETURN___V31*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4052:/ clear"); /*clear*/ /*_.PREFIX__V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4052:/ clear"); /*clear*/ /*_.LABINS__V25*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4052:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4052:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4052:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;} ; /*_.LET___V13*/ curfptr[8] = /*_.LET___V23*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_.NLOC__V14*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_#NTESTIX__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_.NORMATCH__V15*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_.MATCHMAP__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4041:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4034:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:4034:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4034:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4034:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4034:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4034:/ clear"); /*clear*/ /*_.IF___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4034:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMTESTER_LABELINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_128_NORMTESTER_LABELINSTR*/ static basilys_ptr_t rout_129_NORMTESTER_GOTOINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_129_NORMTESTER_GOTOINSTR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 33 void* varptr[33]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<33; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 33; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMTESTER_GOTOINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4066:/ getarg"); /*_.NT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4066:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4066:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4067:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4067:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4067:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4067:/ apply.arg"); argtab[0].bp_cstring = "normtester_gotoinstr start nt"; BASILYS_LOCATION("warmelt-genobj.melt:4067:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4067:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4067:/ apply.arg"); argtab[3].bp_long = 4067; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4067:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4067:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4067:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4068:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4068:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4068:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4068:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4068:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4068:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4068)?(4068):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4068:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4068:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4068:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L3*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4069:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4069:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4069:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4071:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4071:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4071:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4071:/ apply.arg"); argtab[0].bp_cstring = "normtester_gotoinstr return nil"; BASILYS_LOCATION("warmelt-genobj.melt:4071:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-genobj.melt:4071:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4071:/ apply.arg"); argtab[3].bp_long = 4071; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*nil*/NULL)), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4071:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4071:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4071:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4072:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-genobj.melt:4072:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4070:/ block"); /*block*/{ /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[9];;} ; /*_.IF___V8*/ curfptr[6] = /*_.PROGN___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4069:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4069:/ clear"); /*clear*/ /*_.RETURN___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4069:/ clear"); /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4069:/ cond.else"); /*_.IF___V8*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4074:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[9] = slot; }; ; /*_#NTESTIX__L5*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)(/*_.NT__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4076:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V15*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4077:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4079:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4079:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4079:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4079:/ apply.arg"); argtab[0].bp_cstring = "normtester_gotoinstr normatch"; BASILYS_LOCATION("warmelt-genobj.melt:4079:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4079:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4079:/ apply.arg"); argtab[3].bp_long = 4079; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4079:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4079:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4079:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4080:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4080:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4080:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4080:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4080:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4080:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4080)?(4080):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4080:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4080:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4080:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4081:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4081:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4082:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4082:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4082:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), 2, "NMATCH_TESTS");/*_.NMATCH_TESTS__V22*/ curfptr[21] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4082:/ cond.else"); /*_.NMATCH_TESTS__V22*/ curfptr[21] = NULL;; } ; /*_.MULTIPLE_NTH__V23*/ curfptr[22] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NMATCH_TESTS__V22*/ curfptr[21]), (/*_#NTESTIX__L5*/ curfnum[3])));; /*_#__L8*/ curfnum[5] = ((/*_.MULTIPLE_NTH__V23*/ curfptr[22]) == (/*_.NT__V2*/ curfptr[1]));; BASILYS_LOCATION("warmelt-genobj.melt:4081:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4081:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4081:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4081:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check valid normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4081)?(4081):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4081:/ clear"); /*clear*/ /*_.NMATCH_TESTS__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4081:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4081:/ clear"); /*clear*/ /*_#__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4081:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4081:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4085:/ block"); /*block*/{ /*_.PREFIX__V26*/ curfptr[22] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.MATCHMAP__V16*/ curfptr[15]), (basilysobject_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11])));; BASILYS_LOCATION("warmelt-genobj.melt:4087:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4087:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V28*/ curfptr[27] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4087:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V14*/ curfptr[9]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4087:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.PREFIX__V26*/ curfptr[22]), "OBGOTO_PREFIX"); ; BASILYS_LOCATION("warmelt-genobj.melt:4087:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.NT__V2*/ curfptr[1]), "OBGOTO_RANK"); ; /*_.GOINS__V27*/ curfptr[23] = /*_.INST__V28*/ curfptr[27];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4092:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4092:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4092:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4092:/ apply.arg"); argtab[0].bp_cstring = "normtester_gotoinstr result goins"; BASILYS_LOCATION("warmelt-genobj.melt:4092:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4092:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4092:/ apply.arg"); argtab[3].bp_long = 4092; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOINS__V27*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4092:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4092:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4092:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4093:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4093:/ block"); /*block*/{ /*_#IS_STRING__L10*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.PREFIX__V26*/ curfptr[22])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:4093:/ cond"); /*cond*/ if (/*_#IS_STRING__L10*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4093:/ cond.then"); /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4093:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4093:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4093)?(4093):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4093:/ clear"); /*clear*/ /*_#IS_STRING__L10*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4093:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4093:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4094:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V27*/ curfptr[23];; BASILYS_LOCATION("warmelt-genobj.melt:4094:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[21] = /*_.RETURN___V33*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4085:/ clear"); /*clear*/ /*_.PREFIX__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4085:/ clear"); /*clear*/ /*_.GOINS__V27*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4085:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4085:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4085:/ clear"); /*clear*/ /*_.RETURN___V33*/ curfptr[31] = 0 ;} ; /*_.LET___V13*/ curfptr[8] = /*_.LET___V25*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.NLOC__V14*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_#NTESTIX__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.NORMATCH__V15*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.MATCHMAP__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4073:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4066:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[8];; BASILYS_LOCATION("warmelt-genobj.melt:4066:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4066:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4066:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4066:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4066:/ clear"); /*clear*/ /*_.IF___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4066:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMTESTER_GOTOINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_129_NORMTESTER_GOTOINSTR*/ static basilys_ptr_t rout_130_ENDMATCH_GOTOINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_130_ENDMATCH_GOTOINSTR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 17 void* varptr[17]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("ENDMATCH_GOTOINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4099:/ getarg"); /*_.NMA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4099:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4099:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NLOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4099:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4100:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4100:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:4100:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4100:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4100:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4100:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4100)?(4100):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4100:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4100:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4100:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4101:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4101:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4101:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4101:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4101:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4101:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4101)?(4101):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4101:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4101:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4101:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4102:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4103:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V10*/ curfptr[9] = slot; }; ; /*_.PREFIX__V11*/ curfptr[10] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.MATCHMAP__V10*/ curfptr[9]), (basilysobject_ptr_t)(/*_.NMA__V2*/ curfptr[1])));; /*_.LABUF__V12*/ curfptr[11] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[2])), (char*)0);; basilysgc_add_strbuf((basilys_ptr_t)(/*_.LABUF__V12*/ curfptr[11]), basilys_string_str((basilys_ptr_t)(/*_.PREFIX__V11*/ curfptr[10]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.LABUF__V12*/ curfptr[11]), ( "_end")); BASILYS_LOCATION("warmelt-genobj.melt:4109:/ block"); /*block*/{ /*_.STRBUF2STRING__V14*/ curfptr[13] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[4])), basilys_strbuf_str((basilys_ptr_t)(/*_.LABUF__V12*/ curfptr[11]))));; BASILYS_LOCATION("warmelt-genobj.melt:4110:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4110:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[3])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4110:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.NLOC__V4*/ curfptr[3]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4110:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.STRBUF2STRING__V14*/ curfptr[13]), "OBGOTO_PREFIX"); ; BASILYS_LOCATION("warmelt-genobj.melt:4110:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V16*/ curfptr[15]))));basilys_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), ((/*nil*/NULL)), "OBGOTO_RANK"); ; /*_.GOINS__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4116:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V15*/ curfptr[14];; BASILYS_LOCATION("warmelt-genobj.melt:4116:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[12] = /*_.RETURN___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4109:/ clear"); /*clear*/ /*_.STRBUF2STRING__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4109:/ clear"); /*clear*/ /*_.GOINS__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4109:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4102:/ clear"); /*clear*/ /*_.MATCHMAP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4102:/ clear"); /*clear*/ /*_.PREFIX__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4102:/ clear"); /*clear*/ /*_.LABUF__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4102:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4099:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; BASILYS_LOCATION("warmelt-genobj.melt:4099:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4099:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4099:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4099:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("ENDMATCH_GOTOINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_130_ENDMATCH_GOTOINSTR*/ static basilys_ptr_t rout_131_NORMTESTER_FREE_OBJLOC_LIST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_131_NORMTESTER_FREE_OBJLOC_LIST_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 26 void* varptr[26]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<26; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 26; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMTESTER_FREE_OBJLOC_LIST", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4121:/ getarg"); /*_.NT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4121:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4121:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4121:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4122:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4122:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4122:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4122:/ apply.arg"); argtab[0].bp_cstring = "normtester_free_objloc_list nt"; BASILYS_LOCATION("warmelt-genobj.melt:4122:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4122:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4122:/ apply.arg"); argtab[3].bp_long = 4122; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4122:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4122:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4122:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4123:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4123:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4123:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4123:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4123:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4123:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nt"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4123)?(4123):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4123:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4123:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4123:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4124:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4124:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4124:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4124:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4124:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4124:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4124)?(4124):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4124:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4124:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4124:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4125:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4125:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4125:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4125:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4125:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4125:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4125)?(4125):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4125:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4125:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4125:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4126:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4127:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NT__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCLIST__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4128:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V15*/ curfptr[14] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4130:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4130:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4130:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4130:/ apply.arg"); argtab[0].bp_cstring = "normtester_free_objloc_list nloclist"; BASILYS_LOCATION("warmelt-genobj.melt:4130:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4130:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4130:/ apply.arg"); argtab[3].bp_long = 4130; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLOCLIST__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4130:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4130:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4130:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4131:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4134:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4134:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:4134:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-genobj.melt:4134:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (basilys_ptr_t)(/*_.LOCMAP__V15*/ curfptr[14]); ; /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4132:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4132:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18]; /*_.FREELIST__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NLOCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4145:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4145:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4145:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), 2, "TCX_FREELIST");/*_.TCX_FREELIST__V22*/ curfptr[21] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4145:/ cond.else"); /*_.TCX_FREELIST__V22*/ curfptr[21] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4145:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4145:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FREELIST__V21*/ curfptr[20]; /*_.LIST_APPEND2LIST__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.TCX_FREELIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4146:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4146:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4146:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4146:/ apply.arg"); argtab[0].bp_cstring = "normtester_free_objloc_list result freelist"; BASILYS_LOCATION("warmelt-genobj.melt:4146:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4146:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4146:/ apply.arg"); argtab[3].bp_long = 4146; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FREELIST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4146:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4146:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4146:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4147:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.FREELIST__V21*/ curfptr[20];; BASILYS_LOCATION("warmelt-genobj.melt:4147:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V18*/ curfptr[16] = /*_.RETURN___V26*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4131:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4131:/ clear"); /*clear*/ /*_.FREELIST__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4131:/ clear"); /*clear*/ /*_.TCX_FREELIST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4131:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4131:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4131:/ clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V18*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4126:/ clear"); /*clear*/ /*_.NLOCLIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4126:/ clear"); /*clear*/ /*_.LOCMAP__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4126:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4126:/ clear"); /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4121:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:4121:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4121:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4121:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4121:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4121:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4121:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMTESTER_FREE_OBJLOC_LIST", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_131_NORMTESTER_FREE_OBJLOC_LIST*/ static basilys_ptr_t rout_132_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_132_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4134:/ getarg"); /*_.NLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4134:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4135:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4135:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:4135:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4135:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4135:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4135:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4135)?(4135):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4135:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4135:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4135:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4136:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4138:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4138:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4138:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.NOCC_SYMB__V6*/ curfptr[5] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4138:/ cond.else"); /*_.NOCC_SYMB__V6*/ curfptr[5] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4139:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4139:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4139:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V7*/ curfptr[6] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4139:/ cond.else"); /*_.NOCC_CTYP__V7*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4137:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4137:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NOCC_SYMB__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-genobj.melt:4137:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NOCC_CTYP__V7*/ curfptr[6]; /*_.OBLO__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4141:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4141:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4141:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.NOCC_BIND__V9*/ curfptr[8] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4141:/ cond.else"); /*_.NOCC_BIND__V9*/ curfptr[8] = NULL;; } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.NOCC_BIND__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.OBLO__V8*/ curfptr[7])); /*_.LET___V5*/ curfptr[3] = /*_.OBLO__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4136:/ clear"); /*clear*/ /*_.NOCC_SYMB__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4136:/ clear"); /*clear*/ /*_.NOCC_CTYP__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4136:/ clear"); /*clear*/ /*_.OBLO__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4136:/ clear"); /*clear*/ /*_.NOCC_BIND__V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4134:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-genobj.melt:4134:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4134:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4134:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_132_LAMBDA_*/ static basilys_ptr_t rout_133_COMPILTST_NORMTESTER_MATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_133_COMPILTST_NORMTESTER_MATCHER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 64 void* varptr[64]; #define CURFRAM_NBVARNUM 17 long varnum[17]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<64; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 64; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILTST_NORMTESTER_MATCHER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4150:/ getarg"); /*_.NTMA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4150:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4150:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4150:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4151:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4151:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4151:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4151:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher ntma"; BASILYS_LOCATION("warmelt-genobj.melt:4151:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4151:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4151:/ apply.arg"); argtab[3].bp_long = 4151; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4151:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4151:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4151:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4152:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4152:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4152:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4152:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4152:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4152:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4152)?(4152):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4152:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4152:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4152:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4153:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4153:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4153:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4153:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4153:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4153:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4153)?(4153):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4153:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4153:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4153:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4154:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4154:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4154:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4154:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4154:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4154:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4154)?(4154):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4154:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4154:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4154:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4156:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4157:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4158:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4159:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4160:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 7, "NTMATCH_MATCHER");/*_.NMATCHER__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4161:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 8, "NTMATCH_INARGS");/*_.NINS__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4162:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 9, "NTMATCH_OUTLOCS");/*_.NOUTS__V20*/ curfptr[19] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4163:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4164:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4164:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.GOTOTHEN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4165:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4165:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.GOTOELSE__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OLIST__V24*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-genobj.melt:4167:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V25*/ curfptr[24] = slot; }; ; /*_.PREFIX__V26*/ curfptr[25] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.MATCHMAP__V25*/ curfptr[24]), (basilysobject_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20])));; BASILYS_LOCATION("warmelt-genobj.melt:4169:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4169:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4169:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.TCX__V4*/ curfptr[3]; /*_.FREELIST__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4171:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4171:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4171:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4171:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher matchmap"; BASILYS_LOCATION("warmelt-genobj.melt:4171:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4171:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4171:/ apply.arg"); argtab[3].bp_long = 4171; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MATCHMAP__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4171:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4171:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4171:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L6*/ curfnum[0] = ((/*_.GOTOTHEN__V22*/ curfptr[21]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:4172:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4172:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4172:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4173:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4173:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4173:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V14*/ curfptr[13]; /*_.ENDMATCH_GOTOINSTR__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4173:/ compute"); /*_.GOTOTHEN__V22*/ curfptr[21] = /*_.SETQ___V32*/ curfptr[31] = /*_.ENDMATCH_GOTOINSTR__V31*/ curfptr[30];; /*_.IF___V30*/ curfptr[28] = /*_.SETQ___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4172:/ clear"); /*clear*/ /*_.ENDMATCH_GOTOINSTR__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4172:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4172:/ cond.else"); /*_.IF___V30*/ curfptr[28] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4174:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4174:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4174:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4174:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher fixed gotothen"; BASILYS_LOCATION("warmelt-genobj.melt:4174:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:4174:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4174:/ apply.arg"); argtab[3].bp_long = 4174; /*_.DEBUG_MSG_FUN__V34*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOTOTHEN__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4174:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4174:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4174:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L8*/ curfnum[6] = ((/*_.GOTOELSE__V23*/ curfptr[22]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:4175:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4175:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4175:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4176:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4176:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4176:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V14*/ curfptr[13]; /*_.ENDMATCH_GOTOINSTR__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4176:/ compute"); /*_.GOTOELSE__V23*/ curfptr[22] = /*_.SETQ___V37*/ curfptr[36] = /*_.ENDMATCH_GOTOINSTR__V36*/ curfptr[35];; /*_.IF___V35*/ curfptr[31] = /*_.SETQ___V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4175:/ clear"); /*clear*/ /*_.ENDMATCH_GOTOINSTR__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4175:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[36] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4175:/ cond.else"); /*_.IF___V35*/ curfptr[31] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4177:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4177:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4177:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4177:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher fixed gotoelse"; BASILYS_LOCATION("warmelt-genobj.melt:4177:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4177:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4177:/ apply.arg"); argtab[3].bp_long = 4177; /*_.DEBUG_MSG_FUN__V39*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOTOELSE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4177:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4177:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[36] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4177:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4178:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4178:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4178:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4178:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher freelist"; BASILYS_LOCATION("warmelt-genobj.melt:4178:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4178:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4178:/ apply.arg"); argtab[3].bp_long = 4178; /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FREELIST__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4178:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4178:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4178:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4179:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4179:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4179:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4179:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher prefix"; BASILYS_LOCATION("warmelt-genobj.melt:4179:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4179:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4179:/ apply.arg"); argtab[3].bp_long = 4179; /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PREFIX__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4179:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4179:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4179:/ cppif.else"); /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4180:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4180:/ block"); /*block*/{ /*_#IS_STRING__L12*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.PREFIX__V26*/ curfptr[25])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:4180:/ cond"); /*cond*/ if (/*_#IS_STRING__L12*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4180:/ cond.then"); /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4180:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4180:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4180)?(4180):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V44*/ curfptr[42] = /*_.IFELSE___V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4180:/ clear"); /*clear*/ /*_#IS_STRING__L12*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4180:/ clear"); /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4180:/ cppif.else"); /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_LIST*/ { /* start cit1__EACHLIST*/ for (/*_.LOCPAIR__V46*/ curfptr[44] = basilys_list_first(/*_.FREELIST__V27*/ curfptr[26]); basilys_magic_discr(/*_.LOCPAIR__V46*/ curfptr[44]) == OBMAG_PAIR; /*_.LOCPAIR__V46*/ curfptr[44] = basilys_pair_tail(/*_.LOCPAIR__V46*/ curfptr[44])) { /*_.OBLOC__V47*/ curfptr[46] = basilys_pair_head(/*_.LOCPAIR__V46*/ curfptr[44]); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4185:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4185:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4185:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4185:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher obloc"; BASILYS_LOCATION("warmelt-genobj.melt:4185:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4185:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4185:/ apply.arg"); argtab[3].bp_long = 4185; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBLOC__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4185:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4185:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4185:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4186:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4186:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLOC__V47*/ curfptr[46]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-genobj.melt:4186:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4186:/ cond.then"); /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4186:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4186:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4186)?(4186):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4186:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4186:/ clear"); /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4186:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4187:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4187:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4187:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[9])), (2), "CLASS_OBJCLEAR");/*_.INST__V53*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4187:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4187:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.OBLOC__V47*/ curfptr[46]), "OCLR_VLOC"); ; /*_.OCLEAROB__V52*/ curfptr[50] = /*_.INST__V53*/ curfptr[52];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIST__V24*/ curfptr[23]), (basilys_ptr_t)(/*_.OCLEAROB__V52*/ curfptr[50])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4187:/ clear"); /*clear*/ /*_.OCLEAROB__V52*/ curfptr[50] = 0 ;} ; } /* end cit1__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4182:/ clear"); /*clear*/ /*_.LOCPAIR__V46*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4182:/ clear"); /*clear*/ /*_.OBLOC__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4182:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4182:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4193:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4193:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4193:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4193:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher before nmatcher"; BASILYS_LOCATION("warmelt-genobj.melt:4193:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4193:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4193:/ apply.arg"); argtab[3].bp_long = 4193; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NMATCHER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V54*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4193:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4193:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4193:/ cppif.else"); /*_.IFCPP___V54*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4194:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4194:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[10])), (7), "CLASS_MATCHCOMPILCONTEXT");/*_.INST__V58*/ curfptr[57] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.NLOC__V14*/ curfptr[13]), "MCX_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), (/*_.NTMA__V2*/ curfptr[1]), "MCX_NORMTESTER"); ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (3), (/*_.GOTOTHEN__V22*/ curfptr[21]), "MCX_GOTOTHEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (4), (/*_.GOTOELSE__V23*/ curfptr[22]), "MCX_GOTOELSE"); ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (5), (/*_.OLIST__V24*/ curfptr[23]), "MCX_OLIST"); ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (6), (/*_.PREFIX__V26*/ curfptr[25]), "MCX_PREFIX"); ; /*_.MATCX__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4201:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4201:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4201:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4201:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher matcx"; BASILYS_LOCATION("warmelt-genobj.melt:4201:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4201:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4201:/ apply.arg"); argtab[3].bp_long = 4201; /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MATCX__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V59*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4201:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4201:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4201:/ cppif.else"); /*_.IFCPP___V59*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4202:/ msend"); /*msend*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4202:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.MATCX__V57*/ curfptr[56]; BASILYS_LOCATION("warmelt-genobj.melt:4202:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.COMPILE_MATCHER__V61*/ curfptr[59] = basilysgc_send((basilys_ptr_t)(/*_.NMATCHER__V18*/ curfptr[17]), (basilys_ptr_t)((/*!COMPILE_MATCHER*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4203:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4203:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4203:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4203:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_matcher return olist"; BASILYS_LOCATION("warmelt-genobj.melt:4203:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[8]; BASILYS_LOCATION("warmelt-genobj.melt:4203:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4203:/ apply.arg"); argtab[3].bp_long = 4203; /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OLIST__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V62*/ curfptr[61] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4203:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4203:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4203:/ cppif.else"); /*_.IFCPP___V62*/ curfptr[61] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4204:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V24*/ curfptr[23];; BASILYS_LOCATION("warmelt-genobj.melt:4204:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V56*/ curfptr[54] = /*_.RETURN___V64*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4194:/ clear"); /*clear*/ /*_.MATCX__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ clear"); /*clear*/ /*_.IFCPP___V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ clear"); /*clear*/ /*_.COMPILE_MATCHER__V61*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ clear"); /*clear*/ /*_.IFCPP___V62*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4194:/ clear"); /*clear*/ /*_.RETURN___V64*/ curfptr[62] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V56*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NMATCHER__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NINS__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NOUTS__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.NORMATCH__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.GOTOTHEN__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.GOTOELSE__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.OLIST__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.MATCHMAP__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.PREFIX__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.FREELIST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IF___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IF___V35*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4155:/ clear"); /*clear*/ /*_.LET___V56*/ curfptr[54] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4150:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:4150:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4150:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4150:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4150:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4150:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4150:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILTST_NORMTESTER_MATCHER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_133_COMPILTST_NORMTESTER_MATCHER*/ static basilys_ptr_t rout_134_COMPILTST_NORMTESTER_INSTANCE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_134_COMPILTST_NORMTESTER_INSTANCE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 92 void* varptr[92]; #define CURFRAM_NBVARNUM 24 long varnum[24]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<92; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 92; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILTST_NORMTESTER_INSTANCE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4210:/ getarg"); /*_.NTMI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4210:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4210:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4210:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4211:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4211:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4211:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4211:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance ntmi"; BASILYS_LOCATION("warmelt-genobj.melt:4211:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4211:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4211:/ apply.arg"); argtab[3].bp_long = 4211; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4211:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4211:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4211:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4212:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4212:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_INSTANCE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4212:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4212:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4212:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4212:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntmi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4212)?(4212):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4212:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4212:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4212:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4213:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4213:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4213:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4213:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4213:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4213:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4213)?(4213):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4213:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4213:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4213:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4214:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4214:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4214:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4214:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4214:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4214:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4214)?(4214):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4214:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4214:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4214:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4216:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4217:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4218:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4219:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4220:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4221:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCCLIST__V19*/ curfptr[18] = slot; }; ; /*_.OLIST__V20*/ curfptr[19] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_#NTESTIX__L5*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4224:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 7, "NTINST_CLASS");/*_.NTCLASS__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4225:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 8, "NTINST_FIELDLOCS");/*_.NTFLDS__V22*/ curfptr[21] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4226:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4226:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4226:/ cond"); /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4226:/ cond.then"); /*_.GOTOTHEN__V24*/ curfptr[23] = /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22];; } else {BASILYS_LOCATION("warmelt-genobj.melt:4226:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4226:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4227:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4227:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4227:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V14*/ curfptr[13]; /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.GOTOTHEN__V24*/ curfptr[23] = /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4226:/ clear"); /*clear*/ /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:4228:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4228:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4228:/ cond"); /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4228:/ cond.then"); /*_.GOTOELSE__V27*/ curfptr[26] = /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24];; } else {BASILYS_LOCATION("warmelt-genobj.melt:4228:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4228:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4229:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4229:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4229:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V14*/ curfptr[13]; /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.GOTOELSE__V27*/ curfptr[26] = /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4228:/ clear"); /*clear*/ /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:4230:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4230:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OCLASS__V29*/ curfptr[27] = basilysgc_send((basilys_ptr_t)(/*_.NTCLASS__V21*/ curfptr[20]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4231:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4231:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OMATCHED__V30*/ curfptr[29] = basilysgc_send((basilys_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4232:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4232:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4232:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.TCX__V4*/ curfptr[3]; /*_.FREELIST__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OTHENLIST__V32*/ curfptr[31] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.OELSELIST__V33*/ curfptr[32] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-genobj.melt:4235:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4235:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V35*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4235:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4235:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.OTHENLIST__V32*/ curfptr[31]), "OBLO_BODYL"); ; /*_.OTHENBLOCK__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4239:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4239:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4239:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4239:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OELSELIST__V33*/ curfptr[32]), "OBLO_BODYL"); ; /*_.OELSEBLOCK__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; /*_.MAKE_STRINGCONST__V38*/ curfptr[37] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[12])), ( "/*normtesterinst*/ (basilys_is_instance_of((")));; /*_.MAKE_STRINGCONST__V39*/ curfptr[38] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[12])), ( "), (")));; /*_.MAKE_STRINGCONST__V40*/ curfptr[39] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[12])), ( ")))")));; /*_.MAKE_TUPLE5__V41*/ curfptr[40] = (basilysgc_new_mult5((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V38*/ curfptr[37]), (basilys_ptr_t)(/*_.OMATCHED__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V39*/ curfptr[38]), (basilys_ptr_t)(/*_.OCLASS__V29*/ curfptr[27]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V40*/ curfptr[39])));; BASILYS_LOCATION("warmelt-genobj.melt:4242:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4242:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V43*/ curfptr[42] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4242:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.NLOC__V14*/ curfptr[13]), "OBCX_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4242:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.MAKE_TUPLE5__V41*/ curfptr[40]), "OBX_CONT"); ; /*_.OTEST__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4254:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4254:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[13])), (4), "CLASS_OBJCOND");/*_.INST__V45*/ curfptr[44] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4254:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4254:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), (/*_.OTEST__V42*/ curfptr[41]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:4254:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.OTHENBLOCK__V34*/ curfptr[33]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:4254:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[44]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[44]), (3), (/*_.OELSEBLOCK__V36*/ curfptr[35]), "OBCOND_ELSE"); ; /*_.OCOND__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4260:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4260:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4260:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4260:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance gotothen"; BASILYS_LOCATION("warmelt-genobj.melt:4260:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4260:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4260:/ apply.arg"); argtab[3].bp_long = 4260; /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4260:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4260:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4260:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4261:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4261:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4261:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4261:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance gotoelse"; BASILYS_LOCATION("warmelt-genobj.melt:4261:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4261:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4261:/ apply.arg"); argtab[3].bp_long = 4261; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4261:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4261:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4261:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4262:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4262:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4262:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4262:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance oclass"; BASILYS_LOCATION("warmelt-genobj.melt:4262:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4262:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4262:/ apply.arg"); argtab[3].bp_long = 4262; /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCOND__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V50*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4262:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4262:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4262:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4263:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4263:/ block"); /*block*/{ /*_#IS_OBJECT__L9*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.OCLASS__V29*/ curfptr[27])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4263:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L9*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4263:/ cond.then"); /*_.IFELSE___V53*/ curfptr[52] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4263:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4263:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oclass"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4263)?(4263):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V52*/ curfptr[50] = /*_.IFELSE___V53*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4263:/ clear"); /*clear*/ /*_#IS_OBJECT__L9*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4263:/ clear"); /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4263:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_LIST*/ { /* start cit1__EACHLIST*/ for (/*_.LOCPAIR__V54*/ curfptr[52] = basilys_list_first(/*_.FREELIST__V31*/ curfptr[30]); basilys_magic_discr(/*_.LOCPAIR__V54*/ curfptr[52]) == OBMAG_PAIR; /*_.LOCPAIR__V54*/ curfptr[52] = basilys_pair_tail(/*_.LOCPAIR__V54*/ curfptr[52])) { /*_.OBLOC__V55*/ curfptr[54] = basilys_pair_head(/*_.LOCPAIR__V54*/ curfptr[52]); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4268:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4268:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4268:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4268:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance obloc"; BASILYS_LOCATION("warmelt-genobj.melt:4268:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4268:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4268:/ apply.arg"); argtab[3].bp_long = 4268; /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBLOC__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4268:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4268:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4268:/ cppif.else"); /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4269:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4269:/ block"); /*block*/{ /*_#IS_A__L11*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLOC__V55*/ curfptr[54]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[14])));; BASILYS_LOCATION("warmelt-genobj.melt:4269:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4269:/ cond.then"); /*_.IFELSE___V59*/ curfptr[58] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4269:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4269:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4269)?(4269):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V58*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4269:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4269:/ clear"); /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4269:/ cppif.else"); /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4270:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4270:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4270:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[15])), (2), "CLASS_OBJCLEAR");/*_.INST__V61*/ curfptr[60] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4270:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[60]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4270:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[60]), (1), (/*_.OBLOC__V55*/ curfptr[54]), "OCLR_VLOC"); ; /*_.OCLEAROB__V60*/ curfptr[58] = /*_.INST__V61*/ curfptr[60];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (basilys_ptr_t)(/*_.OCLEAROB__V60*/ curfptr[58])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4270:/ clear"); /*clear*/ /*_.OCLEAROB__V60*/ curfptr[58] = 0 ;} ; } /* end cit1__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4265:/ clear"); /*clear*/ /*_.LOCPAIR__V54*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4265:/ clear"); /*clear*/ /*_.OBLOC__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4265:/ clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4265:/ clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (basilys_ptr_t)(/*_.OCOND__V44*/ curfptr[43])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4280:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4280:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4280:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4280:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance ntflds"; BASILYS_LOCATION("warmelt-genobj.melt:4280:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4280:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4280:/ apply.arg"); argtab[3].bp_long = 4280; /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NTFLDS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V62*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4280:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4280:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4280:/ cppif.else"); /*_.IFCPP___V62*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4281:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4281:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4281:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4281:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance nlocclist"; BASILYS_LOCATION("warmelt-genobj.melt:4281:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4281:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4281:/ apply.arg"); argtab[3].bp_long = 4281; /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLOCCLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V64*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4281:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4281:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4281:/ cppif.else"); /*_.IFCPP___V64*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { long cit2__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.NTFLDS__V22*/ curfptr[21]); int cit2__EACHTUP_ix = 0; for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix ++) { /*_.FLDOC__V66*/ curfptr[64] = basilys_multiple_nth((basilys_ptr_t)(/*_.NTFLDS__V22*/ curfptr[21]), cit2__EACHTUP_ix); /*_#FLDIX__L14*/ curfnum[5] = cit2__EACHTUP_ix; BASILYS_LOCATION("warmelt-genobj.melt:4285:/ cond"); /*cond*/ if (/*_.FLDOC__V66*/ curfptr[64]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4285:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4285:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4287:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4287:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4287:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4287:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance fldoc"; BASILYS_LOCATION("warmelt-genobj.melt:4287:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:4287:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4287:/ apply.arg"); argtab[3].bp_long = 4287; /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FLDOC__V66*/ curfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V67*/ curfptr[66] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[67];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4287:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4287:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4287:/ cppif.else"); /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4288:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4288:/ block"); /*block*/{ /*_#IS_A__L16*/ curfnum[14] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDOC__V66*/ curfptr[64]), (basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[16])));; BASILYS_LOCATION("warmelt-genobj.melt:4288:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4288:/ cond.then"); /*_.IFELSE___V70*/ curfptr[69] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4288:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4288:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fldoc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4288)?(4288):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V70*/ curfptr[69] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V69*/ curfptr[67] = /*_.IFELSE___V70*/ curfptr[69];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4288:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4288:/ clear"); /*clear*/ /*_.IFELSE___V70*/ curfptr[69] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4288:/ cppif.else"); /*_.IFCPP___V69*/ curfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4289:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4289:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.FLOVAR__V71*/ curfptr[69] = basilysgc_send((basilys_ptr_t)(/*_.FLDOC__V66*/ curfptr[64]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4290:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDOC__V66*/ curfptr[64]), 3, "NOCC_BIND");/*_.FLBIND__V72*/ curfptr[71] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4291:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLBIND__V72*/ curfptr[71]), 2, "LETBIND_EXPR");/*_.FLDGET__V73*/ curfptr[72] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4292:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4292:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OFGET__V74*/ curfptr[73] = basilysgc_send((basilys_ptr_t)(/*_.FLDGET__V73*/ curfptr[72]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4294:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4294:/ block"); /*block*/{ /*_#IS_A__L17*/ curfnum[14] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLBIND__V72*/ curfptr[71]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[17])));; BASILYS_LOCATION("warmelt-genobj.melt:4294:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4294:/ cond.then"); /*_.IFELSE___V76*/ curfptr[75] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4294:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4294:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check flbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4294)?(4294):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V76*/ curfptr[75] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V75*/ curfptr[74] = /*_.IFELSE___V76*/ curfptr[75];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4294:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4294:/ clear"); /*clear*/ /*_.IFELSE___V76*/ curfptr[75] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4294:/ cppif.else"); /*_.IFCPP___V75*/ curfptr[74] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4295:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4295:/ block"); /*block*/{ /*_#IS_A__L18*/ curfnum[14] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDGET__V73*/ curfptr[72]), (basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[18])));; BASILYS_LOCATION("warmelt-genobj.melt:4295:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4295:/ cond.then"); /*_.IFELSE___V78*/ curfptr[77] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4295:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4295:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fldget"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4295)?(4295):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V77*/ curfptr[75] = /*_.IFELSE___V78*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4295:/ clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4295:/ clear"); /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4295:/ cppif.else"); /*_.IFCPP___V77*/ curfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4296:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4296:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FLOVAR__V71*/ curfptr[69]; /*_.PUT_OBJDEST__V79*/ curfptr[77] = basilysgc_send((basilys_ptr_t)(/*_.OFGET__V74*/ curfptr[73]), (basilys_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[19])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4297:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4297:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4297:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4297:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance ofget"; BASILYS_LOCATION("warmelt-genobj.melt:4297:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:4297:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4297:/ apply.arg"); argtab[3].bp_long = 4297; /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OFGET__V74*/ curfptr[73]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V80*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[80];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4297:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4297:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4297:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[79] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4298:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4298:/ block"); /*block*/{ /*_#IS_OBJECT__L20*/ curfnum[14] = (basilys_magic_discr((basilys_ptr_t)(/*_.OFGET__V74*/ curfptr[73])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4298:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L20*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4298:/ cond.then"); /*_.IFELSE___V83*/ curfptr[82] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4298:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4298:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ofget"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4298)?(4298):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V83*/ curfptr[82] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V82*/ curfptr[80] = /*_.IFELSE___V83*/ curfptr[82];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4298:/ clear"); /*clear*/ /*_#IS_OBJECT__L20*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4298:/ clear"); /*clear*/ /*_.IFELSE___V83*/ curfptr[82] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4298:/ cppif.else"); /*_.IFCPP___V82*/ curfptr[80] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHENLIST__V32*/ curfptr[31]), (basilys_ptr_t)(/*_.OFGET__V74*/ curfptr[73])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.FLOVAR__V71*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.FLBIND__V72*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.FLDGET__V73*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.OFGET__V74*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.IFCPP___V75*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.IFCPP___V77*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.PUT_OBJDEST__V79*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4289:/ clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[80] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4286:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4285:/ clear"); /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4285:/ clear"); /*clear*/ /*_.IFCPP___V69*/ curfptr[67] = 0 ;} ; } /*noelse*/ ; } /* end cit2__EACHTUP*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4282:/ clear"); /*clear*/ /*_.FLDOC__V66*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4282:/ clear"); /*clear*/ /*_#FLDIX__L14*/ curfnum[5] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4302:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4302:/ block"); /*block*/{ /*_#IS_OBJECT__L21*/ curfnum[14] = (basilys_magic_discr((basilys_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4302:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L21*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4302:/ cond.then"); /*_.IFELSE___V85*/ curfptr[69] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4302:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4302:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gotothen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4302)?(4302):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V85*/ curfptr[69] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V84*/ curfptr[82] = /*_.IFELSE___V85*/ curfptr[69];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4302:/ clear"); /*clear*/ /*_#IS_OBJECT__L21*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4302:/ clear"); /*clear*/ /*_.IFELSE___V85*/ curfptr[69] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4302:/ cppif.else"); /*_.IFCPP___V84*/ curfptr[82] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHENLIST__V32*/ curfptr[31]), (basilys_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4306:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4306:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4306:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4306:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance gotoelse"; BASILYS_LOCATION("warmelt-genobj.melt:4306:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:4306:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4306:/ apply.arg"); argtab[3].bp_long = 4306; /*_.DEBUG_MSG_FUN__V87*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V86*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V87*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4306:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4306:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4306:/ cppif.else"); /*_.IFCPP___V86*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4307:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4307:/ block"); /*block*/{ /*_#IS_OBJECT__L23*/ curfnum[14] = (basilys_magic_discr((basilys_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4307:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L23*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4307:/ cond.then"); /*_.IFELSE___V89*/ curfptr[74] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4307:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4307:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gotoelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4307)?(4307):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V89*/ curfptr[74] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V88*/ curfptr[73] = /*_.IFELSE___V89*/ curfptr[74];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4307:/ clear"); /*clear*/ /*_#IS_OBJECT__L23*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4307:/ clear"); /*clear*/ /*_.IFELSE___V89*/ curfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4307:/ cppif.else"); /*_.IFCPP___V88*/ curfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OELSELIST__V33*/ curfptr[32]), (basilys_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26])); basilys_warning_str(0, (basilys_ptr_t)(/*_.NLOC__V14*/ curfptr[13]), ( "not fully implemented compiltst_normtester_instance"), (basilys_ptr_t)0); basilys_dbgshortbacktrace(( "compiltst_normtester_instance"), (15)); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4311:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4311:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L24*/ curfnum[14] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4311:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4311:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance final olist"; BASILYS_LOCATION("warmelt-genobj.melt:4311:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[14]; BASILYS_LOCATION("warmelt-genobj.melt:4311:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4311:/ apply.arg"); argtab[3].bp_long = 4311; /*_.DEBUG_MSG_FUN__V91*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V90*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4311:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4311:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4311:/ cppif.else"); /*_.IFCPP___V90*/ curfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4312:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-genobj.melt:4312:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V92*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NORMATCH__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NLOCCLIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OLIST__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NTCLASS__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NTFLDS__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.GOTOTHEN__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.GOTOELSE__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OCLASS__V29*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OMATCHED__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.FREELIST__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OTHENLIST__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OELSELIST__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OTHENBLOCK__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OELSEBLOCK__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.MAKE_TUPLE5__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OTEST__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.OCOND__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V62*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V84*/ curfptr[82] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V86*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V88*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.IFCPP___V90*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4215:/ clear"); /*clear*/ /*_.RETURN___V92*/ curfptr[79] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4210:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:4210:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4210:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4210:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4210:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4210:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4210:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILTST_NORMTESTER_INSTANCE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_134_COMPILTST_NORMTESTER_INSTANCE*/ static basilys_ptr_t rout_135_COMPILTST_NORMTESTER_SAME(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_135_COMPILTST_NORMTESTER_SAME_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 58 void* varptr[58]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<58; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 58; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILTST_NORMTESTER_SAME", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4317:/ getarg"); /*_.NTSA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4317:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4317:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4317:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4318:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4318:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4318:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4318:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_same ntsa"; BASILYS_LOCATION("warmelt-genobj.melt:4318:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4318:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4318:/ apply.arg"); argtab[3].bp_long = 4318; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4318:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4318:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4318:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4319:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4319:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4319:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4319:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4319:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4319:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntsa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4319)?(4319):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4319:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4319:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4319:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4320:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4320:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4320:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4320:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4320:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4320:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4320)?(4320):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4320:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4320:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4320:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4321:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4321:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4321:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4321:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4321:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4321:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4321)?(4321):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4321:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4321:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4321:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4323:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4324:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4325:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4326:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4327:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4328:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 7, "NTSAME_IDENTICAL");/*_.NIDENTICAL__V19*/ curfptr[18] = slot; }; ; /*_#NTESTIX__L5*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4330:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4330:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OMATCHED__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4331:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4331:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OIDENTICAL__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.NIDENTICAL__V19*/ curfptr[18]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4332:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4332:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4332:/ cond"); /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4332:/ cond.then"); /*_.GOTOTHEN__V23*/ curfptr[22] = /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21];; } else {BASILYS_LOCATION("warmelt-genobj.melt:4332:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4332:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4333:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4333:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4333:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V14*/ curfptr[13]; /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.GOTOTHEN__V23*/ curfptr[22] = /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4332:/ clear"); /*clear*/ /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:4334:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4334:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4334:/ cond"); /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4334:/ cond.then"); /*_.GOTOELSE__V26*/ curfptr[25] = /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23];; } else {BASILYS_LOCATION("warmelt-genobj.melt:4334:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4334:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4335:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4335:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4335:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V14*/ curfptr[13]; /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.GOTOELSE__V26*/ curfptr[25] = /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4334:/ clear"); /*clear*/ /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:4336:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4336:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4336:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.TCX__V4*/ curfptr[3]; /*_.FREELIST__V28*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OTHENLIST__V29*/ curfptr[28] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; /*_.OELSELIST__V30*/ curfptr[29] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-genobj.melt:4339:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4339:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4339:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4339:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.OTHENLIST__V29*/ curfptr[28]), "OBLO_BODYL"); ; /*_.OTHENBLOCK__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4343:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4343:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4343:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.OELSELIST__V30*/ curfptr[29]), "OBLO_BODYL"); ; /*_.OELSEBLOCK__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; /*_.MAKE_STRINGCONST__V35*/ curfptr[34] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[12])), ( "/*same*/ ((")));; /*_.MAKE_STRINGCONST__V36*/ curfptr[35] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[12])), ( ") == (")));; /*_.MAKE_STRINGCONST__V37*/ curfptr[36] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[12])), ( "))")));; /*_.MAKE_TUPLE5__V38*/ curfptr[37] = (basilysgc_new_mult5((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V35*/ curfptr[34]), (basilys_ptr_t)(/*_.OMATCHED__V20*/ curfptr[19]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V36*/ curfptr[35]), (basilys_ptr_t)(/*_.OIDENTICAL__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.MAKE_STRINGCONST__V37*/ curfptr[36])));; BASILYS_LOCATION("warmelt-genobj.melt:4346:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4346:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V40*/ curfptr[39] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4346:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NLOC__V14*/ curfptr[13]), "OBCX_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4346:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.MAKE_TUPLE5__V38*/ curfptr[37]), "OBX_CONT"); ; /*_.OTEST__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4358:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4358:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[13])), (4), "CLASS_OBJCOND");/*_.INST__V42*/ curfptr[41] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4358:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4358:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.OTEST__V39*/ curfptr[38]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:4358:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.OTHENBLOCK__V31*/ curfptr[30]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:4358:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), (/*_.OELSEBLOCK__V33*/ curfptr[32]), "OBCOND_ELSE"); ; /*_.OCOND__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} ; /*_.OLIST__V43*/ curfptr[42] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; /*citerblock FOREACH_IN_LIST*/ { /* start cit1__EACHLIST*/ for (/*_.LOCPAIR__V44*/ curfptr[43] = basilys_list_first(/*_.FREELIST__V28*/ curfptr[26]); basilys_magic_discr(/*_.LOCPAIR__V44*/ curfptr[43]) == OBMAG_PAIR; /*_.LOCPAIR__V44*/ curfptr[43] = basilys_pair_tail(/*_.LOCPAIR__V44*/ curfptr[43])) { /*_.OBLOC__V45*/ curfptr[44] = basilys_pair_head(/*_.LOCPAIR__V44*/ curfptr[43]); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4369:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4369:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4369:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4369:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_same obloc"; BASILYS_LOCATION("warmelt-genobj.melt:4369:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4369:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4369:/ apply.arg"); argtab[3].bp_long = 4369; /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBLOC__V45*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4369:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4369:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4369:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4370:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4370:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLOC__V45*/ curfptr[44]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[14])));; BASILYS_LOCATION("warmelt-genobj.melt:4370:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4370:/ cond.then"); /*_.IFELSE___V49*/ curfptr[48] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4370:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4370:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4370)?(4370):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V48*/ curfptr[46] = /*_.IFELSE___V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4370:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4370:/ clear"); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4370:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4371:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4371:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4371:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[15])), (2), "CLASS_OBJCLEAR");/*_.INST__V51*/ curfptr[50] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4371:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4371:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), (/*_.OBLOC__V45*/ curfptr[44]), "OCLR_VLOC"); ; /*_.OCLEAROB__V50*/ curfptr[48] = /*_.INST__V51*/ curfptr[50];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIST__V43*/ curfptr[42]), (basilys_ptr_t)(/*_.OCLEAROB__V50*/ curfptr[48])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4371:/ clear"); /*clear*/ /*_.OCLEAROB__V50*/ curfptr[48] = 0 ;} ; } /* end cit1__EACHLIST*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4366:/ clear"); /*clear*/ /*_.LOCPAIR__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4366:/ clear"); /*clear*/ /*_.OBLOC__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4366:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4366:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIST__V43*/ curfptr[42]), (basilys_ptr_t)(/*_.OCOND__V41*/ curfptr[40])); basilys_error_str((basilys_ptr_t)(/*_.NLOC__V14*/ curfptr[13]), ( "unimplemented compiltst_normtester_same"), (basilys_ptr_t)0); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4381:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4381:/ block"); /*block*/{ /*_#IS_OBJECT__L8*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.GOTOTHEN__V23*/ curfptr[22])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4381:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L8*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4381:/ cond.then"); /*_.IFELSE___V53*/ curfptr[52] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4381:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4381:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gotothen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4381)?(4381):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V52*/ curfptr[48] = /*_.IFELSE___V53*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4381:/ clear"); /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4381:/ clear"); /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4381:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHENLIST__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.GOTOTHEN__V23*/ curfptr[22])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4384:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4384:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4384:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4384:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_instance gotoelse"; BASILYS_LOCATION("warmelt-genobj.melt:4384:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5]; BASILYS_LOCATION("warmelt-genobj.melt:4384:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4384:/ apply.arg"); argtab[3].bp_long = 4384; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V54*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4384:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4384:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4384:/ cppif.else"); /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4385:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4385:/ block"); /*block*/{ /*_#IS_OBJECT__L10*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4385:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L10*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4385:/ cond.then"); /*_.IFELSE___V57*/ curfptr[56] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4385:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4385:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gotoelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4385)?(4385):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V56*/ curfptr[54] = /*_.IFELSE___V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4385:/ clear"); /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4385:/ clear"); /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4385:/ cppif.else"); /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OELSELIST__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25])); BASILYS_LOCATION("warmelt-genobj.melt:4387:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V43*/ curfptr[42];; BASILYS_LOCATION("warmelt-genobj.melt:4387:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V58*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NORMATCH__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NIDENTICAL__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OMATCHED__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OIDENTICAL__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.GOTOTHEN__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.GOTOELSE__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.FREELIST__V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OTHENLIST__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OELSELIST__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OTHENBLOCK__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OELSEBLOCK__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.MAKE_TUPLE5__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OTEST__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OCOND__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.OLIST__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4322:/ clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4317:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; BASILYS_LOCATION("warmelt-genobj.melt:4317:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4317:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4317:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4317:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4317:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4317:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILTST_NORMTESTER_SAME", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_135_COMPILTST_NORMTESTER_SAME*/ static basilys_ptr_t rout_136_COMPILTST_NORMTESTER_SUCCESS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_136_COMPILTST_NORMTESTER_SUCCESS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 41 void* varptr[41]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<41; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 41; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILTST_NORMTESTER_SUCCESS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4394:/ getarg"); /*_.NTSU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4394:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4394:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4394:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4395:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4395:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4395:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4395:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_success ntsu"; BASILYS_LOCATION("warmelt-genobj.melt:4395:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4395:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4395:/ apply.arg"); argtab[3].bp_long = 4395; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4395:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4395:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4395:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4396:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4396:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4396:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4396:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_success tcx"; BASILYS_LOCATION("warmelt-genobj.melt:4396:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4396:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4396:/ apply.arg"); argtab[3].bp_long = 4396; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4396:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4396:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4396:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4397:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4397:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4397:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4397:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4397:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4397:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ntsu"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4397)?(4397):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4397:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4397:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4397:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4398:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4398:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4398:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4398:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4398:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4398:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4398)?(4398):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4398:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4398:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4398:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4399:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4399:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4399:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4399:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4399:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4399:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4399)?(4399):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4399:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4399:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4399:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4401:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4402:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4403:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4404:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4405:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCLIS__V20*/ curfptr[19] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4406:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4407:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 7, "NTSUCCESS_DO");/*_.NSUCDO__V22*/ curfptr[21] = slot; }; ; /*_#NTESTIX__L6*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.NTSU__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4409:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4409:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-genobj.melt:4409:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NLOC__V16*/ curfptr[15]; /*_.GOTOEND__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4411:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4411:/ block"); /*block*/{ /*_#NULL__L7*/ curfnum[6] = ((/*_.NLOCLIS__V20*/ curfptr[19]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:4411:/ cond"); /*cond*/ if (/*_#NULL__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4411:/ cond.then"); /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4411:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4411:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nil nloclis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4411)?(4411):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4411:/ clear"); /*clear*/ /*_#NULL__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4411:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4411:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4412:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4412:/ block"); /*block*/{ /*_#NULL__L8*/ curfnum[6] = ((/*_.NTHEN__V18*/ curfptr[17]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:4412:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4412:/ cond.then"); /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4412:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4412:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nil nthen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4412)?(4412):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4412:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4412:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4412:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4413:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4413:/ block"); /*block*/{ /*_#NULL__L9*/ curfnum[6] = ((/*_.NELSE__V19*/ curfptr[18]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:4413:/ cond"); /*cond*/ if (/*_#NULL__L9*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4413:/ cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4413:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4413:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nil nelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4413)?(4413):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4413:/ clear"); /*clear*/ /*_#NULL__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4413:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4413:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4414:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4414:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4414:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4414:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_success nsucdo"; BASILYS_LOCATION("warmelt-genobj.melt:4414:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:4414:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4414:/ apply.arg"); argtab[3].bp_long = 4414; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NSUCDO__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4414:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4414:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4414:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4415:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4415:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4415:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V3*/ curfptr[2]; /*_.OSUCC__V33*/ curfptr[32] = basilysgc_send((basilys_ptr_t)(/*_.NSUCDO__V22*/ curfptr[21]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4417:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4417:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4417:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4417:/ apply.arg"); argtab[0].bp_cstring = "compiltst_normtester_success osucc"; BASILYS_LOCATION("warmelt-genobj.melt:4417:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[6]; BASILYS_LOCATION("warmelt-genobj.melt:4417:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4417:/ apply.arg"); argtab[3].bp_long = 4417; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4417:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4417:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4417:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_LIST__L12*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.OSUCC__V33*/ curfptr[32])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-genobj.melt:4419:/ cond"); /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4419:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4419:/ block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (basilys_ptr_t)(/*_.GOTOEND__V23*/ curfptr[22])); /*_.LIST_LAST__V37*/ curfptr[36] = (basilys_list_last((basilys_ptr_t)(/*_.OSUCC__V33*/ curfptr[32])));; BASILYS_LOCATION("warmelt-genobj.melt:4422:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OSUCC__V33*/ curfptr[32];; BASILYS_LOCATION("warmelt-genobj.melt:4422:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (basilys_ptr_t) (/*_.LIST_LAST__V37*/ curfptr[36]); ; BASILYS_LOCATION("warmelt-genobj.melt:4422:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4420:/ block"); /*block*/{ /*_.PROGN___V39*/ curfptr[38] = /*_.RETURN___V38*/ curfptr[37];;} ; /*_.IFELSE___V36*/ curfptr[34] = /*_.PROGN___V39*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4419:/ clear"); /*clear*/ /*_.LIST_LAST__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4419:/ clear"); /*clear*/ /*_.RETURN___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4419:/ clear"); /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4419:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4419:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4423:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4423:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GOTOEND__V23*/ curfptr[22]; /*_.LIST2__V40*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST2*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4423:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST2__V40*/ curfptr[36];; BASILYS_LOCATION("warmelt-genobj.melt:4423:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (basilys_ptr_t) (/*_.OSUCC__V33*/ curfptr[32]); ; BASILYS_LOCATION("warmelt-genobj.melt:4423:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V36*/ curfptr[34] = /*_.RETURN___V41*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4419:/ clear"); /*clear*/ /*_.LIST2__V40*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4419:/ clear"); /*clear*/ /*_.RETURN___V41*/ curfptr[37] = 0 ;} ; } ; /*_.LET___V32*/ curfptr[30] = /*_.IFELSE___V36*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4415:/ clear"); /*clear*/ /*_.OSUCC__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4415:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4415:/ clear"); /*clear*/ /*_#IS_LIST__L12*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4415:/ clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[34] = 0 ;} ; /*_.LET___V15*/ curfptr[13] = /*_.LET___V32*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NLOC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NMATCHED__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NTHEN__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NELSE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NLOCLIS__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NORMATCH__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.NSUCDO__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_#NTESTIX__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.GOTOEND__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4400:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[30] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[13];; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4394:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4394:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILTST_NORMTESTER_SUCCESS", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_136_COMPILTST_NORMTESTER_SUCCESS*/ static basilys_ptr_t rout_137_COMPILMATCHER_CMATCHER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_137_COMPILMATCHER_CMATCHER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 89 void* varptr[89]; #define CURFRAM_NBVARNUM 22 long varnum[22]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<89; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 89; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILMATCHER_CMATCHER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4428:/ getarg"); /*_.CMAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4428:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.MCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4428:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4428:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4429:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4429:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4429:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4429:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher cmat"; BASILYS_LOCATION("warmelt-genobj.melt:4429:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4429:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4429:/ apply.arg"); argtab[3].bp_long = 4429; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4429:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4429:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4429:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4430:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4430:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4430:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4430:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher mcx"; BASILYS_LOCATION("warmelt-genobj.melt:4430:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-genobj.melt:4430:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4430:/ apply.arg"); argtab[3].bp_long = 4430; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4430:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4430:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4430:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4431:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4431:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4431:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4431:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4431:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4431:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4431)?(4431):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4431:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4431:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4431:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4432:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4432:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-genobj.melt:4432:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4432:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4432:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4432:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check mcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4432)?(4432):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4432:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4432:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4432:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4433:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4433:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_GENERCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-genobj.melt:4433:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4433:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4433:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4433:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4433)?(4433):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4433:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4433:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4433:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4435:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 2, "AMATCH_IN");/*_.CMINS__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4436:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 3, "AMATCH_MATCHBIND");/*_.CMBIND__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4437:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 4, "AMATCH_OUT");/*_.CMOUTS__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4438:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 5, "CMATCH_STATE");/*_.CMSTATE__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4439:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 6, "CMATCH_EXPTEST");/*_.CMEXPTEST__V20*/ curfptr[19] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4440:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 7, "CMATCH_EXPFILL");/*_.CMEXPFILL__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4442:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 2, "MCX_NORMTESTER");/*_.NORMTESTER__V22*/ curfptr[21] = slot; }; ; /*_#MULTIPLE_LENGTH__L6*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.CMINS__V16*/ curfptr[15])));; /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.CMOUTS__V18*/ curfptr[17])));; /*_#I__L8*/ curfnum[7] = ((/*_#MULTIPLE_LENGTH__L6*/ curfnum[0]) + (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]));; /*_#I__L9*/ curfnum[8] = ((2) * (/*_#I__L8*/ curfnum[7]));; /*_#I__L10*/ curfnum[9] = ((5) + (/*_#I__L9*/ curfnum[8]));; /*_.SUBSTMAP__V23*/ curfptr[22] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[4])), (/*_#I__L10*/ curfnum[9])));; BASILYS_LOCATION("warmelt-genobj.melt:4449:/ block"); /*block*/{ /*_.SBUF__V25*/ curfptr[24] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[5])), (char*)0);; BASILYS_LOCATION("warmelt-genobj.melt:4450:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4450:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4450:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 6, "MCX_PREFIX");/*_.MCX_PREFIX__V26*/ curfptr[25] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4450:/ cond.else"); /*_.MCX_PREFIX__V26*/ curfptr[25] = NULL;; } ; basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V25*/ curfptr[24]), basilys_string_str((basilys_ptr_t)(/*_.MCX_PREFIX__V26*/ curfptr[25]))); basilysgc_add_strbuf((basilys_ptr_t)(/*_.SBUF__V25*/ curfptr[24]), ( "__")); BASILYS_LOCATION("warmelt-genobj.melt:4452:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CMSTATE__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4452:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4452:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMSTATE__V19*/ curfptr[18]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4452:/ cond.else"); /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;; } ; basilysgc_add_strbuf_cident((basilys_ptr_t)(/*_.SBUF__V25*/ curfptr[24]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26]))); /*_.STRBUF2STRING__V28*/ curfptr[27] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[7])), basilys_strbuf_str((basilys_ptr_t)(/*_.SBUF__V25*/ curfptr[24]))));; /*_.LET___V24*/ curfptr[23] = /*_.STRBUF2STRING__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4449:/ clear"); /*clear*/ /*_.SBUF__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4449:/ clear"); /*clear*/ /*_.MCX_PREFIX__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4449:/ clear"); /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4449:/ clear"); /*clear*/ /*_.STRBUF2STRING__V28*/ curfptr[27] = 0 ;} ; /*_.UNIQSTATE__V29*/ curfptr[24] = /*_.LET___V24*/ curfptr[23];; BASILYS_LOCATION("warmelt-genobj.melt:4455:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4455:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4455:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 5, "MCX_OLIST");/*_.OLIST__V30*/ curfptr[25] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4455:/ cond.else"); /*_.OLIST__V30*/ curfptr[25] = NULL;; } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V23*/ curfptr[22]), (basilysobject_ptr_t) (/*_.CMSTATE__V19*/ curfptr[18]), (basilys_ptr_t)(/*_.UNIQSTATE__V29*/ curfptr[24])); BASILYS_LOCATION("warmelt-genobj.melt:4460:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4460:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[8])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4460:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4460:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 1, "NTEST_MATCHED");/*_.NMATCHED__V31*/ curfptr[26] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4460:/ cond.else"); /*_.NMATCHED__V31*/ curfptr[26] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4461:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4461:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4461:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4461:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher nmatched"; BASILYS_LOCATION("warmelt-genobj.melt:4461:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:4461:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4461:/ apply.arg"); argtab[3].bp_long = 4461; /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NMATCHED__V31*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4461:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4461:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4461:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4462:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4462:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4462:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GCX__V4*/ curfptr[3]; /*_.OBMATCHED__V34*/ curfptr[32] = basilysgc_send((basilys_ptr_t)(/*_.NMATCHED__V31*/ curfptr[26]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4463:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4463:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4463:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4463:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher obmatched"; BASILYS_LOCATION("warmelt-genobj.melt:4463:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:4463:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4463:/ apply.arg"); argtab[3].bp_long = 4463; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBMATCHED__V34*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4463:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4463:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4463:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4465:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CMBIND__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[10])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4465:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4465:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CMBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V37*/ curfptr[35] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4465:/ cond.else"); /*_.BINDER__V37*/ curfptr[35] = NULL;; } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V23*/ curfptr[22]), (basilysobject_ptr_t) (/*_.BINDER__V37*/ curfptr[35]), (basilys_ptr_t)(/*_.OBMATCHED__V34*/ curfptr[32])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4462:/ clear"); /*clear*/ /*_.OBMATCHED__V34*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4462:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4462:/ clear"); /*clear*/ /*_.BINDER__V37*/ curfptr[35] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4460:/ clear"); /*clear*/ /*_.NMATCHED__V31*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4460:/ clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[27] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4469:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4469:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4469:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4469:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher normtester"; BASILYS_LOCATION("warmelt-genobj.melt:4469:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:4469:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4469:/ apply.arg"); argtab[3].bp_long = 4469; /*_.DEBUG_MSG_FUN__V39*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4469:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4469:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4469:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4472:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[12])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4472:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4472:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 8, "NTMATCH_INARGS");/*_.NTMATCH_INARGS__V40*/ curfptr[35] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4472:/ cond.else"); /*_.NTMATCH_INARGS__V40*/ curfptr[35] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4474:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4474:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[27] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:4474:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V42*/ curfptr[27])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V42*/ curfptr[27]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[27])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-genobj.melt:4474:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V42*/ curfptr[27])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V42*/ curfptr[27]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[27])->tabval[1] = (basilys_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]); ; /*_.LAMBDA___V41*/ curfptr[26] = /*_.LAMBDA___V42*/ curfptr[27];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4471:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4471:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CMINS__V16*/ curfptr[15]; BASILYS_LOCATION("warmelt-genobj.melt:4471:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[26]; /*_.MULTIPLE_EVERY_BOTH__V43*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NTMATCH_INARGS__V40*/ curfptr[35]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4486:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[12])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4486:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4486:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 9, "NTMATCH_OUTLOCS");/*_.NTMATCH_OUTLOCS__V44*/ curfptr[43] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4486:/ cond.else"); /*_.NTMATCH_OUTLOCS__V44*/ curfptr[43] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4488:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4488:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V46*/ curfptr[45] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:4488:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V46*/ curfptr[45])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V46*/ curfptr[45]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V46*/ curfptr[45])->tabval[0] = (basilys_ptr_t)(/*_.GCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-genobj.melt:4488:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V46*/ curfptr[45])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V46*/ curfptr[45]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V46*/ curfptr[45])->tabval[1] = (basilys_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]); ; /*_.LAMBDA___V45*/ curfptr[44] = /*_.LAMBDA___V46*/ curfptr[45];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4485:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4485:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CMOUTS__V18*/ curfptr[17]; BASILYS_LOCATION("warmelt-genobj.melt:4485:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V45*/ curfptr[44]; /*_.MULTIPLE_EVERY_BOTH__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NTMATCH_OUTLOCS__V44*/ curfptr[43]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4498:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4498:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4498:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4498:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher substmap"; BASILYS_LOCATION("warmelt-genobj.melt:4498:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:4498:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4498:/ apply.arg"); argtab[3].bp_long = 4498; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4498:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4498:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4498:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4502:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4502:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V52*/ curfptr[51] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V52*/ curfptr[51])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V52*/ curfptr[51]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V52*/ curfptr[51])->tabval[0] = (basilys_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]); ; BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V52*/ curfptr[51])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V52*/ curfptr[51]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V52*/ curfptr[51])->tabval[1] = (basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]); ; /*_.EXPANDER__V51*/ curfptr[50] = /*_.LAMBDA___V52*/ curfptr[51];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4521:/ apply"); /*apply*/{ /*_.EXPTEST__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.EXPANDER__V51*/ curfptr[50]), (basilys_ptr_t)(/*_.CMEXPTEST__V20*/ curfptr[19]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4522:/ apply"); /*apply*/{ /*_.EXPFILL__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)(/*_.EXPANDER__V51*/ curfptr[50]), (basilys_ptr_t)(/*_.CMEXPFILL__V21*/ curfptr[20]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4523:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4523:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4523:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 1, "MCX_LOC");/*_.MLOC__V55*/ curfptr[54] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4523:/ cond.else"); /*_.MLOC__V55*/ curfptr[54] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4524:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4524:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[29])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V57*/ curfptr[56] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4524:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), ((/*!CTYPE_LONG*/ curfrout->tabval[30])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:4524:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.EXPTEST__V53*/ curfptr[52]), "OBX_CONT"); ; BASILYS_LOCATION("warmelt-genobj.melt:4524:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.MLOC__V55*/ curfptr[54]), "OBCX_LOC"); ; /*_.TESTCHUNK__V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4528:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4528:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[29])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V59*/ curfptr[58] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4528:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), ((/*!CTYPE_VOID*/ curfrout->tabval[31])), "OBV_TYPE"); ; BASILYS_LOCATION("warmelt-genobj.melt:4528:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.EXPFILL__V54*/ curfptr[53]), "OBX_CONT"); ; BASILYS_LOCATION("warmelt-genobj.melt:4528:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.MLOC__V55*/ curfptr[54]), "OBCX_LOC"); ; /*_.FILLCHUNK__V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4533:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4533:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4533:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4533:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher exptest"; BASILYS_LOCATION("warmelt-genobj.melt:4533:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:4533:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4533:/ apply.arg"); argtab[3].bp_long = 4533; /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.EXPTEST__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4533:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4533:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4533:/ cppif.else"); /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4534:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4534:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4534:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4534:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher expfill"; BASILYS_LOCATION("warmelt-genobj.melt:4534:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10]; BASILYS_LOCATION("warmelt-genobj.melt:4534:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4534:/ apply.arg"); argtab[3].bp_long = 4534; /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.EXPFILL__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V62*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4534:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4534:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4534:/ cppif.else"); /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ block"); /*block*/{ /*_.OTHENLIST__V65*/ curfptr[64] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[32]))));; BASILYS_LOCATION("warmelt-genobj.melt:4537:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4537:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[33])), (3), "CLASS_OBJBLOCK");/*_.INST__V67*/ curfptr[66] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4537:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[66]), (0), (/*_.MLOC__V55*/ curfptr[54]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4537:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[66]), (1), (/*_.OTHENLIST__V65*/ curfptr[64]), "OBLO_BODYL"); ; /*_.OTHENBODY__V66*/ curfptr[65] = /*_.INST__V67*/ curfptr[66];;} ; /*_.OELSELIST__V68*/ curfptr[67] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[32]))));; BASILYS_LOCATION("warmelt-genobj.melt:4542:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4542:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[33])), (3), "CLASS_OBJBLOCK");/*_.INST__V70*/ curfptr[69] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4542:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[69]), (0), (/*_.MLOC__V55*/ curfptr[54]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4542:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[69]), (1), (/*_.OELSELIST__V68*/ curfptr[67]), "OBLO_BODYL"); ; /*_.OELSEBODY__V69*/ curfptr[68] = /*_.INST__V70*/ curfptr[69];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4546:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4546:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[34])), (4), "CLASS_OBJCOND");/*_.INST__V72*/ curfptr[71] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4546:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71]))));basilys_putfield_object((/*_.INST__V72*/ curfptr[71]), (0), (/*_.MLOC__V55*/ curfptr[54]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4546:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71]))));basilys_putfield_object((/*_.INST__V72*/ curfptr[71]), (1), (/*_.TESTCHUNK__V56*/ curfptr[55]), "OBCOND_TEST"); ; BASILYS_LOCATION("warmelt-genobj.melt:4546:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71]))));basilys_putfield_object((/*_.INST__V72*/ curfptr[71]), (2), (/*_.OTHENBODY__V66*/ curfptr[65]), "OBCOND_THEN"); ; BASILYS_LOCATION("warmelt-genobj.melt:4546:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V72*/ curfptr[71]))));basilys_putfield_object((/*_.INST__V72*/ curfptr[71]), (3), (/*_.OELSEBODY__V69*/ curfptr[68]), "OBCOND_ELSE"); ; /*_.OCOND__V71*/ curfptr[70] = /*_.INST__V72*/ curfptr[71];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.OLIST__V30*/ curfptr[25]), (basilys_ptr_t)(/*_.OCOND__V71*/ curfptr[70])); /*citerblock FOREACH_IN_MULTIPLE*/ { long cit1__EACHTUP_ln = basilys_multiple_length((basilys_ptr_t)/*_.CMOUTS__V18*/ curfptr[17]); int cit1__EACHTUP_ix = 0; for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ++) { /*_.CUROUT__V73*/ curfptr[72] = basilys_multiple_nth((basilys_ptr_t)(/*_.CMOUTS__V18*/ curfptr[17]), cit1__EACHTUP_ix); /*_#OUTIX__L17*/ curfnum[10] = cit1__EACHTUP_ix; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4557:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4557:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4557:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4557:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher curout"; BASILYS_LOCATION("warmelt-genobj.melt:4557:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17]; BASILYS_LOCATION("warmelt-genobj.melt:4557:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4557:/ apply.arg"); argtab[3].bp_long = 4557; /*_.DEBUG_MSG_FUN__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUROUT__V73*/ curfptr[72]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V74*/ curfptr[73] = /*_.DEBUG_MSG_FUN__V75*/ curfptr[74];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4557:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4557:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4557:/ cppif.else"); /*_.IFCPP___V74*/ curfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4558:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4558:/ block"); /*block*/{ /*_#IS_A__L19*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUROUT__V73*/ curfptr[72]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[35])));; BASILYS_LOCATION("warmelt-genobj.melt:4558:/ cond"); /*cond*/ if (/*_#IS_A__L19*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4558:/ cond.then"); /*_.IFELSE___V77*/ curfptr[76] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4558:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4558:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4558)?(4558):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V77*/ curfptr[76] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V76*/ curfptr[74] = /*_.IFELSE___V77*/ curfptr[76];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4558:/ clear"); /*clear*/ /*_#IS_A__L19*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4558:/ clear"); /*clear*/ /*_.IFELSE___V77*/ curfptr[76] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4558:/ cppif.else"); /*_.IFCPP___V76*/ curfptr[74] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4559:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4561:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CUROUT__V73*/ curfptr[72]), 0, "BINDER");/*_.BINDER__V78*/ curfptr[76] = slot; }; ; /*_.LOCOUT__V79*/ curfptr[78] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]), (basilysobject_ptr_t)(/*_.BINDER__V78*/ curfptr[76])));; BASILYS_LOCATION("warmelt-genobj.melt:4562:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4562:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[36])), (2), "CLASS_OBJCLEAR");/*_.INST__V81*/ curfptr[80] = newobj; }; ; BASILYS_LOCATION("warmelt-genobj.melt:4562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V81*/ curfptr[80]))));basilys_putfield_object((/*_.INST__V81*/ curfptr[80]), (0), (/*_.MLOC__V55*/ curfptr[54]), "OBI_LOC"); ; BASILYS_LOCATION("warmelt-genobj.melt:4562:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V81*/ curfptr[80]))));basilys_putfield_object((/*_.INST__V81*/ curfptr[80]), (1), (/*_.LOCOUT__V79*/ curfptr[78]), "OCLR_VLOC"); ; /*_.OCLEAROUT__V80*/ curfptr[79] = /*_.INST__V81*/ curfptr[80];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4565:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4565:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4565:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4565:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher oclearout"; BASILYS_LOCATION("warmelt-genobj.melt:4565:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[17]; BASILYS_LOCATION("warmelt-genobj.melt:4565:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4565:/ apply.arg"); argtab[3].bp_long = 4565; /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCLEAROUT__V80*/ curfptr[79]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V82*/ curfptr[81] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[82];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4565:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4565:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4565:/ cppif.else"); /*_.IFCPP___V82*/ curfptr[81] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4566:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4566:/ block"); /*block*/{ /*_#IS_OBJECT__L21*/ curfnum[17] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOCOUT__V79*/ curfptr[78])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4566:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L21*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4566:/ cond.then"); /*_.IFELSE___V85*/ curfptr[84] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4566:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4566:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check locout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4566)?(4566):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V85*/ curfptr[84] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V84*/ curfptr[82] = /*_.IFELSE___V85*/ curfptr[84];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4566:/ clear"); /*clear*/ /*_#IS_OBJECT__L21*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4566:/ clear"); /*clear*/ /*_.IFELSE___V85*/ curfptr[84] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4566:/ cppif.else"); /*_.IFCPP___V84*/ curfptr[82] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHENLIST__V65*/ curfptr[64]), (basilys_ptr_t)(/*_.OCLEAROUT__V80*/ curfptr[79])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4559:/ clear"); /*clear*/ /*_.BINDER__V78*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4559:/ clear"); /*clear*/ /*_.LOCOUT__V79*/ curfptr[78] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4559:/ clear"); /*clear*/ /*_.OCLEAROUT__V80*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4559:/ clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4559:/ clear"); /*clear*/ /*_.IFCPP___V84*/ curfptr[82] = 0 ;} ; } /* end cit1__EACHTUP*/ /*citerepilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4554:/ clear"); /*clear*/ /*_.CUROUT__V73*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4554:/ clear"); /*clear*/ /*_#OUTIX__L17*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4554:/ clear"); /*clear*/ /*_.IFCPP___V74*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4554:/ clear"); /*clear*/ /*_.IFCPP___V76*/ curfptr[74] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHENLIST__V65*/ curfptr[64]), (basilys_ptr_t)(/*_.FILLCHUNK__V58*/ curfptr[57])); BASILYS_LOCATION("warmelt-genobj.melt:4571:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4571:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4571:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 3, "MCX_GOTOTHEN");/*_.MCX_GOTOTHEN__V86*/ curfptr[84] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4571:/ cond.else"); /*_.MCX_GOTOTHEN__V86*/ curfptr[84] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.OTHENLIST__V65*/ curfptr[64]), (basilys_ptr_t)(/*_.MCX_GOTOTHEN__V86*/ curfptr[84])); BASILYS_LOCATION("warmelt-genobj.melt:4572:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4572:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4572:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 4, "MCX_GOTOELSE");/*_.MCX_GOTOELSE__V87*/ curfptr[76] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4572:/ cond.else"); /*_.MCX_GOTOELSE__V87*/ curfptr[76] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.OELSELIST__V68*/ curfptr[67]), (basilys_ptr_t)(/*_.MCX_GOTOELSE__V87*/ curfptr[76])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4573:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4573:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4573:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4573:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher final ocond"; BASILYS_LOCATION("warmelt-genobj.melt:4573:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[17]; BASILYS_LOCATION("warmelt-genobj.melt:4573:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4573:/ apply.arg"); argtab[3].bp_long = 4573; /*_.DEBUG_MSG_FUN__V89*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OCOND__V71*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V88*/ curfptr[78] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4573:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4573:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[79] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4573:/ cppif.else"); /*_.IFCPP___V88*/ curfptr[78] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V64*/ curfptr[62] = /*_.IFCPP___V88*/ curfptr[78];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.OTHENLIST__V65*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.OTHENBODY__V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.OELSELIST__V68*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.OELSEBODY__V69*/ curfptr[68] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.OCOND__V71*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.MCX_GOTOTHEN__V86*/ curfptr[84] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.MCX_GOTOELSE__V87*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4535:/ clear"); /*clear*/ /*_.IFCPP___V88*/ curfptr[78] = 0 ;} ; /*_.LET___V50*/ curfptr[48] = /*_.LET___V64*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.EXPANDER__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.EXPTEST__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.EXPFILL__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.MLOC__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.TESTCHUNK__V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.FILLCHUNK__V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4500:/ clear"); /*clear*/ /*_.LET___V64*/ curfptr[62] = 0 ;} ; /*_.LET___V15*/ curfptr[13] = /*_.LET___V50*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.CMINS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.CMBIND__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.CMOUTS__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.CMSTATE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.CMEXPTEST__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.CMEXPFILL__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.NORMTESTER__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.SUBSTMAP__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.UNIQSTATE__V29*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.OLIST__V30*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.NTMATCH_INARGS__V40*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.LAMBDA___V41*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V43*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.NTMATCH_OUTLOCS__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.LAMBDA___V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4434:/ clear"); /*clear*/ /*_.LET___V50*/ curfptr[48] = 0 ;} ; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[13];; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4428:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4428:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILMATCHER_CMATCHER", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_137_COMPILMATCHER_CMATCHER*/ static basilys_ptr_t rout_138_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_138_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4474:/ getarg"); /*_.CURIN__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4474:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.FORMIN__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FORMIN__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4474:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4474:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4475:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4475:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4475:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4475:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher curin"; BASILYS_LOCATION("warmelt-genobj.melt:4475:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:4475:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4475:/ apply.arg"); argtab[3].bp_long = 4475; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURIN__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4475:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4475:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4475:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4476:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4476:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4476:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4476:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher formin"; BASILYS_LOCATION("warmelt-genobj.melt:4476:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:4476:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4476:/ apply.arg"); argtab[3].bp_long = 4476; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4476:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4476:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4476:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4477:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4477:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4477:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4477:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4477:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4477:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check formin"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4477)?(4477):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4477:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4477:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4477:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4478:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4478:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4478:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OIN__V10*/ curfptr[8] = basilysgc_send((basilys_ptr_t)(/*_.CURIN__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4479:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4479:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4479:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4479:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher oin"; BASILYS_LOCATION("warmelt-genobj.melt:4479:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:4479:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4479:/ apply.arg"); argtab[3].bp_long = 4479; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OIN__V10*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4479:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4479:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4479:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4481:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4481:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4481:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDER__V13*/ curfptr[11] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4481:/ cond.else"); /*_.BINDER__V13*/ curfptr[11] = NULL;; } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~SUBSTMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.BINDER__V13*/ curfptr[11]), (basilys_ptr_t)(/*_.OIN__V10*/ curfptr[8])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4478:/ clear"); /*clear*/ /*_.OIN__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4478:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4478:/ clear"); /*clear*/ /*_.BINDER__V13*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4474:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4474:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4474:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_138_LAMBDA_*/ static basilys_ptr_t rout_139_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_139_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4488:/ getarg"); /*_.CUROUT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-genobj.melt:4488:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.FORMOUT__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-genobj.melt:4488:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4488:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4489:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4489:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4489:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4489:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher curout"; BASILYS_LOCATION("warmelt-genobj.melt:4489:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:4489:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4489:/ apply.arg"); argtab[3].bp_long = 4489; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4489:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4489:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4489:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4490:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4490:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4490:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4490:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher formout"; BASILYS_LOCATION("warmelt-genobj.melt:4490:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:4490:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4490:/ apply.arg"); argtab[3].bp_long = 4490; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4490:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4490:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4490:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4491:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4491:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-genobj.melt:4491:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4491:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-genobj.melt:4491:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4491:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check formout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,(4491)?(4491):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4491:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4491:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4491:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4492:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4492:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4492:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]); /*_.OOUT__V10*/ curfptr[8] = basilysgc_send((basilys_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-genobj.melt:4493:/ cppif.then"); BASILYS_LOCATION("warmelt-genobj.melt:4493:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-genobj.melt:4493:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4493:/ apply.arg"); argtab[0].bp_cstring = "compilmatcher_cmatcher oout"; BASILYS_LOCATION("warmelt-genobj.melt:4493:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-genobj.melt:4493:/ apply.arg"); argtab[2].bp_cstring = "warmelt-genobj.melt"; BASILYS_LOCATION("warmelt-genobj.melt:4493:/ apply.arg"); argtab[3].bp_long = 4493; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OOUT__V10*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4493:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4493:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-genobj.melt:4493:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-genobj.melt:4495:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4495:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4495:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDER__V13*/ curfptr[11] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4495:/ cond.else"); /*_.BINDER__V13*/ curfptr[11] = NULL;; } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~SUBSTMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.BINDER__V13*/ curfptr[11]), (basilys_ptr_t)(/*_.OOUT__V10*/ curfptr[8])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4492:/ clear"); /*clear*/ /*_.OOUT__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4492:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4492:/ clear"); /*clear*/ /*_.BINDER__V13*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4488:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4488:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4488:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_139_LAMBDA_*/ static basilys_ptr_t rout_140_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_140_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4502:/ getarg"); /*_.TUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4502:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4505:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4505:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V4*/ curfptr[3] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2)); ; BASILYS_LOCATION("warmelt-genobj.melt:4505:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V4*/ curfptr[3])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V4*/ curfptr[3]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V4*/ curfptr[3])->tabval[0] = (basilys_ptr_t)((/*~SUBSTMAP*/ curfclos->tabval[0])); ; BASILYS_LOCATION("warmelt-genobj.melt:4505:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V4*/ curfptr[3])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V4*/ curfptr[3]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V4*/ curfptr[3])->tabval[1] = (basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])); ; /*_.LAMBDA___V3*/ curfptr[2] = /*_.LAMBDA___V4*/ curfptr[3];;} ; BASILYS_LOCATION("warmelt-genobj.melt:4503:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4503:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V3*/ curfptr[2]; /*_.MULTIPLE_MAP__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:4502:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V5*/ curfptr[4];; BASILYS_LOCATION("warmelt-genobj.melt:4502:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4502:/ clear"); /*clear*/ /*_.LAMBDA___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4502:/ clear"); /*clear*/ /*_.MULTIPLE_MAP__V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_140_LAMBDA_*/ static basilys_ptr_t rout_141_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_141_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 12 void* varptr[12]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<12; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 12; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-genobj.melt:4505:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-genobj.melt:4505:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-genobj.melt:4507:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4507:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4507:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4508:/ block"); /*block*/{ /*_.R__V5*/ curfptr[4] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)((/*~SUBSTMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t)(/*_.C__V2*/ curfptr[1])));; /*_#NULL__L2*/ curfnum[1] = ((/*_.R__V5*/ curfptr[4]) == NULL);; BASILYS_LOCATION("warmelt-genobj.melt:4509:/ cond"); /*cond*/ if (/*_#NULL__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4509:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4509:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4510:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4510:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4510:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V6*/ curfptr[5] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4510:/ cond.else"); /*_.MCX_LOC__V6*/ curfptr[5] = NULL;; } ; BASILYS_LOCATION("warmelt-genobj.melt:4511:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4511:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4511:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ curfptr[6] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4511:/ cond.else"); /*_.NAMED_NAME__V7*/ curfptr[6] = NULL;; } ; basilys_error_str((basilys_ptr_t)(/*_.MCX_LOC__V6*/ curfptr[5]), ( "invalid symbol to expand for cmatcher"), (basilys_ptr_t)(/*_.NAMED_NAME__V7*/ curfptr[6])); /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4509:/ clear"); /*clear*/ /*_.MCX_LOC__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4509:/ clear"); /*clear*/ /*_.NAMED_NAME__V7*/ curfptr[6] = 0 ;} ; } /*noelse*/ ; /*_.LET___V4*/ curfptr[3] = /*_.R__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4508:/ clear"); /*clear*/ /*_.R__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4508:/ clear"); /*clear*/ /*_#NULL__L2*/ curfnum[1] = 0 ;} ; /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4507:/ clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4507:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4507:/ block"); /*block*/{ /*_#IS_OBJECT__L3*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.C__V2*/ curfptr[1])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-genobj.melt:4513:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4513:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4513:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4514:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4514:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4514:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V9*/ curfptr[6] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4514:/ cond.else"); /*_.MCX_LOC__V9*/ curfptr[6] = NULL;; } ; /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.MCX_LOC__V9*/ curfptr[6]), ( "invalid object to expand for cmatcher"), (basilys_ptr_t)0); /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4513:/ clear"); /*clear*/ /*_.MCX_LOC__V9*/ curfptr[6] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4513:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4513:/ block"); /*block*/{ /*_#IS_STRING__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.C__V2*/ curfptr[1])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-genobj.melt:4516:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4516:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4516:/ block"); /*block*/{ /*_.MAKE_STRING__V11*/ curfptr[3] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[3])), basilys_string_str((basilys_ptr_t)(/*_.C__V2*/ curfptr[1]))));; /*_.IFELSE___V10*/ curfptr[4] = /*_.MAKE_STRING__V11*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4516:/ clear"); /*clear*/ /*_.MAKE_STRING__V11*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4516:/ cond.else"); BASILYS_LOCATION("warmelt-genobj.melt:4516:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4519:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ { BASILYS_LOCATION("warmelt-genobj.melt:4519:/ cond.then"); BASILYS_LOCATION("warmelt-genobj.melt:4519:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V12*/ curfptr[6] = slot; }; ; } else {BASILYS_LOCATION("warmelt-genobj.melt:4519:/ cond.else"); /*_.MCX_LOC__V12*/ curfptr[6] = NULL;; } ; basilys_error_str((basilys_ptr_t)(/*_.MCX_LOC__V12*/ curfptr[6]), ( "invalid stuff to expand for cmatcher"), (basilys_ptr_t)0); BASILYS_LOCATION("warmelt-genobj.melt:4518:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4516:/ clear"); /*clear*/ /*_.MCX_LOC__V12*/ curfptr[6] = 0 ;} ; } ; /*_.IFELSE___V8*/ curfptr[5] = /*_.IFELSE___V10*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4513:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4513:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[4] = 0 ;} ; } ; /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V8*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4507:/ clear"); /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4507:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:4505:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-genobj.melt:4505:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-genobj.melt:4505:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-genobj.melt:4505:/ clear"); /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_141_LAMBDA_*/ typedef struct frame_start_module_basilys_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *noinitialclos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 1490 void* varptr[1490]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } initial_frame_st; static void initialize_module_cdata(initial_frame_st *iniframp__, char predefinited[]) { #define curfram__ (*iniframp__) struct cdata_st { struct BASILYS_OBJECT_STRUCT(3) dsym_1__CLASS_OBJVALUE; struct BASILYS_STRING_STRUCT(14) dstr_2__CLASS_OBJVALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_3__CLASS_OBJCODE; struct BASILYS_STRING_STRUCT(13) dstr_4__CLASS_OBJCODE; struct BASILYS_OBJECT_STRUCT(9) dobj_5__CLASS_OBJVALUE; struct BASILYS_STRING_STRUCT(14) dstr_6__CLASS_OBJVALUE; struct BASILYS_MULTIPLE_STRUCT(2) dtup_7__CLASS_OBJVALUE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_8__CLASS_OBJVALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_9__OBV_TYPE; struct BASILYS_STRING_STRUCT(8) dstr_10__OBV_TYPE; struct BASILYS_OBJECT_STRUCT(4) dobj_11__OBV_TYPE; struct BASILYS_STRING_STRUCT(8) dstr_12__OBV_TYPE; struct BASILYS_OBJECT_STRUCT(3) dsym_13__CLASS_OBJPUREVALUE; struct BASILYS_STRING_STRUCT(18) dstr_14__CLASS_OBJPUREVAL; struct BASILYS_OBJECT_STRUCT(9) dobj_15__CLASS_OBJPUREVALUE; struct BASILYS_STRING_STRUCT(18) dstr_16__CLASS_OBJPUREVAL; struct BASILYS_MULTIPLE_STRUCT(3) dtup_17__CLASS_OBJPUREVALUE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_18__CLASS_OBJPUREVALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_19__CLASS_OBJLOCV; struct BASILYS_STRING_STRUCT(13) dstr_20__CLASS_OBJLOCV; struct BASILYS_OBJECT_STRUCT(9) dobj_21__CLASS_OBJLOCV; struct BASILYS_STRING_STRUCT(13) dstr_22__CLASS_OBJLOCV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_23__CLASS_OBJLOCV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_24__CLASS_OBJLOCV; struct BASILYS_OBJECT_STRUCT(3) dsym_25__OBL_OFF; struct BASILYS_STRING_STRUCT(7) dstr_26__OBL_OFF; struct BASILYS_OBJECT_STRUCT(4) dobj_27__OBL_OFF; struct BASILYS_STRING_STRUCT(7) dstr_28__OBL_OFF; struct BASILYS_OBJECT_STRUCT(3) dsym_29__OBL_PROC; struct BASILYS_STRING_STRUCT(8) dstr_30__OBL_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_31__OBL_PROC; struct BASILYS_STRING_STRUCT(8) dstr_32__OBL_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_33__OBL_CNAME; struct BASILYS_STRING_STRUCT(9) dstr_34__OBL_CNAME; struct BASILYS_OBJECT_STRUCT(4) dobj_35__OBL_CNAME; struct BASILYS_STRING_STRUCT(9) dstr_36__OBL_CNAME; struct BASILYS_OBJECT_STRUCT(3) dsym_37__CLASS_OBJCLOCCV; struct BASILYS_STRING_STRUCT(15) dstr_38__CLASS_OBJCLOCCV; struct BASILYS_OBJECT_STRUCT(9) dobj_39__CLASS_OBJCLOCCV; struct BASILYS_STRING_STRUCT(15) dstr_40__CLASS_OBJCLOCCV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_41__CLASS_OBJCLOCCV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_42__CLASS_OBJCLOCCV; struct BASILYS_OBJECT_STRUCT(3) dsym_43__OBC_OFF; struct BASILYS_STRING_STRUCT(7) dstr_44__OBC_OFF; struct BASILYS_OBJECT_STRUCT(4) dobj_45__OBC_OFF; struct BASILYS_STRING_STRUCT(7) dstr_46__OBC_OFF; struct BASILYS_OBJECT_STRUCT(3) dsym_47__OBC_PROC; struct BASILYS_STRING_STRUCT(8) dstr_48__OBC_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_49__OBC_PROC; struct BASILYS_STRING_STRUCT(8) dstr_50__OBC_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_51__OBC_NAME; struct BASILYS_STRING_STRUCT(8) dstr_52__OBC_NAME; struct BASILYS_OBJECT_STRUCT(4) dobj_53__OBC_NAME; struct BASILYS_STRING_STRUCT(8) dstr_54__OBC_NAME; struct BASILYS_OBJECT_STRUCT(3) dsym_55__CLASS_OBJCONSTV; struct BASILYS_STRING_STRUCT(15) dstr_56__CLASS_OBJCONSTV; struct BASILYS_OBJECT_STRUCT(9) dobj_57__CLASS_OBJCONSTV; struct BASILYS_STRING_STRUCT(15) dstr_58__CLASS_OBJCONSTV; struct BASILYS_MULTIPLE_STRUCT(5) dtup_59__CLASS_OBJCONSTV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_60__CLASS_OBJCONSTV; struct BASILYS_OBJECT_STRUCT(3) dsym_61__CLASS_OBJPREDEF; struct BASILYS_STRING_STRUCT(15) dstr_62__CLASS_OBJPREDEF; struct BASILYS_OBJECT_STRUCT(9) dobj_63__CLASS_OBJPREDEF; struct BASILYS_STRING_STRUCT(15) dstr_64__CLASS_OBJPREDEF; struct BASILYS_MULTIPLE_STRUCT(4) dtup_65__CLASS_OBJPREDEF; struct BASILYS_MULTIPLE_STRUCT(2) dtup_66__CLASS_OBJPREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_67__OBPREDEF; struct BASILYS_STRING_STRUCT(8) dstr_68__OBPREDEF; struct BASILYS_OBJECT_STRUCT(4) dobj_69__OBPREDEF; struct BASILYS_STRING_STRUCT(8) dstr_70__OBPREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_71__CLASS_OBJNIL; struct BASILYS_STRING_STRUCT(12) dstr_72__CLASS_OBJNIL; struct BASILYS_OBJECT_STRUCT(9) dobj_73__CLASS_OBJNIL; struct BASILYS_STRING_STRUCT(12) dstr_74__CLASS_OBJNIL; struct BASILYS_MULTIPLE_STRUCT(4) dtup_75__CLASS_OBJNIL; struct BASILYS_MULTIPLE_STRUCT(1) dtup_76__CLASS_OBJNIL; struct BASILYS_OBJECT_STRUCT(3) dsym_77__CLASS_OBJINITELEM; struct BASILYS_STRING_STRUCT(17) dstr_78__CLASS_OBJINITELE; struct BASILYS_OBJECT_STRUCT(9) dobj_79__CLASS_OBJINITELEM; struct BASILYS_STRING_STRUCT(17) dstr_80__CLASS_OBJINITELE; struct BASILYS_MULTIPLE_STRUCT(4) dtup_81__CLASS_OBJINITELEM; struct BASILYS_MULTIPLE_STRUCT(5) dtup_82__CLASS_OBJINITELEM; struct BASILYS_OBJECT_STRUCT(3) dsym_83__OIE_CNAME; struct BASILYS_STRING_STRUCT(9) dstr_84__OIE_CNAME; struct BASILYS_OBJECT_STRUCT(4) dobj_85__OIE_CNAME; struct BASILYS_STRING_STRUCT(9) dstr_86__OIE_CNAME; struct BASILYS_OBJECT_STRUCT(3) dsym_87__OIE_DATA; struct BASILYS_STRING_STRUCT(8) dstr_88__OIE_DATA; struct BASILYS_OBJECT_STRUCT(4) dobj_89__OIE_DATA; struct BASILYS_STRING_STRUCT(8) dstr_90__OIE_DATA; struct BASILYS_OBJECT_STRUCT(3) dsym_91__OIE_DISCR; struct BASILYS_STRING_STRUCT(9) dstr_92__OIE_DISCR; struct BASILYS_OBJECT_STRUCT(4) dobj_93__OIE_DISCR; struct BASILYS_STRING_STRUCT(9) dstr_94__OIE_DISCR; struct BASILYS_OBJECT_STRUCT(3) dsym_95__OIE_LOCVAR; struct BASILYS_STRING_STRUCT(10) dstr_96__OIE_LOCVAR; struct BASILYS_OBJECT_STRUCT(4) dobj_97__OIE_LOCVAR; struct BASILYS_STRING_STRUCT(10) dstr_98__OIE_LOCVAR; struct BASILYS_OBJECT_STRUCT(3) dsym_99__CLASS_OBJINITOBJECT; struct BASILYS_STRING_STRUCT(19) dstr_100__CLASS_OBJINITOBJ; struct BASILYS_OBJECT_STRUCT(9) dobj_101__CLASS_OBJINITOBJECT; struct BASILYS_STRING_STRUCT(19) dstr_102__CLASS_OBJINITOBJ; struct BASILYS_MULTIPLE_STRUCT(5) dtup_103__CLASS_OBJINITOBJECT; struct BASILYS_MULTIPLE_STRUCT(6) dtup_104__CLASS_OBJINITOBJECT; struct BASILYS_OBJECT_STRUCT(3) dsym_105__OIO_PREDEF; struct BASILYS_STRING_STRUCT(10) dstr_106__OIO_PREDEF; struct BASILYS_OBJECT_STRUCT(4) dobj_107__OIO_PREDEF; struct BASILYS_STRING_STRUCT(10) dstr_108__OIO_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_109__CLASS_OBJINITMULTIPLE; struct BASILYS_STRING_STRUCT(21) dstr_110__CLASS_OBJINITMUL; struct BASILYS_OBJECT_STRUCT(9) dobj_111__CLASS_OBJINITMULTIPLE; struct BASILYS_STRING_STRUCT(21) dstr_112__CLASS_OBJINITMUL; struct BASILYS_MULTIPLE_STRUCT(5) dtup_113__CLASS_OBJINITMULTIPLE; struct BASILYS_MULTIPLE_STRUCT(6) dtup_114__CLASS_OBJINITMULTIPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_115__OIM_TUPVAL; struct BASILYS_STRING_STRUCT(10) dstr_116__OIM_TUPVAL; struct BASILYS_OBJECT_STRUCT(4) dobj_117__OIM_TUPVAL; struct BASILYS_STRING_STRUCT(10) dstr_118__OIM_TUPVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_119__CLASS_OBJINITCLOSURE; struct BASILYS_STRING_STRUCT(20) dstr_120__CLASS_OBJINITCLO; struct BASILYS_OBJECT_STRUCT(9) dobj_121__CLASS_OBJINITCLOSURE; struct BASILYS_STRING_STRUCT(20) dstr_122__CLASS_OBJINITCLO; struct BASILYS_MULTIPLE_STRUCT(5) dtup_123__CLASS_OBJINITCLOSURE; struct BASILYS_MULTIPLE_STRUCT(5) dtup_124__CLASS_OBJINITCLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_125__CLASS_OBJINITROUTINE; struct BASILYS_STRING_STRUCT(20) dstr_126__CLASS_OBJINITROU; struct BASILYS_OBJECT_STRUCT(9) dobj_127__CLASS_OBJINITROUTINE; struct BASILYS_STRING_STRUCT(20) dstr_128__CLASS_OBJINITROU; struct BASILYS_MULTIPLE_STRUCT(5) dtup_129__CLASS_OBJINITROUTINE; struct BASILYS_MULTIPLE_STRUCT(6) dtup_130__CLASS_OBJINITROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_131__OIR_PROCROUTINE; struct BASILYS_STRING_STRUCT(15) dstr_132__OIR_PROCROUTINE; struct BASILYS_OBJECT_STRUCT(4) dobj_133__OIR_PROCROUTINE; struct BASILYS_STRING_STRUCT(15) dstr_134__OIR_PROCROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_135__CLASS_OBJINITSTRING; struct BASILYS_STRING_STRUCT(19) dstr_136__CLASS_OBJINITSTR; struct BASILYS_OBJECT_STRUCT(9) dobj_137__CLASS_OBJINITSTRING; struct BASILYS_STRING_STRUCT(19) dstr_138__CLASS_OBJINITSTR; struct BASILYS_MULTIPLE_STRUCT(5) dtup_139__CLASS_OBJINITSTRING; struct BASILYS_MULTIPLE_STRUCT(5) dtup_140__CLASS_OBJINITSTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_141__CLASS_OBJEXPV; struct BASILYS_STRING_STRUCT(13) dstr_142__CLASS_OBJEXPV; struct BASILYS_OBJECT_STRUCT(9) dobj_143__CLASS_OBJEXPV; struct BASILYS_STRING_STRUCT(13) dstr_144__CLASS_OBJEXPV; struct BASILYS_MULTIPLE_STRUCT(3) dtup_145__CLASS_OBJEXPV; struct BASILYS_MULTIPLE_STRUCT(2) dtup_146__CLASS_OBJEXPV; struct BASILYS_OBJECT_STRUCT(3) dsym_147__OBX_CONT; struct BASILYS_STRING_STRUCT(8) dstr_148__OBX_CONT; struct BASILYS_OBJECT_STRUCT(4) dobj_149__OBX_CONT; struct BASILYS_STRING_STRUCT(8) dstr_150__OBX_CONT; struct BASILYS_OBJECT_STRUCT(3) dsym_151__CLASS_OBJLOCATEDEXPV; struct BASILYS_STRING_STRUCT(20) dstr_152__CLASS_OBJLOCATED; struct BASILYS_OBJECT_STRUCT(9) dobj_153__CLASS_OBJLOCATEDEXPV; struct BASILYS_STRING_STRUCT(20) dstr_154__CLASS_OBJLOCATED; struct BASILYS_MULTIPLE_STRUCT(4) dtup_155__CLASS_OBJLOCATEDEXPV; struct BASILYS_MULTIPLE_STRUCT(3) dtup_156__CLASS_OBJLOCATEDEXPV; struct BASILYS_OBJECT_STRUCT(3) dsym_157__OBCX_LOC; struct BASILYS_STRING_STRUCT(8) dstr_158__OBCX_LOC; struct BASILYS_OBJECT_STRUCT(4) dobj_159__OBCX_LOC; struct BASILYS_STRING_STRUCT(8) dstr_160__OBCX_LOC; struct BASILYS_OBJECT_STRUCT(3) dsym_161__CLASS_OBJINSTR; struct BASILYS_STRING_STRUCT(14) dstr_162__CLASS_OBJINSTR; struct BASILYS_OBJECT_STRUCT(9) dobj_163__CLASS_OBJINSTR; struct BASILYS_STRING_STRUCT(14) dstr_164__CLASS_OBJINSTR; struct BASILYS_MULTIPLE_STRUCT(2) dtup_165__CLASS_OBJINSTR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_166__CLASS_OBJINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_167__OBI_LOC; struct BASILYS_STRING_STRUCT(7) dstr_168__OBI_LOC; struct BASILYS_OBJECT_STRUCT(4) dobj_169__OBI_LOC; struct BASILYS_STRING_STRUCT(7) dstr_170__OBI_LOC; struct BASILYS_OBJECT_STRUCT(3) dsym_171__CLASS_OBJCOMMENTINSTR; struct BASILYS_STRING_STRUCT(21) dstr_172__CLASS_OBJCOMMENT; struct BASILYS_OBJECT_STRUCT(9) dobj_173__CLASS_OBJCOMMENTINSTR; struct BASILYS_STRING_STRUCT(21) dstr_174__CLASS_OBJCOMMENT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_175__CLASS_OBJCOMMENTINSTR; struct BASILYS_MULTIPLE_STRUCT(2) dtup_176__CLASS_OBJCOMMENTINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_177__OBCI_COMMENT; struct BASILYS_STRING_STRUCT(12) dstr_178__OBCI_COMMENT; struct BASILYS_OBJECT_STRUCT(4) dobj_179__OBCI_COMMENT; struct BASILYS_STRING_STRUCT(12) dstr_180__OBCI_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_181__CLASS_OBJDESTINSTR; struct BASILYS_STRING_STRUCT(18) dstr_182__CLASS_OBJDESTINS; struct BASILYS_OBJECT_STRUCT(9) dobj_183__CLASS_OBJDESTINSTR; struct BASILYS_STRING_STRUCT(18) dstr_184__CLASS_OBJDESTINS; struct BASILYS_MULTIPLE_STRUCT(3) dtup_185__CLASS_OBJDESTINSTR; struct BASILYS_MULTIPLE_STRUCT(2) dtup_186__CLASS_OBJDESTINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_187__OBDI_DESTLIST; struct BASILYS_STRING_STRUCT(13) dstr_188__OBDI_DESTLIST; struct BASILYS_OBJECT_STRUCT(4) dobj_189__OBDI_DESTLIST; struct BASILYS_STRING_STRUCT(13) dstr_190__OBDI_DESTLIST; struct BASILYS_OBJECT_STRUCT(3) dsym_191__CLASS_OBJCOMPUTE; struct BASILYS_STRING_STRUCT(16) dstr_192__CLASS_OBJCOMPUTE; struct BASILYS_OBJECT_STRUCT(9) dobj_193__CLASS_OBJCOMPUTE; struct BASILYS_STRING_STRUCT(16) dstr_194__CLASS_OBJCOMPUTE; struct BASILYS_MULTIPLE_STRUCT(4) dtup_195__CLASS_OBJCOMPUTE; struct BASILYS_MULTIPLE_STRUCT(3) dtup_196__CLASS_OBJCOMPUTE; struct BASILYS_OBJECT_STRUCT(3) dsym_197__OBCPT_EXPR; struct BASILYS_STRING_STRUCT(10) dstr_198__OBCPT_EXPR; struct BASILYS_OBJECT_STRUCT(4) dobj_199__OBCPT_EXPR; struct BASILYS_STRING_STRUCT(10) dstr_200__OBCPT_EXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_201__CLASS_OBJGETARG; struct BASILYS_STRING_STRUCT(15) dstr_202__CLASS_OBJGETARG; struct BASILYS_OBJECT_STRUCT(9) dobj_203__CLASS_OBJGETARG; struct BASILYS_STRING_STRUCT(15) dstr_204__CLASS_OBJGETARG; struct BASILYS_MULTIPLE_STRUCT(3) dtup_205__CLASS_OBJGETARG; struct BASILYS_MULTIPLE_STRUCT(3) dtup_206__CLASS_OBJGETARG; struct BASILYS_OBJECT_STRUCT(3) dsym_207__OBARG_OBLOC; struct BASILYS_STRING_STRUCT(11) dstr_208__OBARG_OBLOC; struct BASILYS_OBJECT_STRUCT(4) dobj_209__OBARG_OBLOC; struct BASILYS_STRING_STRUCT(11) dstr_210__OBARG_OBLOC; struct BASILYS_OBJECT_STRUCT(3) dsym_211__OBARG_BIND; struct BASILYS_STRING_STRUCT(10) dstr_212__OBARG_BIND; struct BASILYS_OBJECT_STRUCT(4) dobj_213__OBARG_BIND; struct BASILYS_STRING_STRUCT(10) dstr_214__OBARG_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_215__CLASS_OBJPUTXTRARESULT; struct BASILYS_STRING_STRUCT(22) dstr_216__CLASS_OBJPUTXTRA; struct BASILYS_OBJECT_STRUCT(9) dobj_217__CLASS_OBJPUTXTRARESULT; struct BASILYS_STRING_STRUCT(22) dstr_218__CLASS_OBJPUTXTRA; struct BASILYS_MULTIPLE_STRUCT(3) dtup_219__CLASS_OBJPUTXTRARESULT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_220__CLASS_OBJPUTXTRARESULT; struct BASILYS_OBJECT_STRUCT(3) dsym_221__OBXRES_RANK; struct BASILYS_STRING_STRUCT(11) dstr_222__OBXRES_RANK; struct BASILYS_OBJECT_STRUCT(4) dobj_223__OBXRES_RANK; struct BASILYS_STRING_STRUCT(11) dstr_224__OBXRES_RANK; struct BASILYS_OBJECT_STRUCT(3) dsym_225__OBXRES_OBLOC; struct BASILYS_STRING_STRUCT(12) dstr_226__OBXRES_OBLOC; struct BASILYS_OBJECT_STRUCT(4) dobj_227__OBXRES_OBLOC; struct BASILYS_STRING_STRUCT(12) dstr_228__OBXRES_OBLOC; struct BASILYS_OBJECT_STRUCT(3) dsym_229__CLASS_OBJFINALRETURN; struct BASILYS_STRING_STRUCT(20) dstr_230__CLASS_OBJFINALRE; struct BASILYS_OBJECT_STRUCT(9) dobj_231__CLASS_OBJFINALRETURN; struct BASILYS_STRING_STRUCT(20) dstr_232__CLASS_OBJFINALRE; struct BASILYS_MULTIPLE_STRUCT(3) dtup_233__CLASS_OBJFINALRETURN; struct BASILYS_MULTIPLE_STRUCT(1) dtup_234__CLASS_OBJFINALRETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_235__CLASS_OBJCLEAR; struct BASILYS_STRING_STRUCT(14) dstr_236__CLASS_OBJCLEAR; struct BASILYS_OBJECT_STRUCT(9) dobj_237__CLASS_OBJCLEAR; struct BASILYS_STRING_STRUCT(14) dstr_238__CLASS_OBJCLEAR; struct BASILYS_MULTIPLE_STRUCT(3) dtup_239__CLASS_OBJCLEAR; struct BASILYS_MULTIPLE_STRUCT(2) dtup_240__CLASS_OBJCLEAR; struct BASILYS_OBJECT_STRUCT(3) dsym_241__OCLR_VLOC; struct BASILYS_STRING_STRUCT(9) dstr_242__OCLR_VLOC; struct BASILYS_OBJECT_STRUCT(4) dobj_243__OCLR_VLOC; struct BASILYS_STRING_STRUCT(9) dstr_244__OCLR_VLOC; struct BASILYS_OBJECT_STRUCT(3) dsym_245__CLASS_OBJBLOCK; struct BASILYS_STRING_STRUCT(14) dstr_246__CLASS_OBJBLOCK; struct BASILYS_OBJECT_STRUCT(9) dobj_247__CLASS_OBJBLOCK; struct BASILYS_STRING_STRUCT(14) dstr_248__CLASS_OBJBLOCK; struct BASILYS_MULTIPLE_STRUCT(3) dtup_249__CLASS_OBJBLOCK; struct BASILYS_MULTIPLE_STRUCT(3) dtup_250__CLASS_OBJBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_251__OBLO_BODYL; struct BASILYS_STRING_STRUCT(10) dstr_252__OBLO_BODYL; struct BASILYS_OBJECT_STRUCT(4) dobj_253__OBLO_BODYL; struct BASILYS_STRING_STRUCT(10) dstr_254__OBLO_BODYL; struct BASILYS_OBJECT_STRUCT(3) dsym_255__OBLO_EPIL; struct BASILYS_STRING_STRUCT(9) dstr_256__OBLO_EPIL; struct BASILYS_OBJECT_STRUCT(4) dobj_257__OBLO_EPIL; struct BASILYS_STRING_STRUCT(9) dstr_258__OBLO_EPIL; struct BASILYS_OBJECT_STRUCT(3) dsym_259__CLASS_OBJCOMMENTEDBLOCK; struct BASILYS_STRING_STRUCT(23) dstr_260__CLASS_OBJCOMMENT; struct BASILYS_OBJECT_STRUCT(9) dobj_261__CLASS_OBJCOMMENTEDBLOCK; struct BASILYS_STRING_STRUCT(23) dstr_262__CLASS_OBJCOMMENT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_263__CLASS_OBJCOMMENTEDBLOCK; struct BASILYS_MULTIPLE_STRUCT(4) dtup_264__CLASS_OBJCOMMENTEDBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_265__OCOMBLO_COMMENT; struct BASILYS_STRING_STRUCT(15) dstr_266__OCOMBLO_COMMENT; struct BASILYS_OBJECT_STRUCT(4) dobj_267__OCOMBLO_COMMENT; struct BASILYS_STRING_STRUCT(15) dstr_268__OCOMBLO_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_269__CLASS_OBJMULTIBLOCK; struct BASILYS_STRING_STRUCT(19) dstr_270__CLASS_OBJMULTIBL; struct BASILYS_OBJECT_STRUCT(9) dobj_271__CLASS_OBJMULTIBLOCK; struct BASILYS_STRING_STRUCT(19) dstr_272__CLASS_OBJMULTIBL; struct BASILYS_MULTIPLE_STRUCT(4) dtup_273__CLASS_OBJMULTIBLOCK; struct BASILYS_MULTIPLE_STRUCT(4) dtup_274__CLASS_OBJMULTIBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_275__OMULBLO_SUBCOMP; struct BASILYS_STRING_STRUCT(15) dstr_276__OMULBLO_SUBCOMP; struct BASILYS_OBJECT_STRUCT(4) dobj_277__OMULBLO_SUBCOMP; struct BASILYS_STRING_STRUCT(15) dstr_278__OMULBLO_SUBCOMP; struct BASILYS_OBJECT_STRUCT(3) dsym_279__CLASS_OBJLABELINSTR; struct BASILYS_STRING_STRUCT(19) dstr_280__CLASS_OBJLABELIN; struct BASILYS_OBJECT_STRUCT(9) dobj_281__CLASS_OBJLABELINSTR; struct BASILYS_STRING_STRUCT(19) dstr_282__CLASS_OBJLABELIN; struct BASILYS_MULTIPLE_STRUCT(3) dtup_283__CLASS_OBJLABELINSTR; struct BASILYS_MULTIPLE_STRUCT(3) dtup_284__CLASS_OBJLABELINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_285__OBLAB_PREFIX; struct BASILYS_STRING_STRUCT(12) dstr_286__OBLAB_PREFIX; struct BASILYS_OBJECT_STRUCT(4) dobj_287__OBLAB_PREFIX; struct BASILYS_STRING_STRUCT(12) dstr_288__OBLAB_PREFIX; struct BASILYS_OBJECT_STRUCT(3) dsym_289__OBLAB_RANK; struct BASILYS_STRING_STRUCT(10) dstr_290__OBLAB_RANK; struct BASILYS_OBJECT_STRUCT(4) dobj_291__OBLAB_RANK; struct BASILYS_STRING_STRUCT(10) dstr_292__OBLAB_RANK; struct BASILYS_OBJECT_STRUCT(3) dsym_293__CLASS_OBJGOTOINSTR; struct BASILYS_STRING_STRUCT(18) dstr_294__CLASS_OBJGOTOINS; struct BASILYS_OBJECT_STRUCT(9) dobj_295__CLASS_OBJGOTOINSTR; struct BASILYS_STRING_STRUCT(18) dstr_296__CLASS_OBJGOTOINS; struct BASILYS_MULTIPLE_STRUCT(3) dtup_297__CLASS_OBJGOTOINSTR; struct BASILYS_MULTIPLE_STRUCT(3) dtup_298__CLASS_OBJGOTOINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_299__OBGOTO_PREFIX; struct BASILYS_STRING_STRUCT(13) dstr_300__OBGOTO_PREFIX; struct BASILYS_OBJECT_STRUCT(4) dobj_301__OBGOTO_PREFIX; struct BASILYS_STRING_STRUCT(13) dstr_302__OBGOTO_PREFIX; struct BASILYS_OBJECT_STRUCT(3) dsym_303__OBGOTO_RANK; struct BASILYS_STRING_STRUCT(11) dstr_304__OBGOTO_RANK; struct BASILYS_OBJECT_STRUCT(4) dobj_305__OBGOTO_RANK; struct BASILYS_STRING_STRUCT(11) dstr_306__OBGOTO_RANK; struct BASILYS_OBJECT_STRUCT(3) dsym_307__CLASS_OBJLOOP; struct BASILYS_STRING_STRUCT(13) dstr_308__CLASS_OBJLOOP; struct BASILYS_OBJECT_STRUCT(9) dobj_309__CLASS_OBJLOOP; struct BASILYS_STRING_STRUCT(13) dstr_310__CLASS_OBJLOOP; struct BASILYS_MULTIPLE_STRUCT(4) dtup_311__CLASS_OBJLOOP; struct BASILYS_MULTIPLE_STRUCT(5) dtup_312__CLASS_OBJLOOP; struct BASILYS_OBJECT_STRUCT(3) dsym_313__OBLOOP_LABEL; struct BASILYS_STRING_STRUCT(12) dstr_314__OBLOOP_LABEL; struct BASILYS_OBJECT_STRUCT(4) dobj_315__OBLOOP_LABEL; struct BASILYS_STRING_STRUCT(12) dstr_316__OBLOOP_LABEL; struct BASILYS_OBJECT_STRUCT(3) dsym_317__OBLOOP_RESV; struct BASILYS_STRING_STRUCT(11) dstr_318__OBLOOP_RESV; struct BASILYS_OBJECT_STRUCT(4) dobj_319__OBLOOP_RESV; struct BASILYS_STRING_STRUCT(11) dstr_320__OBLOOP_RESV; struct BASILYS_OBJECT_STRUCT(3) dsym_321__CLASS_OBJEXIT; struct BASILYS_STRING_STRUCT(13) dstr_322__CLASS_OBJEXIT; struct BASILYS_OBJECT_STRUCT(9) dobj_323__CLASS_OBJEXIT; struct BASILYS_STRING_STRUCT(13) dstr_324__CLASS_OBJEXIT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_325__CLASS_OBJEXIT; struct BASILYS_MULTIPLE_STRUCT(2) dtup_326__CLASS_OBJEXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_327__OBEXIT_LABEL; struct BASILYS_STRING_STRUCT(12) dstr_328__OBEXIT_LABEL; struct BASILYS_OBJECT_STRUCT(4) dobj_329__OBEXIT_LABEL; struct BASILYS_STRING_STRUCT(12) dstr_330__OBEXIT_LABEL; struct BASILYS_OBJECT_STRUCT(3) dsym_331__CLASS_OBJCITERBLOCK; struct BASILYS_STRING_STRUCT(19) dstr_332__CLASS_OBJCITERBL; struct BASILYS_OBJECT_STRUCT(9) dobj_333__CLASS_OBJCITERBLOCK; struct BASILYS_STRING_STRUCT(19) dstr_334__CLASS_OBJCITERBL; struct BASILYS_MULTIPLE_STRUCT(4) dtup_335__CLASS_OBJCITERBLOCK; struct BASILYS_MULTIPLE_STRUCT(6) dtup_336__CLASS_OBJCITERBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_337__OBCITER_CITER; struct BASILYS_STRING_STRUCT(13) dstr_338__OBCITER_CITER; struct BASILYS_OBJECT_STRUCT(4) dobj_339__OBCITER_CITER; struct BASILYS_STRING_STRUCT(13) dstr_340__OBCITER_CITER; struct BASILYS_OBJECT_STRUCT(3) dsym_341__OBCITER_BEFORE; struct BASILYS_STRING_STRUCT(14) dstr_342__OBCITER_BEFORE; struct BASILYS_OBJECT_STRUCT(4) dobj_343__OBCITER_BEFORE; struct BASILYS_STRING_STRUCT(14) dstr_344__OBCITER_BEFORE; struct BASILYS_OBJECT_STRUCT(3) dsym_345__OBCITER_AFTER; struct BASILYS_STRING_STRUCT(13) dstr_346__OBCITER_AFTER; struct BASILYS_OBJECT_STRUCT(4) dobj_347__OBCITER_AFTER; struct BASILYS_STRING_STRUCT(13) dstr_348__OBCITER_AFTER; struct BASILYS_OBJECT_STRUCT(3) dsym_349__CLASS_OBJCOND; struct BASILYS_STRING_STRUCT(13) dstr_350__CLASS_OBJCOND; struct BASILYS_OBJECT_STRUCT(9) dobj_351__CLASS_OBJCOND; struct BASILYS_STRING_STRUCT(13) dstr_352__CLASS_OBJCOND; struct BASILYS_MULTIPLE_STRUCT(3) dtup_353__CLASS_OBJCOND; struct BASILYS_MULTIPLE_STRUCT(4) dtup_354__CLASS_OBJCOND; struct BASILYS_OBJECT_STRUCT(3) dsym_355__OBCOND_TEST; struct BASILYS_STRING_STRUCT(11) dstr_356__OBCOND_TEST; struct BASILYS_OBJECT_STRUCT(4) dobj_357__OBCOND_TEST; struct BASILYS_STRING_STRUCT(11) dstr_358__OBCOND_TEST; struct BASILYS_OBJECT_STRUCT(3) dsym_359__OBCOND_THEN; struct BASILYS_STRING_STRUCT(11) dstr_360__OBCOND_THEN; struct BASILYS_OBJECT_STRUCT(4) dobj_361__OBCOND_THEN; struct BASILYS_STRING_STRUCT(11) dstr_362__OBCOND_THEN; struct BASILYS_OBJECT_STRUCT(3) dsym_363__OBCOND_ELSE; struct BASILYS_STRING_STRUCT(11) dstr_364__OBCOND_ELSE; struct BASILYS_OBJECT_STRUCT(4) dobj_365__OBCOND_ELSE; struct BASILYS_STRING_STRUCT(11) dstr_366__OBCOND_ELSE; struct BASILYS_OBJECT_STRUCT(3) dsym_367__CLASS_OBJCPPIF; struct BASILYS_STRING_STRUCT(14) dstr_368__CLASS_OBJCPPIF; struct BASILYS_OBJECT_STRUCT(9) dobj_369__CLASS_OBJCPPIF; struct BASILYS_STRING_STRUCT(14) dstr_370__CLASS_OBJCPPIF; struct BASILYS_MULTIPLE_STRUCT(3) dtup_371__CLASS_OBJCPPIF; struct BASILYS_MULTIPLE_STRUCT(4) dtup_372__CLASS_OBJCPPIF; struct BASILYS_OBJECT_STRUCT(3) dsym_373__OBIFP_COND; struct BASILYS_STRING_STRUCT(10) dstr_374__OBIFP_COND; struct BASILYS_OBJECT_STRUCT(4) dobj_375__OBIFP_COND; struct BASILYS_STRING_STRUCT(10) dstr_376__OBIFP_COND; struct BASILYS_OBJECT_STRUCT(3) dsym_377__OBIFP_THEN; struct BASILYS_STRING_STRUCT(10) dstr_378__OBIFP_THEN; struct BASILYS_OBJECT_STRUCT(4) dobj_379__OBIFP_THEN; struct BASILYS_STRING_STRUCT(10) dstr_380__OBIFP_THEN; struct BASILYS_OBJECT_STRUCT(3) dsym_381__OBIFP_ELSE; struct BASILYS_STRING_STRUCT(10) dstr_382__OBIFP_ELSE; struct BASILYS_OBJECT_STRUCT(4) dobj_383__OBIFP_ELSE; struct BASILYS_STRING_STRUCT(10) dstr_384__OBIFP_ELSE; struct BASILYS_OBJECT_STRUCT(3) dsym_385__CLASS_OBJINTERNCOMMON; struct BASILYS_STRING_STRUCT(21) dstr_386__CLASS_OBJINTERNC; struct BASILYS_OBJECT_STRUCT(9) dobj_387__CLASS_OBJINTERNCOMMON; struct BASILYS_STRING_STRUCT(21) dstr_388__CLASS_OBJINTERNC; struct BASILYS_MULTIPLE_STRUCT(3) dtup_389__CLASS_OBJINTERNCOMMON; struct BASILYS_MULTIPLE_STRUCT(2) dtup_390__CLASS_OBJINTERNCOMMON; struct BASILYS_OBJECT_STRUCT(3) dsym_391__OBINTERN_IOBJ; struct BASILYS_STRING_STRUCT(13) dstr_392__OBINTERN_IOBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_393__OBINTERN_IOBJ; struct BASILYS_STRING_STRUCT(13) dstr_394__OBINTERN_IOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_395__CLASS_OBJINTERNSYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_396__CLASS_OBJINTERNS; struct BASILYS_OBJECT_STRUCT(9) dobj_397__CLASS_OBJINTERNSYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_398__CLASS_OBJINTERNS; struct BASILYS_MULTIPLE_STRUCT(4) dtup_399__CLASS_OBJINTERNSYMBOL; struct BASILYS_MULTIPLE_STRUCT(2) dtup_400__CLASS_OBJINTERNSYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_401__CLASS_OBJINTERNKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_402__CLASS_OBJINTERNK; struct BASILYS_OBJECT_STRUCT(9) dobj_403__CLASS_OBJINTERNKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_404__CLASS_OBJINTERNK; struct BASILYS_MULTIPLE_STRUCT(4) dtup_405__CLASS_OBJINTERNKEYWORD; struct BASILYS_MULTIPLE_STRUCT(2) dtup_406__CLASS_OBJINTERNKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_407__CLASS_OBJGETNAMEDCOMMON; struct BASILYS_STRING_STRUCT(23) dstr_408__CLASS_OBJGETNAME; struct BASILYS_OBJECT_STRUCT(9) dobj_409__CLASS_OBJGETNAMEDCOMMON; struct BASILYS_STRING_STRUCT(23) dstr_410__CLASS_OBJGETNAME; struct BASILYS_MULTIPLE_STRUCT(3) dtup_411__CLASS_OBJGETNAMEDCOMMON; struct BASILYS_MULTIPLE_STRUCT(2) dtup_412__CLASS_OBJGETNAMEDCOMMON; struct BASILYS_OBJECT_STRUCT(3) dsym_413__OBGNAMED_IOBJ; struct BASILYS_STRING_STRUCT(13) dstr_414__OBGNAMED_IOBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_415__OBGNAMED_IOBJ; struct BASILYS_STRING_STRUCT(13) dstr_416__OBGNAMED_IOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_417__CLASS_OBJGETNAMEDSYMBOL; struct BASILYS_STRING_STRUCT(23) dstr_418__CLASS_OBJGETNAME; struct BASILYS_OBJECT_STRUCT(9) dobj_419__CLASS_OBJGETNAMEDSYMBOL; struct BASILYS_STRING_STRUCT(23) dstr_420__CLASS_OBJGETNAME; struct BASILYS_MULTIPLE_STRUCT(4) dtup_421__CLASS_OBJGETNAMEDSYMBOL; struct BASILYS_MULTIPLE_STRUCT(2) dtup_422__CLASS_OBJGETNAMEDSYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_423__CLASS_OBJGETNAMEDKEYWORD; struct BASILYS_STRING_STRUCT(24) dstr_424__CLASS_OBJGETNAME; struct BASILYS_OBJECT_STRUCT(9) dobj_425__CLASS_OBJGETNAMEDKEYWORD; struct BASILYS_STRING_STRUCT(24) dstr_426__CLASS_OBJGETNAME; struct BASILYS_MULTIPLE_STRUCT(4) dtup_427__CLASS_OBJGETNAMEDKEYWORD; struct BASILYS_MULTIPLE_STRUCT(2) dtup_428__CLASS_OBJGETNAMEDKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_429__CLASS_OBJAPPLY; struct BASILYS_STRING_STRUCT(14) dstr_430__CLASS_OBJAPPLY; struct BASILYS_OBJECT_STRUCT(9) dobj_431__CLASS_OBJAPPLY; struct BASILYS_STRING_STRUCT(14) dstr_432__CLASS_OBJAPPLY; struct BASILYS_MULTIPLE_STRUCT(4) dtup_433__CLASS_OBJAPPLY; struct BASILYS_MULTIPLE_STRUCT(4) dtup_434__CLASS_OBJAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_435__OBAPP_CLOS; struct BASILYS_STRING_STRUCT(10) dstr_436__OBAPP_CLOS; struct BASILYS_OBJECT_STRUCT(4) dobj_437__OBAPP_CLOS; struct BASILYS_STRING_STRUCT(10) dstr_438__OBAPP_CLOS; struct BASILYS_OBJECT_STRUCT(3) dsym_439__OBAPP_ARGS; struct BASILYS_STRING_STRUCT(10) dstr_440__OBAPP_ARGS; struct BASILYS_OBJECT_STRUCT(4) dobj_441__OBAPP_ARGS; struct BASILYS_STRING_STRUCT(10) dstr_442__OBAPP_ARGS; struct BASILYS_OBJECT_STRUCT(3) dsym_443__CLASS_OBJMULTIAPPLY; struct BASILYS_STRING_STRUCT(19) dstr_444__CLASS_OBJMULTIAP; struct BASILYS_OBJECT_STRUCT(9) dobj_445__CLASS_OBJMULTIAPPLY; struct BASILYS_STRING_STRUCT(19) dstr_446__CLASS_OBJMULTIAP; struct BASILYS_MULTIPLE_STRUCT(5) dtup_447__CLASS_OBJMULTIAPPLY; struct BASILYS_MULTIPLE_STRUCT(5) dtup_448__CLASS_OBJMULTIAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_449__OBMULTAPP_XRES; struct BASILYS_STRING_STRUCT(14) dstr_450__OBMULTAPP_XRES; struct BASILYS_OBJECT_STRUCT(4) dobj_451__OBMULTAPP_XRES; struct BASILYS_STRING_STRUCT(14) dstr_452__OBMULTAPP_XRES; struct BASILYS_OBJECT_STRUCT(3) dsym_453__CLASS_OBJMSEND; struct BASILYS_STRING_STRUCT(14) dstr_454__CLASS_OBJMSEND; struct BASILYS_OBJECT_STRUCT(9) dobj_455__CLASS_OBJMSEND; struct BASILYS_STRING_STRUCT(14) dstr_456__CLASS_OBJMSEND; struct BASILYS_MULTIPLE_STRUCT(4) dtup_457__CLASS_OBJMSEND; struct BASILYS_MULTIPLE_STRUCT(5) dtup_458__CLASS_OBJMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_459__OBMSND_SEL; struct BASILYS_STRING_STRUCT(10) dstr_460__OBMSND_SEL; struct BASILYS_OBJECT_STRUCT(4) dobj_461__OBMSND_SEL; struct BASILYS_STRING_STRUCT(10) dstr_462__OBMSND_SEL; struct BASILYS_OBJECT_STRUCT(3) dsym_463__OBMSND_RECV; struct BASILYS_STRING_STRUCT(11) dstr_464__OBMSND_RECV; struct BASILYS_OBJECT_STRUCT(4) dobj_465__OBMSND_RECV; struct BASILYS_STRING_STRUCT(11) dstr_466__OBMSND_RECV; struct BASILYS_OBJECT_STRUCT(3) dsym_467__OBMSND_ARGS; struct BASILYS_STRING_STRUCT(11) dstr_468__OBMSND_ARGS; struct BASILYS_OBJECT_STRUCT(4) dobj_469__OBMSND_ARGS; struct BASILYS_STRING_STRUCT(11) dstr_470__OBMSND_ARGS; struct BASILYS_OBJECT_STRUCT(3) dsym_471__CLASS_OBJMULTIMSEND; struct BASILYS_STRING_STRUCT(19) dstr_472__CLASS_OBJMULTIMS; struct BASILYS_OBJECT_STRUCT(9) dobj_473__CLASS_OBJMULTIMSEND; struct BASILYS_STRING_STRUCT(19) dstr_474__CLASS_OBJMULTIMS; struct BASILYS_MULTIPLE_STRUCT(5) dtup_475__CLASS_OBJMULTIMSEND; struct BASILYS_MULTIPLE_STRUCT(6) dtup_476__CLASS_OBJMULTIMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_477__OBMULTSND_XRES; struct BASILYS_STRING_STRUCT(14) dstr_478__OBMULTSND_XRES; struct BASILYS_OBJECT_STRUCT(4) dobj_479__OBMULTSND_XRES; struct BASILYS_STRING_STRUCT(14) dstr_480__OBMULTSND_XRES; struct BASILYS_OBJECT_STRUCT(3) dsym_481__CLASS_OBJRAWALLOCOBJ; struct BASILYS_STRING_STRUCT(20) dstr_482__CLASS_OBJRAWALLO; struct BASILYS_OBJECT_STRUCT(9) dobj_483__CLASS_OBJRAWALLOCOBJ; struct BASILYS_STRING_STRUCT(20) dstr_484__CLASS_OBJRAWALLO; struct BASILYS_MULTIPLE_STRUCT(4) dtup_485__CLASS_OBJRAWALLOCOBJ; struct BASILYS_MULTIPLE_STRUCT(5) dtup_486__CLASS_OBJRAWALLOCOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_487__OBRALLOBJ_CLASS; struct BASILYS_STRING_STRUCT(15) dstr_488__OBRALLOBJ_CLASS; struct BASILYS_OBJECT_STRUCT(4) dobj_489__OBRALLOBJ_CLASS; struct BASILYS_STRING_STRUCT(15) dstr_490__OBRALLOBJ_CLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_491__OBRALLOBJ_LEN; struct BASILYS_STRING_STRUCT(13) dstr_492__OBRALLOBJ_LEN; struct BASILYS_OBJECT_STRUCT(4) dobj_493__OBRALLOBJ_LEN; struct BASILYS_STRING_STRUCT(13) dstr_494__OBRALLOBJ_LEN; struct BASILYS_OBJECT_STRUCT(3) dsym_495__OBRALLOBJ_CLASSNAME; struct BASILYS_STRING_STRUCT(19) dstr_496__OBRALLOBJ_CLASSN; struct BASILYS_OBJECT_STRUCT(4) dobj_497__OBRALLOBJ_CLASSNAME; struct BASILYS_STRING_STRUCT(19) dstr_498__OBRALLOBJ_CLASSN; struct BASILYS_OBJECT_STRUCT(3) dsym_499__CLASS_OBJNEWCLOSURE; struct BASILYS_STRING_STRUCT(19) dstr_500__CLASS_OBJNEWCLOS; struct BASILYS_OBJECT_STRUCT(9) dobj_501__CLASS_OBJNEWCLOSURE; struct BASILYS_STRING_STRUCT(19) dstr_502__CLASS_OBJNEWCLOS; struct BASILYS_MULTIPLE_STRUCT(4) dtup_503__CLASS_OBJNEWCLOSURE; struct BASILYS_MULTIPLE_STRUCT(5) dtup_504__CLASS_OBJNEWCLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_505__OBNCLO_DISCR; struct BASILYS_STRING_STRUCT(12) dstr_506__OBNCLO_DISCR; struct BASILYS_OBJECT_STRUCT(4) dobj_507__OBNCLO_DISCR; struct BASILYS_STRING_STRUCT(12) dstr_508__OBNCLO_DISCR; struct BASILYS_OBJECT_STRUCT(3) dsym_509__OBNCLO_ROUT; struct BASILYS_STRING_STRUCT(11) dstr_510__OBNCLO_ROUT; struct BASILYS_OBJECT_STRUCT(4) dobj_511__OBNCLO_ROUT; struct BASILYS_STRING_STRUCT(11) dstr_512__OBNCLO_ROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_513__OBNCLO_LEN; struct BASILYS_STRING_STRUCT(10) dstr_514__OBNCLO_LEN; struct BASILYS_OBJECT_STRUCT(4) dobj_515__OBNCLO_LEN; struct BASILYS_STRING_STRUCT(10) dstr_516__OBNCLO_LEN; struct BASILYS_OBJECT_STRUCT(3) dsym_517__CLASS_OBJPUTUPLE; struct BASILYS_STRING_STRUCT(16) dstr_518__CLASS_OBJPUTUPLE; struct BASILYS_OBJECT_STRUCT(9) dobj_519__CLASS_OBJPUTUPLE; struct BASILYS_STRING_STRUCT(16) dstr_520__CLASS_OBJPUTUPLE; struct BASILYS_MULTIPLE_STRUCT(3) dtup_521__CLASS_OBJPUTUPLE; struct BASILYS_MULTIPLE_STRUCT(4) dtup_522__CLASS_OBJPUTUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_523__OPUTU_TUPLED; struct BASILYS_STRING_STRUCT(12) dstr_524__OPUTU_TUPLED; struct BASILYS_OBJECT_STRUCT(4) dobj_525__OPUTU_TUPLED; struct BASILYS_STRING_STRUCT(12) dstr_526__OPUTU_TUPLED; struct BASILYS_OBJECT_STRUCT(3) dsym_527__OPUTU_OFFSET; struct BASILYS_STRING_STRUCT(12) dstr_528__OPUTU_OFFSET; struct BASILYS_OBJECT_STRUCT(4) dobj_529__OPUTU_OFFSET; struct BASILYS_STRING_STRUCT(12) dstr_530__OPUTU_OFFSET; struct BASILYS_OBJECT_STRUCT(3) dsym_531__OPUTU_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_532__OPUTU_VALUE; struct BASILYS_OBJECT_STRUCT(4) dobj_533__OPUTU_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_534__OPUTU_VALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_535__CLASS_OBJPUTSLOT; struct BASILYS_STRING_STRUCT(16) dstr_536__CLASS_OBJPUTSLOT; struct BASILYS_OBJECT_STRUCT(9) dobj_537__CLASS_OBJPUTSLOT; struct BASILYS_STRING_STRUCT(16) dstr_538__CLASS_OBJPUTSLOT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_539__CLASS_OBJPUTSLOT; struct BASILYS_MULTIPLE_STRUCT(5) dtup_540__CLASS_OBJPUTSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_541__OSLOT_ODATA; struct BASILYS_STRING_STRUCT(11) dstr_542__OSLOT_ODATA; struct BASILYS_OBJECT_STRUCT(4) dobj_543__OSLOT_ODATA; struct BASILYS_STRING_STRUCT(11) dstr_544__OSLOT_ODATA; struct BASILYS_OBJECT_STRUCT(3) dsym_545__OSLOT_OFFSET; struct BASILYS_STRING_STRUCT(12) dstr_546__OSLOT_OFFSET; struct BASILYS_OBJECT_STRUCT(4) dobj_547__OSLOT_OFFSET; struct BASILYS_STRING_STRUCT(12) dstr_548__OSLOT_OFFSET; struct BASILYS_OBJECT_STRUCT(3) dsym_549__OSLOT_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_550__OSLOT_FIELD; struct BASILYS_OBJECT_STRUCT(4) dobj_551__OSLOT_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_552__OSLOT_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_553__OSLOT_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_554__OSLOT_VALUE; struct BASILYS_OBJECT_STRUCT(4) dobj_555__OSLOT_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_556__OSLOT_VALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_557__CLASS_OBJGETSLOT; struct BASILYS_STRING_STRUCT(16) dstr_558__CLASS_OBJGETSLOT; struct BASILYS_OBJECT_STRUCT(9) dobj_559__CLASS_OBJGETSLOT; struct BASILYS_STRING_STRUCT(16) dstr_560__CLASS_OBJGETSLOT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_561__CLASS_OBJGETSLOT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_562__CLASS_OBJGETSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_563__OGETSL_OBJ; struct BASILYS_STRING_STRUCT(10) dstr_564__OGETSL_OBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_565__OGETSL_OBJ; struct BASILYS_STRING_STRUCT(10) dstr_566__OGETSL_OBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_567__OGETSL_FIELD; struct BASILYS_STRING_STRUCT(12) dstr_568__OGETSL_FIELD; struct BASILYS_OBJECT_STRUCT(4) dobj_569__OGETSL_FIELD; struct BASILYS_STRING_STRUCT(12) dstr_570__OGETSL_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_571__CLASS_OBJPUTCLOSUROUT; struct BASILYS_STRING_STRUCT(21) dstr_572__CLASS_OBJPUTCLOS; struct BASILYS_OBJECT_STRUCT(9) dobj_573__CLASS_OBJPUTCLOSUROUT; struct BASILYS_STRING_STRUCT(21) dstr_574__CLASS_OBJPUTCLOS; struct BASILYS_MULTIPLE_STRUCT(3) dtup_575__CLASS_OBJPUTCLOSUROUT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_576__CLASS_OBJPUTCLOSUROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_577__OPCLOR_CLOS; struct BASILYS_STRING_STRUCT(11) dstr_578__OPCLOR_CLOS; struct BASILYS_OBJECT_STRUCT(4) dobj_579__OPCLOR_CLOS; struct BASILYS_STRING_STRUCT(11) dstr_580__OPCLOR_CLOS; struct BASILYS_OBJECT_STRUCT(3) dsym_581__OPCLOR_ROUT; struct BASILYS_STRING_STRUCT(11) dstr_582__OPCLOR_ROUT; struct BASILYS_OBJECT_STRUCT(4) dobj_583__OPCLOR_ROUT; struct BASILYS_STRING_STRUCT(11) dstr_584__OPCLOR_ROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_585__CLASS_OBJPUTCLOSEDV; struct BASILYS_STRING_STRUCT(19) dstr_586__CLASS_OBJPUTCLOS; struct BASILYS_OBJECT_STRUCT(9) dobj_587__CLASS_OBJPUTCLOSEDV; struct BASILYS_STRING_STRUCT(19) dstr_588__CLASS_OBJPUTCLOS; struct BASILYS_MULTIPLE_STRUCT(3) dtup_589__CLASS_OBJPUTCLOSEDV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_590__CLASS_OBJPUTCLOSEDV; struct BASILYS_OBJECT_STRUCT(3) dsym_591__OPCLOV_CLOS; struct BASILYS_STRING_STRUCT(11) dstr_592__OPCLOV_CLOS; struct BASILYS_OBJECT_STRUCT(4) dobj_593__OPCLOV_CLOS; struct BASILYS_STRING_STRUCT(11) dstr_594__OPCLOV_CLOS; struct BASILYS_OBJECT_STRUCT(3) dsym_595__OPCLOV_OFF; struct BASILYS_STRING_STRUCT(10) dstr_596__OPCLOV_OFF; struct BASILYS_OBJECT_STRUCT(4) dobj_597__OPCLOV_OFF; struct BASILYS_STRING_STRUCT(10) dstr_598__OPCLOV_OFF; struct BASILYS_OBJECT_STRUCT(3) dsym_599__OPCLOV_CVAL; struct BASILYS_STRING_STRUCT(11) dstr_600__OPCLOV_CVAL; struct BASILYS_OBJECT_STRUCT(4) dobj_601__OPCLOV_CVAL; struct BASILYS_STRING_STRUCT(11) dstr_602__OPCLOV_CVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV; struct BASILYS_STRING_STRUCT(26) dstr_604__CLASS_OBJPUTCLOS; struct BASILYS_OBJECT_STRUCT(9) dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV; struct BASILYS_STRING_STRUCT(26) dstr_606__CLASS_OBJPUTCLOS; struct BASILYS_MULTIPLE_STRUCT(4) dtup_607__CLASS_OBJPUTCLOSEDNOTNULLV; struct BASILYS_MULTIPLE_STRUCT(4) dtup_608__CLASS_OBJPUTCLOSEDNOTNULLV; struct BASILYS_OBJECT_STRUCT(3) dsym_609__CLASS_OBJPUTROUTCONST; struct BASILYS_STRING_STRUCT(21) dstr_610__CLASS_OBJPUTROUT; struct BASILYS_OBJECT_STRUCT(9) dobj_611__CLASS_OBJPUTROUTCONST; struct BASILYS_STRING_STRUCT(21) dstr_612__CLASS_OBJPUTROUT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_613__CLASS_OBJPUTROUTCONST; struct BASILYS_MULTIPLE_STRUCT(4) dtup_614__CLASS_OBJPUTROUTCONST; struct BASILYS_OBJECT_STRUCT(3) dsym_615__OPRCONST_ROUT; struct BASILYS_STRING_STRUCT(13) dstr_616__OPRCONST_ROUT; struct BASILYS_OBJECT_STRUCT(4) dobj_617__OPRCONST_ROUT; struct BASILYS_STRING_STRUCT(13) dstr_618__OPRCONST_ROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_619__OPRCONST_OFF; struct BASILYS_STRING_STRUCT(12) dstr_620__OPRCONST_OFF; struct BASILYS_OBJECT_STRUCT(4) dobj_621__OPRCONST_OFF; struct BASILYS_STRING_STRUCT(12) dstr_622__OPRCONST_OFF; struct BASILYS_OBJECT_STRUCT(3) dsym_623__OPRCONST_CVAL; struct BASILYS_STRING_STRUCT(13) dstr_624__OPRCONST_CVAL; struct BASILYS_OBJECT_STRUCT(4) dobj_625__OPRCONST_CVAL; struct BASILYS_STRING_STRUCT(13) dstr_626__OPRCONST_CVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL; struct BASILYS_STRING_STRUCT(28) dstr_628__CLASS_OBJPUTROUT; struct BASILYS_OBJECT_STRUCT(9) dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL; struct BASILYS_STRING_STRUCT(28) dstr_630__CLASS_OBJPUTROUT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_631__CLASS_OBJPUTROUTCONSTNOTNULL; struct BASILYS_MULTIPLE_STRUCT(4) dtup_632__CLASS_OBJPUTROUTCONSTNOTNULL; struct BASILYS_OBJECT_STRUCT(3) dsym_633__CLASS_OBJTOUCH; struct BASILYS_STRING_STRUCT(14) dstr_634__CLASS_OBJTOUCH; struct BASILYS_OBJECT_STRUCT(9) dobj_635__CLASS_OBJTOUCH; struct BASILYS_STRING_STRUCT(14) dstr_636__CLASS_OBJTOUCH; struct BASILYS_MULTIPLE_STRUCT(3) dtup_637__CLASS_OBJTOUCH; struct BASILYS_MULTIPLE_STRUCT(3) dtup_638__CLASS_OBJTOUCH; struct BASILYS_OBJECT_STRUCT(3) dsym_639__OTOUCH_VAL; struct BASILYS_STRING_STRUCT(10) dstr_640__OTOUCH_VAL; struct BASILYS_OBJECT_STRUCT(4) dobj_641__OTOUCH_VAL; struct BASILYS_STRING_STRUCT(10) dstr_642__OTOUCH_VAL; struct BASILYS_OBJECT_STRUCT(3) dsym_643__OTOUCH_COMMENT; struct BASILYS_STRING_STRUCT(14) dstr_644__OTOUCH_COMMENT; struct BASILYS_OBJECT_STRUCT(4) dobj_645__OTOUCH_COMMENT; struct BASILYS_STRING_STRUCT(14) dstr_646__OTOUCH_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_647__CLASS_OBJSETPREDEF; struct BASILYS_STRING_STRUCT(18) dstr_648__CLASS_OBJSETPRED; struct BASILYS_OBJECT_STRUCT(9) dobj_649__CLASS_OBJSETPREDEF; struct BASILYS_STRING_STRUCT(18) dstr_650__CLASS_OBJSETPRED; struct BASILYS_MULTIPLE_STRUCT(3) dtup_651__CLASS_OBJSETPREDEF; struct BASILYS_MULTIPLE_STRUCT(3) dtup_652__CLASS_OBJSETPREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_653__OSPR_OBJECT; struct BASILYS_STRING_STRUCT(11) dstr_654__OSPR_OBJECT; struct BASILYS_OBJECT_STRUCT(4) dobj_655__OSPR_OBJECT; struct BASILYS_STRING_STRUCT(11) dstr_656__OSPR_OBJECT; struct BASILYS_OBJECT_STRUCT(3) dsym_657__OSPR_PREDEF; struct BASILYS_STRING_STRUCT(11) dstr_658__OSPR_PREDEF; struct BASILYS_OBJECT_STRUCT(4) dobj_659__OSPR_PREDEF; struct BASILYS_STRING_STRUCT(11) dstr_660__OSPR_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_661__CLASS_ROUTINEOBJ; struct BASILYS_STRING_STRUCT(16) dstr_662__CLASS_ROUTINEOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_663__CLASS_NAMED; struct BASILYS_STRING_STRUCT(11) dstr_664__CLASS_NAMED; struct BASILYS_OBJECT_STRUCT(9) dobj_665__CLASS_ROUTINEOBJ; struct BASILYS_STRING_STRUCT(16) dstr_666__CLASS_ROUTINEOBJ; struct BASILYS_MULTIPLE_STRUCT(3) dtup_667__CLASS_ROUTINEOBJ; struct BASILYS_MULTIPLE_STRUCT(9) dtup_668__CLASS_ROUTINEOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_669__OBROUT_PROC; struct BASILYS_STRING_STRUCT(11) dstr_670__OBROUT_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_671__OBROUT_PROC; struct BASILYS_STRING_STRUCT(11) dstr_672__OBROUT_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_673__OBROUT_BODY; struct BASILYS_STRING_STRUCT(11) dstr_674__OBROUT_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_675__OBROUT_BODY; struct BASILYS_STRING_STRUCT(11) dstr_676__OBROUT_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_677__OBROUT_NBVAL; struct BASILYS_STRING_STRUCT(12) dstr_678__OBROUT_NBVAL; struct BASILYS_OBJECT_STRUCT(4) dobj_679__OBROUT_NBVAL; struct BASILYS_STRING_STRUCT(12) dstr_680__OBROUT_NBVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_681__OBROUT_NBLONG; struct BASILYS_STRING_STRUCT(13) dstr_682__OBROUT_NBLONG; struct BASILYS_OBJECT_STRUCT(4) dobj_683__OBROUT_NBLONG; struct BASILYS_STRING_STRUCT(13) dstr_684__OBROUT_NBLONG; struct BASILYS_OBJECT_STRUCT(3) dsym_685__OBROUT_OTHERS; struct BASILYS_STRING_STRUCT(13) dstr_686__OBROUT_OTHERS; struct BASILYS_OBJECT_STRUCT(4) dobj_687__OBROUT_OTHERS; struct BASILYS_STRING_STRUCT(13) dstr_688__OBROUT_OTHERS; struct BASILYS_OBJECT_STRUCT(3) dsym_689__OBROUT_RETVAL; struct BASILYS_STRING_STRUCT(13) dstr_690__OBROUT_RETVAL; struct BASILYS_OBJECT_STRUCT(4) dobj_691__OBROUT_RETVAL; struct BASILYS_STRING_STRUCT(13) dstr_692__OBROUT_RETVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_693__OBROUT_CNTCITER; struct BASILYS_STRING_STRUCT(15) dstr_694__OBROUT_CNTCITER; struct BASILYS_OBJECT_STRUCT(4) dobj_695__OBROUT_CNTCITER; struct BASILYS_STRING_STRUCT(15) dstr_696__OBROUT_CNTCITER; struct BASILYS_OBJECT_STRUCT(3) dsym_697__CLASS_PROCROUTINEOBJ; struct BASILYS_STRING_STRUCT(20) dstr_698__CLASS_PROCROUTIN; struct BASILYS_OBJECT_STRUCT(9) dobj_699__CLASS_PROCROUTINEOBJ; struct BASILYS_STRING_STRUCT(20) dstr_700__CLASS_PROCROUTIN; struct BASILYS_MULTIPLE_STRUCT(4) dtup_701__CLASS_PROCROUTINEOBJ; struct BASILYS_MULTIPLE_STRUCT(12) dtup_702__CLASS_PROCROUTINEOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_703__OPROUT_GETARGS; struct BASILYS_STRING_STRUCT(14) dstr_704__OPROUT_GETARGS; struct BASILYS_OBJECT_STRUCT(4) dobj_705__OPROUT_GETARGS; struct BASILYS_STRING_STRUCT(14) dstr_706__OPROUT_GETARGS; struct BASILYS_OBJECT_STRUCT(3) dsym_707__OPROUT_LOC; struct BASILYS_STRING_STRUCT(10) dstr_708__OPROUT_LOC; struct BASILYS_OBJECT_STRUCT(4) dobj_709__OPROUT_LOC; struct BASILYS_STRING_STRUCT(10) dstr_710__OPROUT_LOC; struct BASILYS_OBJECT_STRUCT(3) dsym_711__OPROUT_FUNAM; struct BASILYS_STRING_STRUCT(12) dstr_712__OPROUT_FUNAM; struct BASILYS_OBJECT_STRUCT(4) dobj_713__OPROUT_FUNAM; struct BASILYS_STRING_STRUCT(12) dstr_714__OPROUT_FUNAM; struct BASILYS_OBJECT_STRUCT(3) dsym_715__CLASS_INITIALROUTINEOBJ; struct BASILYS_STRING_STRUCT(23) dstr_716__CLASS_INITIALROU; struct BASILYS_OBJECT_STRUCT(9) dobj_717__CLASS_INITIALROUTINEOBJ; struct BASILYS_STRING_STRUCT(23) dstr_718__CLASS_INITIALROU; struct BASILYS_MULTIPLE_STRUCT(4) dtup_719__CLASS_INITIALROUTINEOBJ; struct BASILYS_MULTIPLE_STRUCT(12) dtup_720__CLASS_INITIALROUTINEOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_721__OIROUT_DATA; struct BASILYS_STRING_STRUCT(11) dstr_722__OIROUT_DATA; struct BASILYS_OBJECT_STRUCT(4) dobj_723__OIROUT_DATA; struct BASILYS_STRING_STRUCT(11) dstr_724__OIROUT_DATA; struct BASILYS_OBJECT_STRUCT(3) dsym_725__OIROUT_PROLOG; struct BASILYS_STRING_STRUCT(13) dstr_726__OIROUT_PROLOG; struct BASILYS_OBJECT_STRUCT(4) dobj_727__OIROUT_PROLOG; struct BASILYS_STRING_STRUCT(13) dstr_728__OIROUT_PROLOG; struct BASILYS_OBJECT_STRUCT(3) dsym_729__OIROUT_FILL; struct BASILYS_STRING_STRUCT(11) dstr_730__OIROUT_FILL; struct BASILYS_OBJECT_STRUCT(4) dobj_731__OIROUT_FILL; struct BASILYS_STRING_STRUCT(11) dstr_732__OIROUT_FILL; struct BASILYS_OBJECT_STRUCT(3) dsym_733__OUTPUT_C_DECLINIT; struct BASILYS_STRING_STRUCT(17) dstr_734__OUTPUT_C_DECLINI; struct BASILYS_OBJECT_STRUCT(3) dsym_735__CLASS_SELECTOR; struct BASILYS_STRING_STRUCT(14) dstr_736__CLASS_SELECTOR; struct BASILYS_OBJECT_STRUCT(4) dobj_737__OUTPUT_C_DECLINIT; struct BASILYS_STRING_STRUCT(17) dstr_738__OUTPUT_C_DECLINI; struct BASILYS_OBJECT_STRUCT(3) dsym_739__PUT_OBJDEST; struct BASILYS_STRING_STRUCT(11) dstr_740__PUT_OBJDEST; struct BASILYS_OBJECT_STRUCT(4) dobj_741__PUT_OBJDEST; struct BASILYS_STRING_STRUCT(11) dstr_742__PUT_OBJDEST; struct BASILYS_OBJECT_STRUCT(3) dsym_743__OUTPUT_C_CODE; struct BASILYS_STRING_STRUCT(13) dstr_744__OUTPUT_C_CODE; struct BASILYS_OBJECT_STRUCT(4) dobj_745__OUTPUT_C_CODE; struct BASILYS_STRING_STRUCT(13) dstr_746__OUTPUT_C_CODE; struct BASILYS_OBJECT_STRUCT(3) dsym_747__OUTPUT_C_INITFILL; struct BASILYS_STRING_STRUCT(17) dstr_748__OUTPUT_C_INITFIL; struct BASILYS_OBJECT_STRUCT(4) dobj_749__OUTPUT_C_INITFILL; struct BASILYS_STRING_STRUCT(17) dstr_750__OUTPUT_C_INITFIL; struct BASILYS_OBJECT_STRUCT(3) dsym_751__OUTPUT_C_INITPREDEF; struct BASILYS_STRING_STRUCT(19) dstr_752__OUTPUT_C_INITPRE; struct BASILYS_OBJECT_STRUCT(4) dobj_753__OUTPUT_C_INITPREDEF; struct BASILYS_STRING_STRUCT(19) dstr_754__OUTPUT_C_INITPRE; struct BASILYS_ROUTINE_STRUCT(2) drout_755__COMPILOBJ_CATCHALL_NREP; struct BASILYS_CLOSURE_STRUCT(0) dclo_756__COMPILOBJ_CATCHALL_NREP; struct BASILYS_OBJECT_STRUCT(3) dsym_757__DEBUG_MSG_FUN; struct BASILYS_STRING_STRUCT(13) dstr_758__DEBUG_MSG_FUN; struct BASILYS_OBJECT_STRUCT(3) dsym_759__DISPLAYDEBUGMSG; struct BASILYS_STRING_STRUCT(15) dstr_760__DISPLAYDEBUGMSG; struct BASILYS_OBJECT_STRUCT(3) dsym_761__INSTALL_METHOD; struct BASILYS_STRING_STRUCT(14) dstr_762__INSTALL_METHOD; struct BASILYS_OBJECT_STRUCT(3) dsym_763__CLASS_NREP; struct BASILYS_STRING_STRUCT(10) dstr_764__CLASS_NREP; struct BASILYS_OBJECT_STRUCT(3) dsym_765__COMPILE_OBJ; struct BASILYS_STRING_STRUCT(11) dstr_766__COMPILE_OBJ; struct BASILYS_ROUTINE_STRUCT(1) drout_767__PUTOBJDEST_CATCHALL_OBJCODE; struct BASILYS_CLOSURE_STRUCT(0) dclo_768__PUTOBJDEST_CATCHALL_OBJCODE; struct BASILYS_ROUTINE_STRUCT(1) drout_769__PUTOBJDEST_CATCHALL_ANYDISCR; struct BASILYS_CLOSURE_STRUCT(0) dclo_770__PUTOBJDEST_CATCHALL_ANYDISCR; struct BASILYS_OBJECT_STRUCT(3) dsym_771__DISCR_ANYRECV; struct BASILYS_STRING_STRUCT(13) dstr_772__DISCR_ANYRECV; struct BASILYS_ROUTINE_STRUCT(1) drout_773__GETCTYPE_OBJVALUE; struct BASILYS_CLOSURE_STRUCT(0) dclo_774__GETCTYPE_OBJVALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_775__GET_CTYPE; struct BASILYS_STRING_STRUCT(9) dstr_776__GET_CTYPE; struct BASILYS_ROUTINE_STRUCT(2) drout_777__GECTYP_OBJNIL; struct BASILYS_CLOSURE_STRUCT(0) dclo_778__GECTYP_OBJNIL; struct BASILYS_OBJECT_STRUCT(3) dsym_779__CTYPE_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_780__CTYPE_VALUE; struct BASILYS_ROUTINE_STRUCT(1) drout_781__DBGOUT_ROUTINEOBJ; struct BASILYS_CLOSURE_STRUCT(0) dclo_782__DBGOUT_ROUTINEOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_783__DBGOUT_NAMEDOBJECT_METHOD; struct BASILYS_STRING_STRUCT(25) dstr_784__DBGOUT_NAMEDOBJE; struct BASILYS_OBJECT_STRUCT(3) dsym_785__DBG_OUTPUT; struct BASILYS_STRING_STRUCT(10) dstr_786__DBG_OUTPUT; struct BASILYS_ROUTINE_STRUCT(3) drout_787__PUTOBJDEST_OBJDESTINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_788__PUTOBJDEST_OBJDESTINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_789__DISCR_LIST; struct BASILYS_STRING_STRUCT(10) dstr_790__DISCR_LIST; struct BASILYS_ROUTINE_STRUCT(1) drout_791__PUTOBJDEST_OBJFINALRETURN; struct BASILYS_CLOSURE_STRUCT(0) dclo_792__PUTOBJDEST_OBJFINALRETURN; struct BASILYS_ROUTINE_STRUCT(27) drout_793__COMPILE2OBJ_PROCEDURE; struct BASILYS_CLOSURE_STRUCT(0) dclo_794__COMPILE2OBJ_PROCEDURE; struct BASILYS_OBJECT_STRUCT(3) dsym_795__CLASS_NREP_ROUTPROC; struct BASILYS_STRING_STRUCT(19) dstr_796__CLASS_NREP_ROUTP; struct BASILYS_OBJECT_STRUCT(3) dsym_797__CLASS_MODULCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_798__CLASS_MODULCONTE; struct BASILYS_OBJECT_STRUCT(3) dsym_799__DISCR_STRBUF; struct BASILYS_STRING_STRUCT(12) dstr_800__DISCR_STRBUF; struct BASILYS_OBJECT_STRUCT(3) dsym_801__DISCR_STRING; struct BASILYS_STRING_STRUCT(12) dstr_802__DISCR_STRING; struct BASILYS_OBJECT_STRUCT(3) dsym_803__DISCR_INTEGER; struct BASILYS_STRING_STRUCT(13) dstr_804__DISCR_INTEGER; struct BASILYS_OBJECT_STRUCT(3) dsym_805__DISCR_MAPOBJECTS; struct BASILYS_STRING_STRUCT(16) dstr_806__DISCR_MAPOBJECTS; struct BASILYS_OBJECT_STRUCT(3) dsym_807__CLASS_GENERCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_808__CLASS_GENERCONTE; struct BASILYS_OBJECT_STRUCT(3) dsym_809__RETVAL_; struct BASILYS_STRING_STRUCT(8) dstr_810__RETVAL_; struct BASILYS_OBJECT_STRUCT(3) dsym_811__MULTIPLE_MAP; struct BASILYS_STRING_STRUCT(12) dstr_812__MULTIPLE_MAP; struct BASILYS_ROUTINE_STRUCT(7) drout_813__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_814__CLASS_FORMAL_BINDING; struct BASILYS_STRING_STRUCT(20) dstr_815__CLASS_FORMAL_BIN; struct BASILYS_OBJECT_STRUCT(3) dsym_816__CTYPE_LONG; struct BASILYS_STRING_STRUCT(10) dstr_817__CTYPE_LONG; struct BASILYS_OBJECT_STRUCT(3) dsym_818__LIST_EVERY; struct BASILYS_STRING_STRUCT(10) dstr_819__LIST_EVERY; struct BASILYS_ROUTINE_STRUCT(1) drout_820__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_821__INITIALSYSTEMDATA_OBJPREDEF; struct BASILYS_STRING_STRUCT(27) dstr_822__INITIALSYSTEMDAT; struct BASILYS_OBJECT_STRUCT(2) dobj_823__INITIALSYSTEMDATA_OBJPREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_824__INITIAL_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(19) dstr_825__INITIAL_SYSTEM_D; struct BASILYS_ROUTINE_STRUCT(1) drout_826__APPEND_COMMENT; struct BASILYS_CLOSURE_STRUCT(0) dclo_827__APPEND_COMMENT; struct BASILYS_ROUTINE_STRUCT(2) drout_828__APPEND_COMMENTCONST; struct BASILYS_CLOSURE_STRUCT(0) dclo_829__APPEND_COMMENTCONST; struct BASILYS_ROUTINE_STRUCT(67) drout_830__COMPILE2OBJ_INITPROC; struct BASILYS_CLOSURE_STRUCT(0) dclo_831__COMPILE2OBJ_INITPROC; struct BASILYS_OBJECT_STRUCT(3) dsym_832__CLASS_NREP_INITPROC; struct BASILYS_STRING_STRUCT(19) dstr_833__CLASS_NREP_INITP; struct BASILYS_OBJECT_STRUCT(3) dsym_834__CLASS_INITGENERCONTEXT; struct BASILYS_STRING_STRUCT(22) dstr_835__CLASS_INITGENERC; struct BASILYS_OBJECT_STRUCT(3) dsym_836__LIST_MAP; struct BASILYS_STRING_STRUCT(8) dstr_837__LIST_MAP; struct BASILYS_ROUTINE_STRUCT(1) drout_838__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_839__RETINIT_; struct BASILYS_STRING_STRUCT(9) dstr_840__RETINIT_; struct BASILYS_OBJECT_STRUCT(3) dsym_841__CONTENV_; struct BASILYS_STRING_STRUCT(9) dstr_842__CONTENV_; struct BASILYS_OBJECT_STRUCT(3) dsym_843__FRESHENV_; struct BASILYS_STRING_STRUCT(10) dstr_844__FRESHENV_; struct BASILYS_OBJECT_STRUCT(3) dsym_845__PREVENV_; struct BASILYS_STRING_STRUCT(9) dstr_846__PREVENV_; struct BASILYS_OBJECT_STRUCT(3) dsym_847__VALEXPORT_; struct BASILYS_STRING_STRUCT(11) dstr_848__VALEXPORT_; struct BASILYS_OBJECT_STRUCT(3) dsym_849__VALIMPORT_; struct BASILYS_STRING_STRUCT(11) dstr_850__VALIMPORT_; struct BASILYS_OBJECT_STRUCT(3) dsym_851__LIST1; struct BASILYS_STRING_STRUCT(5) dstr_852__LIST1; struct BASILYS_OBJECT_STRUCT(3) dsym_853__SYSDATA_CONT_FRESH_ENV; struct BASILYS_STRING_STRUCT(22) dstr_854__SYSDATA_CONT_FRE; struct BASILYS_OBJECT_STRUCT(3) dsym_855__DISCR_MULTIPLE; struct BASILYS_STRING_STRUCT(14) dstr_856__DISCR_MULTIPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_857__DISCR_VERBATIMSTRING; struct BASILYS_STRING_STRUCT(20) dstr_858__DISCR_VERBATIMST; struct BASILYS_ROUTINE_STRUCT(3) drout_859__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_860__CLASS_NREP_IMPORTEDVAL; struct BASILYS_STRING_STRUCT(22) dstr_861__CLASS_NREP_IMPOR; struct BASILYS_OBJECT_STRUCT(3) dsym_862__LIST_TO_MULTIPLE; struct BASILYS_STRING_STRUCT(16) dstr_863__LIST_TO_MULTIPLE; struct BASILYS_ROUTINE_STRUCT(2) drout_864__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_865__CLASS_NREP_DATA; struct BASILYS_STRING_STRUCT(15) dstr_866__CLASS_NREP_DATA; struct BASILYS_ROUTINE_STRUCT(2) drout_867__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_868__MULTIPLE_EVERY; struct BASILYS_STRING_STRUCT(14) dstr_869__MULTIPLE_EVERY; struct BASILYS_ROUTINE_STRUCT(6) drout_870__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_871__CLASS_NREP_DATAKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_872__CLASS_NREP_DATAK; struct BASILYS_OBJECT_STRUCT(3) dsym_873__CLASS_NREP_DATASYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_874__CLASS_NREP_DATAS; struct BASILYS_OBJECT_STRUCT(3) dsym_875__SYSDATA_VALUE_IMPORTER; struct BASILYS_STRING_STRUCT(22) dstr_876__SYSDATA_VALUE_IM; struct BASILYS_ROUTINE_STRUCT(6) drout_877__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_878__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_879__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_880__COMPILE2OBJ_INITPROC; struct BASILYS_STRING_STRUCT(20) dstr_881__COMPILE2OBJ_INIT; struct BASILYS_OBJECT_STRUCT(3) dsym_882__COMPILE2OBJ_PROCEDURE; struct BASILYS_STRING_STRUCT(21) dstr_883__COMPILE2OBJ_PROC; struct BASILYS_ROUTINE_STRUCT(9) drout_884__GET_FREE_OBJLOCPTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_885__GET_FREE_OBJLOCPTR; struct BASILYS_ROUTINE_STRUCT(9) drout_886__GET_FREE_OBJLOCLONG; struct BASILYS_CLOSURE_STRUCT(0) dclo_887__GET_FREE_OBJLOCLONG; struct BASILYS_ROUTINE_STRUCT(14) drout_888__GET_FREE_OBJLOCTYPED; struct BASILYS_CLOSURE_STRUCT(0) dclo_889__GET_FREE_OBJLOCTYPED; struct BASILYS_OBJECT_STRUCT(3) dsym_890__CLASS_CTYPE; struct BASILYS_STRING_STRUCT(11) dstr_891__CLASS_CTYPE; struct BASILYS_OBJECT_STRUCT(3) dsym_892__CTYPE_VOID; struct BASILYS_STRING_STRUCT(10) dstr_893__CTYPE_VOID; struct BASILYS_ROUTINE_STRUCT(8) drout_894__DISPOSE_OBJLOC; struct BASILYS_CLOSURE_STRUCT(0) dclo_895__DISPOSE_OBJLOC; struct BASILYS_ROUTINE_STRUCT(7) drout_896__DISPOSE_BND_OBJ; struct BASILYS_CLOSURE_STRUCT(0) dclo_897__DISPOSE_BND_OBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_898__CLASS_ANY_BINDING; struct BASILYS_STRING_STRUCT(17) dstr_899__CLASS_ANY_BINDIN; struct BASILYS_OBJECT_STRUCT(3) dsym_900__CLASS_LET_BINDING; struct BASILYS_STRING_STRUCT(17) dstr_901__CLASS_LET_BINDIN; struct BASILYS_ROUTINE_STRUCT(12) drout_902__COMPILOBJ_NREP_CHUNK; struct BASILYS_CLOSURE_STRUCT(0) dclo_903__COMPILOBJ_NREP_CHUNK; struct BASILYS_OBJECT_STRUCT(3) dsym_904__CLASS_NREP_CHUNK; struct BASILYS_STRING_STRUCT(16) dstr_905__CLASS_NREP_CHUNK; struct BASILYS_ROUTINE_STRUCT(3) drout_906__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_907__GETCTYPE_TYPEXPR; struct BASILYS_CLOSURE_STRUCT(0) dclo_908__GETCTYPE_TYPEXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_909__CLASS_NREP_TYPEXPR; struct BASILYS_STRING_STRUCT(18) dstr_910__CLASS_NREP_TYPEX; struct BASILYS_ROUTINE_STRUCT(5) drout_911__COMPILOBJ_NREP_NIL; struct BASILYS_CLOSURE_STRUCT(0) dclo_912__COMPILOBJ_NREP_NIL; struct BASILYS_OBJECT_STRUCT(3) dsym_913__CLASS_NREP_NIL; struct BASILYS_STRING_STRUCT(14) dstr_914__CLASS_NREP_NIL; struct BASILYS_ROUTINE_STRUCT(6) drout_915__COMPILOBJ_NREP_COMMENT; struct BASILYS_CLOSURE_STRUCT(0) dclo_916__COMPILOBJ_NREP_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_917__CLASS_NREP_COMMENT; struct BASILYS_STRING_STRUCT(18) dstr_918__CLASS_NREP_COMME; struct BASILYS_ROUTINE_STRUCT(5) drout_919__COMPILOBJ_NREP_LOCSYMOCC; struct BASILYS_CLOSURE_STRUCT(0) dclo_920__COMPILOBJ_NREP_LOCSYMOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_921__CLASS_NREP_LOCSYMOCC; struct BASILYS_STRING_STRUCT(20) dstr_922__CLASS_NREP_LOCSY; struct BASILYS_ROUTINE_STRUCT(7) drout_923__COMPILOBJ_NREP_CLOSEDOCC; struct BASILYS_CLOSURE_STRUCT(0) dclo_924__COMPILOBJ_NREP_CLOSEDOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_925__CLASS_NREP_CLOSEDOCC; struct BASILYS_STRING_STRUCT(20) dstr_926__CLASS_NREP_CLOSE; struct BASILYS_ROUTINE_STRUCT(7) drout_927__COMPILOBJ_NREP_CONSTOCC; struct BASILYS_CLOSURE_STRUCT(0) dclo_928__COMPILOBJ_NREP_CONSTOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_929__CLASS_NREP_CONSTOCC; struct BASILYS_STRING_STRUCT(19) dstr_930__CLASS_NREP_CONST; struct BASILYS_ROUTINE_STRUCT(5) drout_931__COMPILOBJ_NREP_IMPORTEDVAL; struct BASILYS_CLOSURE_STRUCT(0) dclo_932__COMPILOBJ_NREP_IMPORTEDVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_933__CLASS_SYMBOL; struct BASILYS_STRING_STRUCT(12) dstr_934__CLASS_SYMBOL; struct BASILYS_ROUTINE_STRUCT(11) drout_935__COMPILOBJ_NREP_QUASICONSTANT; struct BASILYS_CLOSURE_STRUCT(0) dclo_936__COMPILOBJ_NREP_QUASICONSTANT; struct BASILYS_OBJECT_STRUCT(3) dsym_937__CLASS_NREP_QUASICONSTANT; struct BASILYS_STRING_STRUCT(24) dstr_938__CLASS_NREP_QUASI; struct BASILYS_ROUTINE_STRUCT(8) drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_CLOSURE_STRUCT(0) dclo_940__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(58) dstr_942__CLASS_NREP_QUASI; struct BASILYS_ROUTINE_STRUCT(12) drout_943__COMPILOBJ_NREP_FOREVER; struct BASILYS_CLOSURE_STRUCT(0) dclo_944__COMPILOBJ_NREP_FOREVER; struct BASILYS_OBJECT_STRUCT(3) dsym_945__CLASS_NREP_FOREVER; struct BASILYS_STRING_STRUCT(18) dstr_946__CLASS_NREP_FOREV; struct BASILYS_OBJECT_STRUCT(3) dsym_947__CLASS_LABEL_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_948__CLASS_LABEL_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_949__CLASS_CLONEDSYMBOL; struct BASILYS_STRING_STRUCT(18) dstr_950__CLASS_CLONEDSYMB; struct BASILYS_ROUTINE_STRUCT(1) drout_951__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(9) drout_952__COMPILOBJ_NREP_EXIT; struct BASILYS_CLOSURE_STRUCT(0) dclo_953__COMPILOBJ_NREP_EXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_954__CLASS_NREP_EXIT; struct BASILYS_STRING_STRUCT(15) dstr_955__CLASS_NREP_EXIT; struct BASILYS_ROUTINE_STRUCT(1) drout_956__COMPILOBJ_DISCRANY; struct BASILYS_CLOSURE_STRUCT(0) dclo_957__COMPILOBJ_DISCRANY; struct BASILYS_ROUTINE_STRUCT(20) drout_958__COMPILOBJ_NREP_LET; struct BASILYS_CLOSURE_STRUCT(0) dclo_959__COMPILOBJ_NREP_LET; struct BASILYS_OBJECT_STRUCT(3) dsym_960__CLASS_NREP_LET; struct BASILYS_STRING_STRUCT(14) dstr_961__CLASS_NREP_LET; struct BASILYS_ROUTINE_STRUCT(7) drout_962__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_963__CLASS_NORMLET_BINDING; struct BASILYS_STRING_STRUCT(21) dstr_964__CLASS_NORMLET_BI; struct BASILYS_OBJECT_STRUCT(3) dsym_965__CLASS_SEXPR; struct BASILYS_STRING_STRUCT(11) dstr_966__CLASS_SEXPR; struct BASILYS_ROUTINE_STRUCT(2) drout_967__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_968__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(37) drout_969__COMPILOBJ_NREP_CITERATION; struct BASILYS_CLOSURE_STRUCT(0) dclo_970__COMPILOBJ_NREP_CITERATION; struct BASILYS_OBJECT_STRUCT(3) dsym_971__CLASS_NREP_CITERATION; struct BASILYS_STRING_STRUCT(21) dstr_972__CLASS_NREP_CITER; struct BASILYS_OBJECT_STRUCT(3) dsym_973__CLASS_CITERATOR; struct BASILYS_STRING_STRUCT(15) dstr_974__CLASS_CITERATOR; struct BASILYS_ROUTINE_STRUCT(5) drout_975__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_976__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_977__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(7) drout_978__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_979__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_980__COMPILOBJ_NREP_SETQ; struct BASILYS_CLOSURE_STRUCT(0) dclo_981__COMPILOBJ_NREP_SETQ; struct BASILYS_OBJECT_STRUCT(3) dsym_982__CLASS_NREP_SETQ; struct BASILYS_STRING_STRUCT(15) dstr_983__CLASS_NREP_SETQ; struct BASILYS_ROUTINE_STRUCT(9) drout_984__COMPILOBJ_NREP_PROGN; struct BASILYS_CLOSURE_STRUCT(0) dclo_985__COMPILOBJ_NREP_PROGN; struct BASILYS_OBJECT_STRUCT(3) dsym_986__CLASS_NREP_PROGN; struct BASILYS_STRING_STRUCT(16) dstr_987__CLASS_NREP_PROGN; struct BASILYS_ROUTINE_STRUCT(1) drout_988__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(11) drout_989__COMPILOBJ_NREP_MULTACC; struct BASILYS_CLOSURE_STRUCT(0) dclo_990__COMPILOBJ_NREP_MULTACC; struct BASILYS_OBJECT_STRUCT(3) dsym_991__CLASS_NREP_MULTACC; struct BASILYS_STRING_STRUCT(18) dstr_992__CLASS_NREP_MULTA; struct BASILYS_ROUTINE_STRUCT(5) drout_993__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(15) drout_994__COMPILOBJ_NREP_FIELDACC; struct BASILYS_CLOSURE_STRUCT(0) dclo_995__COMPILOBJ_NREP_FIELDACC; struct BASILYS_OBJECT_STRUCT(3) dsym_996__CLASS_NREP_FIELDACC; struct BASILYS_STRING_STRUCT(19) dstr_997__CLASS_NREP_FIELD; struct BASILYS_ROUTINE_STRUCT(5) drout_998__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_999__CLASS_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_1000__CLASS_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_1001__CLASS_NREP_DATAINSTANCE; struct BASILYS_STRING_STRUCT(23) dstr_1002__CLASS_NREP_DATAI; struct BASILYS_ROUTINE_STRUCT(6) drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD; struct BASILYS_CLOSURE_STRUCT(0) dclo_1004__COMPILOBJ_NREP_UNSAFE_GET_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD; struct BASILYS_STRING_STRUCT(27) dstr_1006__CLASS_NREP_UNSAF; struct BASILYS_ROUTINE_STRUCT(15) drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1008__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_OBJECT_STRUCT(3) dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_STRING_STRUCT(28) dstr_1010__CLASS_NREP_UNSAF; struct BASILYS_ROUTINE_STRUCT(6) drout_1011__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1012__CLASS_NREP_FIELDASSIGN; struct BASILYS_STRING_STRUCT(22) dstr_1013__CLASS_NREP_FIELD; struct BASILYS_ROUTINE_STRUCT(10) drout_1014__COMPILOBJ_NREP_APPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_1015__COMPILOBJ_NREP_APPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_1016__CLASS_NREP_APPLY; struct BASILYS_STRING_STRUCT(16) dstr_1017__CLASS_NREP_APPLY; struct BASILYS_ROUTINE_STRUCT(2) drout_1018__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(24) drout_1019__COMPILOBJ_NREP_MULTIAPPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_1020__COMPILOBJ_NREP_MULTIAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_1021__CLASS_NREP_MULTIAPPLY; struct BASILYS_STRING_STRUCT(21) dstr_1022__CLASS_NREP_MULTI; struct BASILYS_ROUTINE_STRUCT(4) drout_1023__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1024__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_1025__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1026__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1027__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(9) drout_1028__COMPILOBJ_NREP_MSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_1029__COMPILOBJ_NREP_MSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_1030__CLASS_NREP_MSEND; struct BASILYS_STRING_STRUCT(16) dstr_1031__CLASS_NREP_MSEND; struct BASILYS_ROUTINE_STRUCT(1) drout_1032__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(24) drout_1033__COMPILOBJ_NREP_MULTIMSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_1034__COMPILOBJ_NREP_MULTIMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_1035__CLASS_NREP_MULTIMSEND; struct BASILYS_STRING_STRUCT(21) dstr_1036__CLASS_NREP_MULTI; struct BASILYS_ROUTINE_STRUCT(4) drout_1037__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1038__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_1039__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1040__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1041__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1042__COMPILOBJ_ANY_BINDING; struct BASILYS_CLOSURE_STRUCT(0) dclo_1043__COMPILOBJ_ANY_BINDING; struct BASILYS_ROUTINE_STRUCT(4) drout_1044__COMPILOBJ_VALUE_BINDING; struct BASILYS_CLOSURE_STRUCT(0) dclo_1045__COMPILOBJ_VALUE_BINDING; struct BASILYS_OBJECT_STRUCT(3) dsym_1046__CLASS_VALUE_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1047__CLASS_VALUE_BIND; struct BASILYS_ROUTINE_STRUCT(4) drout_1048__COMPILOBJ_FIXED_BINDING; struct BASILYS_CLOSURE_STRUCT(0) dclo_1049__COMPILOBJ_FIXED_BINDING; struct BASILYS_OBJECT_STRUCT(3) dsym_1050__CLASS_FIXED_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1051__CLASS_FIXED_BIND; struct BASILYS_ROUTINE_STRUCT(9) drout_1052__PUTOBJDEST_OBJVALUE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1053__PUTOBJDEST_OBJVALUE; struct BASILYS_ROUTINE_STRUCT(5) drout_1054__PUTOBJDEST_INTEGER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1055__PUTOBJDEST_INTEGER; struct BASILYS_ROUTINE_STRUCT(6) drout_1056__PUTOBJDEST_NULL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1057__PUTOBJDEST_NULL; struct BASILYS_OBJECT_STRUCT(3) dsym_1058__DISCR_NULLRECV; struct BASILYS_STRING_STRUCT(14) dstr_1059__DISCR_NULLRECV; struct BASILYS_ROUTINE_STRUCT(3) drout_1060__PUTOBJDEST_OBJBLOCK; struct BASILYS_CLOSURE_STRUCT(0) dclo_1061__PUTOBJDEST_OBJBLOCK; struct BASILYS_ROUTINE_STRUCT(3) drout_1062__PUTOBJDEST_OBJMULTIBLOCK; struct BASILYS_CLOSURE_STRUCT(0) dclo_1063__PUTOBJDEST_OBJMULTIBLOCK; struct BASILYS_ROUTINE_STRUCT(5) drout_1064__PUTOBJDEST_OBJLOOP; struct BASILYS_CLOSURE_STRUCT(0) dclo_1065__PUTOBJDEST_OBJLOOP; struct BASILYS_ROUTINE_STRUCT(2) drout_1066__PUTOBJDEST_OBJEXIT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1067__PUTOBJDEST_OBJEXIT; struct BASILYS_ROUTINE_STRUCT(7) drout_1068__COMPILOBJ_NREP_IF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1069__COMPILOBJ_NREP_IF; struct BASILYS_OBJECT_STRUCT(3) dsym_1070__CLASS_NREP_IF; struct BASILYS_STRING_STRUCT(13) dstr_1071__CLASS_NREP_IF; struct BASILYS_ROUTINE_STRUCT(10) drout_1072__COMPILOBJ_NREP_IFISA; struct BASILYS_CLOSURE_STRUCT(0) dclo_1073__COMPILOBJ_NREP_IFISA; struct BASILYS_OBJECT_STRUCT(3) dsym_1074__CLASS_NREP_IFISA; struct BASILYS_STRING_STRUCT(16) dstr_1075__CLASS_NREP_IFISA; struct BASILYS_ROUTINE_STRUCT(3) drout_1076__PUTOBJDEST_OBJCOND; struct BASILYS_CLOSURE_STRUCT(0) dclo_1077__PUTOBJDEST_OBJCOND; struct BASILYS_ROUTINE_STRUCT(6) drout_1078__COMPILOBJ_NREP_CPPIF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1079__COMPILOBJ_NREP_CPPIF; struct BASILYS_OBJECT_STRUCT(3) dsym_1080__CLASS_NREP_CPPIF; struct BASILYS_STRING_STRUCT(16) dstr_1081__CLASS_NREP_CPPIF; struct BASILYS_ROUTINE_STRUCT(3) drout_1082__PUTOBJDEST_OBJCPPIF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1083__PUTOBJDEST_OBJCPPIF; struct BASILYS_ROUTINE_STRUCT(14) drout_1084__COMPILOBJ_NREP_RETURN; struct BASILYS_CLOSURE_STRUCT(0) dclo_1085__COMPILOBJ_NREP_RETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_1086__CLASS_NREP_RETURN; struct BASILYS_STRING_STRUCT(17) dstr_1087__CLASS_NREP_RETUR; struct BASILYS_ROUTINE_STRUCT(3) drout_1088__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1089__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1090__DISCRCLOSURE_OBJPREDEF; struct BASILYS_STRING_STRUCT(22) dstr_1091__DISCRCLOSURE_OBJ; struct BASILYS_OBJECT_STRUCT(2) dobj_1092__DISCRCLOSURE_OBJPREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_1093__DISCR_CLOSURE; struct BASILYS_STRING_STRUCT(13) dstr_1094__DISCR_CLOSURE; struct BASILYS_ROUTINE_STRUCT(17) drout_1095__COMPILOBJ_NREP_LAMBDA; struct BASILYS_CLOSURE_STRUCT(0) dclo_1096__COMPILOBJ_NREP_LAMBDA; struct BASILYS_OBJECT_STRUCT(3) dsym_1097__CLASS_NREP_LAMBDA; struct BASILYS_STRING_STRUCT(17) dstr_1098__CLASS_NREP_LAMBD; struct BASILYS_ROUTINE_STRUCT(4) drout_1099__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(19) drout_1100__COMPILOBJ_NREP_MAKEINST; struct BASILYS_CLOSURE_STRUCT(0) dclo_1101__COMPILOBJ_NREP_MAKEINST; struct BASILYS_OBJECT_STRUCT(3) dsym_1102__CLASS_NREP_MAKE_INSTANCE; struct BASILYS_STRING_STRUCT(24) dstr_1103__CLASS_NREP_MAKE_; struct BASILYS_OBJECT_STRUCT(3) dsym_1104__CLASS_CLASS; struct BASILYS_STRING_STRUCT(11) dstr_1105__CLASS_CLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_1106__INST; struct BASILYS_STRING_STRUCT(4) dstr_1107__INST; struct BASILYS_ROUTINE_STRUCT(6) drout_1108__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(3) drout_1109__COMPILOBJ_ROUTPROC; struct BASILYS_CLOSURE_STRUCT(0) dclo_1110__COMPILOBJ_ROUTPROC; struct BASILYS_ROUTINE_STRUCT(3) drout_1111__COMPILOBJ_PREDEF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1112__COMPILOBJ_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_1113__CLASS_NREP_PREDEF; struct BASILYS_STRING_STRUCT(17) dstr_1114__CLASS_NREP_PREDE; struct BASILYS_ROUTINE_STRUCT(32) drout_1115__COMPIL_DATA_AND_SLOTS_FILL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1116__COMPIL_DATA_AND_SLOTS_FILL; struct BASILYS_OBJECT_STRUCT(3) dsym_1117__VALDATA_; struct BASILYS_STRING_STRUCT(9) dstr_1118__VALDATA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1119__VALUEDATA_; struct BASILYS_STRING_STRUCT(11) dstr_1120__VALUEDATA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1121__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1122__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1123__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1125__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL; struct BASILYS_ROUTINE_STRUCT(1) drout_1126__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(10) drout_1127__COMPILOBJ_DATASYMBOL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1128__COMPILOBJ_DATASYMBOL; struct BASILYS_ROUTINE_STRUCT(9) drout_1129__COMPILOBJ_DATAINSTANCE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1130__COMPILOBJ_DATAINSTANCE; struct BASILYS_ROUTINE_STRUCT(20) drout_1131__COMPILOBJ_DATATUPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1132__COMPILOBJ_DATATUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_1133__CLASS_NREP_DATATUPLE; struct BASILYS_STRING_STRUCT(20) dstr_1134__CLASS_NREP_DATAT; struct BASILYS_ROUTINE_STRUCT(1) drout_1135__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1136__VALTUP_; struct BASILYS_STRING_STRUCT(8) dstr_1137__VALTUP_; struct BASILYS_OBJECT_STRUCT(3) dsym_1138__INITUP_; struct BASILYS_STRING_STRUCT(8) dstr_1139__INITUP_; struct BASILYS_ROUTINE_STRUCT(2) drout_1140__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(10) drout_1141__COMPILOBJ_DATASTRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_1142__COMPILOBJ_DATASTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_1143__CLASS_NREP_DATASTRING; struct BASILYS_STRING_STRUCT(21) dstr_1144__CLASS_NREP_DATAS; struct BASILYS_OBJECT_STRUCT(3) dsym_1145__VALSTR_; struct BASILYS_STRING_STRUCT(8) dstr_1146__VALSTR_; struct BASILYS_ROUTINE_STRUCT(23) drout_1147__COMPILOBJ_DATACLOSURE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1148__COMPILOBJ_DATACLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_1149__CLASS_NREP_DATACLOSURE; struct BASILYS_STRING_STRUCT(22) dstr_1150__CLASS_NREP_DATAC; struct BASILYS_OBJECT_STRUCT(3) dsym_1151__VALCLO_; struct BASILYS_STRING_STRUCT(8) dstr_1152__VALCLO_; struct BASILYS_OBJECT_STRUCT(3) dsym_1153__DATACLOSURE_; struct BASILYS_STRING_STRUCT(13) dstr_1154__DATACLOSURE_; struct BASILYS_OBJECT_STRUCT(3) dsym_1155__CLASS_NREP_DATAROUTINE; struct BASILYS_STRING_STRUCT(22) dstr_1156__CLASS_NREP_DATAR; struct BASILYS_ROUTINE_STRUCT(3) drout_1157__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(27) drout_1158__COMPILOBJ_DATAROUTINE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1159__COMPILOBJ_DATAROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_1160__VALROUT_; struct BASILYS_STRING_STRUCT(9) dstr_1161__VALROUT_; struct BASILYS_OBJECT_STRUCT(3) dsym_1162__IROUTVAL_; struct BASILYS_STRING_STRUCT(10) dstr_1163__IROUTVAL_; struct BASILYS_ROUTINE_STRUCT(9) drout_1164__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1165__CLASS_NREP_QUASIDATA; struct BASILYS_STRING_STRUCT(20) dstr_1166__CLASS_NREP_QUASI; struct BASILYS_ROUTINE_STRUCT(3) drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1168__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(57) dstr_1170__CLASS_NREP_QUASI; struct BASILYS_ROUTINE_STRUCT(3) drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1172__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_STRING_STRUCT(46) dstr_1174__CLASS_NREP_QUASI; struct BASILYS_ROUTINE_STRUCT(10) drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED; struct BASILYS_CLOSURE_STRUCT(0) dclo_1176__COMPILOBJ_NREP_STORE_PREDEFINED; struct BASILYS_OBJECT_STRUCT(3) dsym_1177__CLASS_NREP_STORE_PREDEFINED; struct BASILYS_STRING_STRUCT(27) dstr_1178__CLASS_NREP_STORE; struct BASILYS_ROUTINE_STRUCT(24) drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1180__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(54) dstr_1182__CLASS_NREP_UPDAT; struct BASILYS_ROUTINE_STRUCT(15) drout_1183__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(8) drout_1184__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1185__COMPILE_MATCHER; struct BASILYS_STRING_STRUCT(15) dstr_1186__COMPILE_MATCHER; struct BASILYS_OBJECT_STRUCT(4) dobj_1187__COMPILE_MATCHER; struct BASILYS_STRING_STRUCT(15) dstr_1188__COMPILE_MATCHER; struct BASILYS_OBJECT_STRUCT(3) dsym_1189__CLASS_MATCHCOMPILCONTEXT; struct BASILYS_STRING_STRUCT(24) dstr_1190__CLASS_MATCHCOMPI; struct BASILYS_OBJECT_STRUCT(3) dsym_1191__CLASS_PROPED; struct BASILYS_STRING_STRUCT(12) dstr_1192__CLASS_PROPED; struct BASILYS_OBJECT_STRUCT(9) dobj_1193__CLASS_MATCHCOMPILCONTEXT; struct BASILYS_STRING_STRUCT(24) dstr_1194__CLASS_MATCHCOMPI; struct BASILYS_MULTIPLE_STRUCT(2) dtup_1195__CLASS_MATCHCOMPILCONTEXT; struct BASILYS_MULTIPLE_STRUCT(7) dtup_1196__CLASS_MATCHCOMPILCONTEXT; struct BASILYS_OBJECT_STRUCT(3) dsym_1197__MCX_LOC; struct BASILYS_STRING_STRUCT(7) dstr_1198__MCX_LOC; struct BASILYS_OBJECT_STRUCT(4) dobj_1199__MCX_LOC; struct BASILYS_STRING_STRUCT(7) dstr_1200__MCX_LOC; struct BASILYS_OBJECT_STRUCT(3) dsym_1201__MCX_NORMTESTER; struct BASILYS_STRING_STRUCT(14) dstr_1202__MCX_NORMTESTER; struct BASILYS_OBJECT_STRUCT(4) dobj_1203__MCX_NORMTESTER; struct BASILYS_STRING_STRUCT(14) dstr_1204__MCX_NORMTESTER; struct BASILYS_OBJECT_STRUCT(3) dsym_1205__MCX_GOTOTHEN; struct BASILYS_STRING_STRUCT(12) dstr_1206__MCX_GOTOTHEN; struct BASILYS_OBJECT_STRUCT(4) dobj_1207__MCX_GOTOTHEN; struct BASILYS_STRING_STRUCT(12) dstr_1208__MCX_GOTOTHEN; struct BASILYS_OBJECT_STRUCT(3) dsym_1209__MCX_GOTOELSE; struct BASILYS_STRING_STRUCT(12) dstr_1210__MCX_GOTOELSE; struct BASILYS_OBJECT_STRUCT(4) dobj_1211__MCX_GOTOELSE; struct BASILYS_STRING_STRUCT(12) dstr_1212__MCX_GOTOELSE; struct BASILYS_OBJECT_STRUCT(3) dsym_1213__MCX_OLIST; struct BASILYS_STRING_STRUCT(9) dstr_1214__MCX_OLIST; struct BASILYS_OBJECT_STRUCT(4) dobj_1215__MCX_OLIST; struct BASILYS_STRING_STRUCT(9) dstr_1216__MCX_OLIST; struct BASILYS_OBJECT_STRUCT(3) dsym_1217__MCX_PREFIX; struct BASILYS_STRING_STRUCT(10) dstr_1218__MCX_PREFIX; struct BASILYS_OBJECT_STRUCT(4) dobj_1219__MCX_PREFIX; struct BASILYS_STRING_STRUCT(10) dstr_1220__MCX_PREFIX; struct BASILYS_OBJECT_STRUCT(3) dsym_1221__COMPILE_TESTER; struct BASILYS_STRING_STRUCT(14) dstr_1222__COMPILE_TESTER; struct BASILYS_OBJECT_STRUCT(4) dobj_1223__COMPILE_TESTER; struct BASILYS_STRING_STRUCT(14) dstr_1224__COMPILE_TESTER; struct BASILYS_OBJECT_STRUCT(3) dsym_1225__CLASS_TESTERCOMPILCONTEXT; struct BASILYS_STRING_STRUCT(25) dstr_1226__CLASS_TESTERCOMP; struct BASILYS_OBJECT_STRUCT(9) dobj_1227__CLASS_TESTERCOMPILCONTEXT; struct BASILYS_STRING_STRUCT(25) dstr_1228__CLASS_TESTERCOMP; struct BASILYS_MULTIPLE_STRUCT(2) dtup_1229__CLASS_TESTERCOMPILCONTEXT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_1230__CLASS_TESTERCOMPILCONTEXT; struct BASILYS_OBJECT_STRUCT(3) dsym_1231__TCX_NRMATCH; struct BASILYS_STRING_STRUCT(11) dstr_1232__TCX_NRMATCH; struct BASILYS_OBJECT_STRUCT(4) dobj_1233__TCX_NRMATCH; struct BASILYS_STRING_STRUCT(11) dstr_1234__TCX_NRMATCH; struct BASILYS_OBJECT_STRUCT(3) dsym_1235__TCX_FREELIST; struct BASILYS_STRING_STRUCT(12) dstr_1236__TCX_FREELIST; struct BASILYS_OBJECT_STRUCT(4) dobj_1237__TCX_FREELIST; struct BASILYS_STRING_STRUCT(12) dstr_1238__TCX_FREELIST; struct BASILYS_ROUTINE_STRUCT(4) drout_1239__COMPILTST_ANYTESTER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1240__COMPILTST_ANYTESTER; struct BASILYS_OBJECT_STRUCT(3) dsym_1241__CLASS_NORMTESTER_ANY; struct BASILYS_STRING_STRUCT(20) dstr_1242__CLASS_NORMTESTER; struct BASILYS_ROUTINE_STRUCT(26) drout_1243__COMPILOBJ_NREP_MATCH; struct BASILYS_CLOSURE_STRUCT(0) dclo_1244__COMPILOBJ_NREP_MATCH; struct BASILYS_OBJECT_STRUCT(3) dsym_1245__CLASS_NREP_MATCH; struct BASILYS_STRING_STRUCT(16) dstr_1246__CLASS_NREP_MATCH; struct BASILYS_OBJECT_STRUCT(3) dsym_1247__LIST_APPEND2LIST; struct BASILYS_STRING_STRUCT(16) dstr_1248__LIST_APPEND2LIST; struct BASILYS_OBJECT_STRUCT(3) dsym_1249__CLASS_NORMTESTER_SUCCESS; struct BASILYS_STRING_STRUCT(24) dstr_1250__CLASS_NORMTESTER; struct BASILYS_OBJECT_STRUCT(3) dsym_1251__MAPOBJECT_EVERY; struct BASILYS_STRING_STRUCT(15) dstr_1252__MAPOBJECT_EVERY; struct BASILYS_ROUTINE_STRUCT(2) drout_1253__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1254__LIST_FIND; struct BASILYS_STRING_STRUCT(9) dstr_1255__LIST_FIND; struct BASILYS_ROUTINE_STRUCT(5) drout_1256__NORMTESTER_LABELINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_1257__NORMTESTER_LABELINSTR; struct BASILYS_ROUTINE_STRUCT(5) drout_1258__NORMTESTER_GOTOINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_1259__NORMTESTER_GOTOINSTR; struct BASILYS_ROUTINE_STRUCT(5) drout_1260__ENDMATCH_GOTOINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_1261__ENDMATCH_GOTOINSTR; struct BASILYS_ROUTINE_STRUCT(10) drout_1262__NORMTESTER_FREE_OBJLOC_LIST; struct BASILYS_CLOSURE_STRUCT(0) dclo_1263__NORMTESTER_FREE_OBJLOC_LIST; struct BASILYS_ROUTINE_STRUCT(3) drout_1264__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1265__CLASS_NREP_SYMOCC; struct BASILYS_STRING_STRUCT(17) dstr_1266__CLASS_NREP_SYMOC; struct BASILYS_ROUTINE_STRUCT(12) drout_1267__COMPILTST_NORMTESTER_MATCHER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1268__COMPILTST_NORMTESTER_MATCHER; struct BASILYS_OBJECT_STRUCT(3) dsym_1269__CLASS_NORMTESTER_MATCHER; struct BASILYS_STRING_STRUCT(24) dstr_1270__CLASS_NORMTESTER; struct BASILYS_ROUTINE_STRUCT(20) drout_1271__COMPILTST_NORMTESTER_INSTANCE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1272__COMPILTST_NORMTESTER_INSTANCE; struct BASILYS_OBJECT_STRUCT(3) dsym_1273__CLASS_NORMTESTER_INSTANCE; struct BASILYS_STRING_STRUCT(25) dstr_1274__CLASS_NORMTESTER; struct BASILYS_ROUTINE_STRUCT(16) drout_1275__COMPILTST_NORMTESTER_SAME; struct BASILYS_CLOSURE_STRUCT(0) dclo_1276__COMPILTST_NORMTESTER_SAME; struct BASILYS_OBJECT_STRUCT(3) dsym_1277__CLASS_NORMTESTER_SAME; struct BASILYS_STRING_STRUCT(21) dstr_1278__CLASS_NORMTESTER; struct BASILYS_ROUTINE_STRUCT(7) drout_1279__COMPILTST_NORMTESTER_SUCCESS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1280__COMPILTST_NORMTESTER_SUCCESS; struct BASILYS_OBJECT_STRUCT(3) dsym_1281__LIST2; struct BASILYS_STRING_STRUCT(5) dstr_1282__LIST2; struct BASILYS_ROUTINE_STRUCT(37) drout_1283__COMPILMATCHER_CMATCHER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1284__COMPILMATCHER_CMATCHER; struct BASILYS_OBJECT_STRUCT(3) dsym_1285__CLASS_CMATCHER; struct BASILYS_STRING_STRUCT(14) dstr_1286__CLASS_CMATCHER; struct BASILYS_OBJECT_STRUCT(3) dsym_1287__MULTIPLE_EVERY_BOTH; struct BASILYS_STRING_STRUCT(19) dstr_1288__MULTIPLE_EVERY_B; struct BASILYS_ROUTINE_STRUCT(4) drout_1289__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1290__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_1291__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1292__LAMBDA_; long spare_; } *cdat = NULL; cdat = (struct cdata_st*) basilysgc_allocate(sizeof(*cdat),0); basilys_prohibit_garbcoll = TRUE; /*initial routine predef*/ /*initial routine fill*/ /*iniobj dsym_1__CLASS_OBJVALUE*/ if (!/*_.VALDATA___V116*/ curfptr[115]) /*_.VALDATA___V116*/ curfptr[115] = (void*)&cdat->dsym_1__CLASS_OBJVALUE; basilys_assertmsg("iniobj checkdiscr dsym_1__CLASS_OBJVALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__CLASS_OBJVALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__CLASS_OBJVALUE.obj_hash = 1057853242; cdat->dsym_1__CLASS_OBJVALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1__CLASS_OBJVALUE)); /*inistring dstr_2__CLASS_OBJVALUE*/ /*_.VALSTR___V117*/ curfptr[116] = (void*)&cdat->dstr_2__CLASS_OBJVALUE; cdat->dstr_2__CLASS_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_2__CLASS_OBJVALUE.val, "CLASS_OBJVALUE", sizeof(cdat->dstr_2__CLASS_OBJVALUE.val)-1); /*iniobj dsym_3__CLASS_OBJCODE*/ if (!/*_.VALDATA___V118*/ curfptr[117]) /*_.VALDATA___V118*/ curfptr[117] = (void*)&cdat->dsym_3__CLASS_OBJCODE; basilys_assertmsg("iniobj checkdiscr dsym_3__CLASS_OBJCODE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_OBJCODE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_OBJCODE.obj_hash = 357013557; cdat->dsym_3__CLASS_OBJCODE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_3__CLASS_OBJCODE)); /*inistring dstr_4__CLASS_OBJCODE*/ /*_.VALSTR___V119*/ curfptr[118] = (void*)&cdat->dstr_4__CLASS_OBJCODE; cdat->dstr_4__CLASS_OBJCODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_4__CLASS_OBJCODE.val, "CLASS_OBJCODE", sizeof(cdat->dstr_4__CLASS_OBJCODE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:34:/ iniobj"); /*iniobj dobj_5__CLASS_OBJVALUE*/ if (!/*_.VALDATA___V120*/ curfptr[119]) /*_.VALDATA___V120*/ curfptr[119] = (void*)&cdat->dobj_5__CLASS_OBJVALUE; basilys_assertmsg("iniobj checkdiscr dobj_5__CLASS_OBJVALUE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_5__CLASS_OBJVALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_5__CLASS_OBJVALUE.obj_num = OBMAG_OBJECT; cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 645527440; cdat->dobj_5__CLASS_OBJVALUE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_5__CLASS_OBJVALUE)); /*inistring dstr_6__CLASS_OBJVALUE*/ /*_.VALSTR___V121*/ curfptr[120] = (void*)&cdat->dstr_6__CLASS_OBJVALUE; cdat->dstr_6__CLASS_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_6__CLASS_OBJVALUE.val, "CLASS_OBJVALUE", sizeof(cdat->dstr_6__CLASS_OBJVALUE.val)-1); /*inimult dtup_7__CLASS_OBJVALUE*/ /*_.VALTUP___V122*/ curfptr[121] = (void*)&cdat->dtup_7__CLASS_OBJVALUE; cdat->dtup_7__CLASS_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_7__CLASS_OBJVALUE.nbval = 2; /*inimult dtup_8__CLASS_OBJVALUE*/ /*_.VALTUP___V125*/ curfptr[124] = (void*)&cdat->dtup_8__CLASS_OBJVALUE; cdat->dtup_8__CLASS_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_8__CLASS_OBJVALUE.nbval = 1; /*iniobj dsym_9__OBV_TYPE*/ if (!/*_.VALDATA___V126*/ curfptr[125]) /*_.VALDATA___V126*/ curfptr[125] = (void*)&cdat->dsym_9__OBV_TYPE; basilys_assertmsg("iniobj checkdiscr dsym_9__OBV_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__OBV_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__OBV_TYPE.obj_hash = 139676463; cdat->dsym_9__OBV_TYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_9__OBV_TYPE)); /*inistring dstr_10__OBV_TYPE*/ /*_.VALSTR___V127*/ curfptr[126] = (void*)&cdat->dstr_10__OBV_TYPE; cdat->dstr_10__OBV_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_10__OBV_TYPE.val, "OBV_TYPE", sizeof(cdat->dstr_10__OBV_TYPE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:34:/ iniobj"); /*iniobj dobj_11__OBV_TYPE*/ if (!/*_.VALDATA___V123*/ curfptr[122]) /*_.VALDATA___V123*/ curfptr[122] = (void*)&cdat->dobj_11__OBV_TYPE; basilys_assertmsg("iniobj checkdiscr dobj_11__OBV_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_11__OBV_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_11__OBV_TYPE.obj_num = 0; cdat->dobj_11__OBV_TYPE.obj_hash = 727945005; cdat->dobj_11__OBV_TYPE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_11__OBV_TYPE)); /*inistring dstr_12__OBV_TYPE*/ /*_.VALSTR___V124*/ curfptr[123] = (void*)&cdat->dstr_12__OBV_TYPE; cdat->dstr_12__OBV_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_12__OBV_TYPE.val, "OBV_TYPE", sizeof(cdat->dstr_12__OBV_TYPE.val)-1); /*iniobj dsym_13__CLASS_OBJPUREVALUE*/ if (!/*_.VALDATA___V128*/ curfptr[127]) /*_.VALDATA___V128*/ curfptr[127] = (void*)&cdat->dsym_13__CLASS_OBJPUREVALUE; basilys_assertmsg("iniobj checkdiscr dsym_13__CLASS_OBJPUREVALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_13__CLASS_OBJPUREVALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_13__CLASS_OBJPUREVALUE.obj_hash = 439671425; cdat->dsym_13__CLASS_OBJPUREVALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_13__CLASS_OBJPUREVALUE)); /*inistring dstr_14__CLASS_OBJPUREVAL*/ /*_.VALSTR___V129*/ curfptr[128] = (void*)&cdat->dstr_14__CLASS_OBJPUREVAL; cdat->dstr_14__CLASS_OBJPUREVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_14__CLASS_OBJPUREVAL.val, "CLASS_OBJPUREVALUE", sizeof(cdat->dstr_14__CLASS_OBJPUREVAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:41:/ iniobj"); /*iniobj dobj_15__CLASS_OBJPUREVALUE*/ if (!/*_.VALDATA___V130*/ curfptr[129]) /*_.VALDATA___V130*/ curfptr[129] = (void*)&cdat->dobj_15__CLASS_OBJPUREVALUE; basilys_assertmsg("iniobj checkdiscr dobj_15__CLASS_OBJPUREVALUE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_15__CLASS_OBJPUREVALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_15__CLASS_OBJPUREVALUE.obj_num = OBMAG_OBJECT; cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 373680618; cdat->dobj_15__CLASS_OBJPUREVALUE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_15__CLASS_OBJPUREVALUE)); /*inistring dstr_16__CLASS_OBJPUREVAL*/ /*_.VALSTR___V131*/ curfptr[130] = (void*)&cdat->dstr_16__CLASS_OBJPUREVAL; cdat->dstr_16__CLASS_OBJPUREVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_16__CLASS_OBJPUREVAL.val, "CLASS_OBJPUREVALUE", sizeof(cdat->dstr_16__CLASS_OBJPUREVAL.val)-1); /*inimult dtup_17__CLASS_OBJPUREVALUE*/ /*_.VALTUP___V132*/ curfptr[131] = (void*)&cdat->dtup_17__CLASS_OBJPUREVALUE; cdat->dtup_17__CLASS_OBJPUREVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_17__CLASS_OBJPUREVALUE.nbval = 3; /*inimult dtup_18__CLASS_OBJPUREVALUE*/ /*_.VALTUP___V133*/ curfptr[132] = (void*)&cdat->dtup_18__CLASS_OBJPUREVALUE; cdat->dtup_18__CLASS_OBJPUREVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_18__CLASS_OBJPUREVALUE.nbval = 1; /*iniobj dsym_19__CLASS_OBJLOCV*/ if (!/*_.VALDATA___V134*/ curfptr[133]) /*_.VALDATA___V134*/ curfptr[133] = (void*)&cdat->dsym_19__CLASS_OBJLOCV; basilys_assertmsg("iniobj checkdiscr dsym_19__CLASS_OBJLOCV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_19__CLASS_OBJLOCV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_19__CLASS_OBJLOCV.obj_hash = 259875989; cdat->dsym_19__CLASS_OBJLOCV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_19__CLASS_OBJLOCV)); /*inistring dstr_20__CLASS_OBJLOCV*/ /*_.VALSTR___V135*/ curfptr[134] = (void*)&cdat->dstr_20__CLASS_OBJLOCV; cdat->dstr_20__CLASS_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_20__CLASS_OBJLOCV.val, "CLASS_OBJLOCV", sizeof(cdat->dstr_20__CLASS_OBJLOCV.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:47:/ iniobj"); /*iniobj dobj_21__CLASS_OBJLOCV*/ if (!/*_.VALDATA___V136*/ curfptr[135]) /*_.VALDATA___V136*/ curfptr[135] = (void*)&cdat->dobj_21__CLASS_OBJLOCV; basilys_assertmsg("iniobj checkdiscr dobj_21__CLASS_OBJLOCV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_21__CLASS_OBJLOCV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_21__CLASS_OBJLOCV.obj_num = OBMAG_OBJECT; cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 568934935; cdat->dobj_21__CLASS_OBJLOCV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_21__CLASS_OBJLOCV)); /*inistring dstr_22__CLASS_OBJLOCV*/ /*_.VALSTR___V137*/ curfptr[136] = (void*)&cdat->dstr_22__CLASS_OBJLOCV; cdat->dstr_22__CLASS_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_22__CLASS_OBJLOCV.val, "CLASS_OBJLOCV", sizeof(cdat->dstr_22__CLASS_OBJLOCV.val)-1); /*inimult dtup_23__CLASS_OBJLOCV*/ /*_.VALTUP___V138*/ curfptr[137] = (void*)&cdat->dtup_23__CLASS_OBJLOCV; cdat->dtup_23__CLASS_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_23__CLASS_OBJLOCV.nbval = 4; /*inimult dtup_24__CLASS_OBJLOCV*/ /*_.VALTUP___V145*/ curfptr[144] = (void*)&cdat->dtup_24__CLASS_OBJLOCV; cdat->dtup_24__CLASS_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_24__CLASS_OBJLOCV.nbval = 4; /*iniobj dsym_25__OBL_OFF*/ if (!/*_.VALDATA___V146*/ curfptr[145]) /*_.VALDATA___V146*/ curfptr[145] = (void*)&cdat->dsym_25__OBL_OFF; basilys_assertmsg("iniobj checkdiscr dsym_25__OBL_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_25__OBL_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_25__OBL_OFF.obj_hash = 452398508; cdat->dsym_25__OBL_OFF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_25__OBL_OFF)); /*inistring dstr_26__OBL_OFF*/ /*_.VALSTR___V147*/ curfptr[146] = (void*)&cdat->dstr_26__OBL_OFF; cdat->dstr_26__OBL_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_26__OBL_OFF.val, "OBL_OFF", sizeof(cdat->dstr_26__OBL_OFF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:47:/ iniobj"); /*iniobj dobj_27__OBL_OFF*/ if (!/*_.VALDATA___V139*/ curfptr[138]) /*_.VALDATA___V139*/ curfptr[138] = (void*)&cdat->dobj_27__OBL_OFF; basilys_assertmsg("iniobj checkdiscr dobj_27__OBL_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_27__OBL_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_27__OBL_OFF.obj_num = 1; cdat->dobj_27__OBL_OFF.obj_hash = 425414362; cdat->dobj_27__OBL_OFF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_27__OBL_OFF)); /*inistring dstr_28__OBL_OFF*/ /*_.VALSTR___V140*/ curfptr[139] = (void*)&cdat->dstr_28__OBL_OFF; cdat->dstr_28__OBL_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_28__OBL_OFF.val, "OBL_OFF", sizeof(cdat->dstr_28__OBL_OFF.val)-1); /*iniobj dsym_29__OBL_PROC*/ if (!/*_.VALDATA___V148*/ curfptr[147]) /*_.VALDATA___V148*/ curfptr[147] = (void*)&cdat->dsym_29__OBL_PROC; basilys_assertmsg("iniobj checkdiscr dsym_29__OBL_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_29__OBL_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_29__OBL_PROC.obj_hash = 397032469; cdat->dsym_29__OBL_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_29__OBL_PROC)); /*inistring dstr_30__OBL_PROC*/ /*_.VALSTR___V149*/ curfptr[148] = (void*)&cdat->dstr_30__OBL_PROC; cdat->dstr_30__OBL_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_30__OBL_PROC.val, "OBL_PROC", sizeof(cdat->dstr_30__OBL_PROC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:47:/ iniobj"); /*iniobj dobj_31__OBL_PROC*/ if (!/*_.VALDATA___V141*/ curfptr[140]) /*_.VALDATA___V141*/ curfptr[140] = (void*)&cdat->dobj_31__OBL_PROC; basilys_assertmsg("iniobj checkdiscr dobj_31__OBL_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_31__OBL_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_31__OBL_PROC.obj_num = 2; cdat->dobj_31__OBL_PROC.obj_hash = 90383741; cdat->dobj_31__OBL_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_31__OBL_PROC)); /*inistring dstr_32__OBL_PROC*/ /*_.VALSTR___V142*/ curfptr[141] = (void*)&cdat->dstr_32__OBL_PROC; cdat->dstr_32__OBL_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_32__OBL_PROC.val, "OBL_PROC", sizeof(cdat->dstr_32__OBL_PROC.val)-1); /*iniobj dsym_33__OBL_CNAME*/ if (!/*_.VALDATA___V150*/ curfptr[149]) /*_.VALDATA___V150*/ curfptr[149] = (void*)&cdat->dsym_33__OBL_CNAME; basilys_assertmsg("iniobj checkdiscr dsym_33__OBL_CNAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_33__OBL_CNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_33__OBL_CNAME.obj_hash = 1037789480; cdat->dsym_33__OBL_CNAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_33__OBL_CNAME)); /*inistring dstr_34__OBL_CNAME*/ /*_.VALSTR___V151*/ curfptr[150] = (void*)&cdat->dstr_34__OBL_CNAME; cdat->dstr_34__OBL_CNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_34__OBL_CNAME.val, "OBL_CNAME", sizeof(cdat->dstr_34__OBL_CNAME.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:47:/ iniobj"); /*iniobj dobj_35__OBL_CNAME*/ if (!/*_.VALDATA___V143*/ curfptr[142]) /*_.VALDATA___V143*/ curfptr[142] = (void*)&cdat->dobj_35__OBL_CNAME; basilys_assertmsg("iniobj checkdiscr dobj_35__OBL_CNAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_35__OBL_CNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_35__OBL_CNAME.obj_num = 3; cdat->dobj_35__OBL_CNAME.obj_hash = 15399470; cdat->dobj_35__OBL_CNAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_35__OBL_CNAME)); /*inistring dstr_36__OBL_CNAME*/ /*_.VALSTR___V144*/ curfptr[143] = (void*)&cdat->dstr_36__OBL_CNAME; cdat->dstr_36__OBL_CNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_36__OBL_CNAME.val, "OBL_CNAME", sizeof(cdat->dstr_36__OBL_CNAME.val)-1); /*iniobj dsym_37__CLASS_OBJCLOCCV*/ if (!/*_.VALDATA___V152*/ curfptr[151]) /*_.VALDATA___V152*/ curfptr[151] = (void*)&cdat->dsym_37__CLASS_OBJCLOCCV; basilys_assertmsg("iniobj checkdiscr dsym_37__CLASS_OBJCLOCCV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_37__CLASS_OBJCLOCCV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_37__CLASS_OBJCLOCCV.obj_hash = 195863179; cdat->dsym_37__CLASS_OBJCLOCCV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_37__CLASS_OBJCLOCCV)); /*inistring dstr_38__CLASS_OBJCLOCCV*/ /*_.VALSTR___V153*/ curfptr[152] = (void*)&cdat->dstr_38__CLASS_OBJCLOCCV; cdat->dstr_38__CLASS_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_38__CLASS_OBJCLOCCV.val, "CLASS_OBJCLOCCV", sizeof(cdat->dstr_38__CLASS_OBJCLOCCV.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:56:/ iniobj"); /*iniobj dobj_39__CLASS_OBJCLOCCV*/ if (!/*_.VALDATA___V154*/ curfptr[153]) /*_.VALDATA___V154*/ curfptr[153] = (void*)&cdat->dobj_39__CLASS_OBJCLOCCV; basilys_assertmsg("iniobj checkdiscr dobj_39__CLASS_OBJCLOCCV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_39__CLASS_OBJCLOCCV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_39__CLASS_OBJCLOCCV.obj_num = OBMAG_OBJECT; cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 134398004; cdat->dobj_39__CLASS_OBJCLOCCV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_39__CLASS_OBJCLOCCV)); /*inistring dstr_40__CLASS_OBJCLOCCV*/ /*_.VALSTR___V155*/ curfptr[154] = (void*)&cdat->dstr_40__CLASS_OBJCLOCCV; cdat->dstr_40__CLASS_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_40__CLASS_OBJCLOCCV.val, "CLASS_OBJCLOCCV", sizeof(cdat->dstr_40__CLASS_OBJCLOCCV.val)-1); /*inimult dtup_41__CLASS_OBJCLOCCV*/ /*_.VALTUP___V156*/ curfptr[155] = (void*)&cdat->dtup_41__CLASS_OBJCLOCCV; cdat->dtup_41__CLASS_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_41__CLASS_OBJCLOCCV.nbval = 4; /*inimult dtup_42__CLASS_OBJCLOCCV*/ /*_.VALTUP___V163*/ curfptr[162] = (void*)&cdat->dtup_42__CLASS_OBJCLOCCV; cdat->dtup_42__CLASS_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_42__CLASS_OBJCLOCCV.nbval = 4; /*iniobj dsym_43__OBC_OFF*/ if (!/*_.VALDATA___V164*/ curfptr[163]) /*_.VALDATA___V164*/ curfptr[163] = (void*)&cdat->dsym_43__OBC_OFF; basilys_assertmsg("iniobj checkdiscr dsym_43__OBC_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_43__OBC_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_43__OBC_OFF.obj_hash = 258307413; cdat->dsym_43__OBC_OFF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_43__OBC_OFF)); /*inistring dstr_44__OBC_OFF*/ /*_.VALSTR___V165*/ curfptr[164] = (void*)&cdat->dstr_44__OBC_OFF; cdat->dstr_44__OBC_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_44__OBC_OFF.val, "OBC_OFF", sizeof(cdat->dstr_44__OBC_OFF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:56:/ iniobj"); /*iniobj dobj_45__OBC_OFF*/ if (!/*_.VALDATA___V157*/ curfptr[156]) /*_.VALDATA___V157*/ curfptr[156] = (void*)&cdat->dobj_45__OBC_OFF; basilys_assertmsg("iniobj checkdiscr dobj_45__OBC_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_45__OBC_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_45__OBC_OFF.obj_num = 1; cdat->dobj_45__OBC_OFF.obj_hash = 689346708; cdat->dobj_45__OBC_OFF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_45__OBC_OFF)); /*inistring dstr_46__OBC_OFF*/ /*_.VALSTR___V158*/ curfptr[157] = (void*)&cdat->dstr_46__OBC_OFF; cdat->dstr_46__OBC_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_46__OBC_OFF.val, "OBC_OFF", sizeof(cdat->dstr_46__OBC_OFF.val)-1); /*iniobj dsym_47__OBC_PROC*/ if (!/*_.VALDATA___V166*/ curfptr[165]) /*_.VALDATA___V166*/ curfptr[165] = (void*)&cdat->dsym_47__OBC_PROC; basilys_assertmsg("iniobj checkdiscr dsym_47__OBC_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_47__OBC_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_47__OBC_PROC.obj_hash = 835315740; cdat->dsym_47__OBC_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_47__OBC_PROC)); /*inistring dstr_48__OBC_PROC*/ /*_.VALSTR___V167*/ curfptr[166] = (void*)&cdat->dstr_48__OBC_PROC; cdat->dstr_48__OBC_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_48__OBC_PROC.val, "OBC_PROC", sizeof(cdat->dstr_48__OBC_PROC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:56:/ iniobj"); /*iniobj dobj_49__OBC_PROC*/ if (!/*_.VALDATA___V159*/ curfptr[158]) /*_.VALDATA___V159*/ curfptr[158] = (void*)&cdat->dobj_49__OBC_PROC; basilys_assertmsg("iniobj checkdiscr dobj_49__OBC_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_49__OBC_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_49__OBC_PROC.obj_num = 2; cdat->dobj_49__OBC_PROC.obj_hash = 188184059; cdat->dobj_49__OBC_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_49__OBC_PROC)); /*inistring dstr_50__OBC_PROC*/ /*_.VALSTR___V160*/ curfptr[159] = (void*)&cdat->dstr_50__OBC_PROC; cdat->dstr_50__OBC_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_50__OBC_PROC.val, "OBC_PROC", sizeof(cdat->dstr_50__OBC_PROC.val)-1); /*iniobj dsym_51__OBC_NAME*/ if (!/*_.VALDATA___V168*/ curfptr[167]) /*_.VALDATA___V168*/ curfptr[167] = (void*)&cdat->dsym_51__OBC_NAME; basilys_assertmsg("iniobj checkdiscr dsym_51__OBC_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_51__OBC_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_51__OBC_NAME.obj_hash = 376794807; cdat->dsym_51__OBC_NAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_51__OBC_NAME)); /*inistring dstr_52__OBC_NAME*/ /*_.VALSTR___V169*/ curfptr[168] = (void*)&cdat->dstr_52__OBC_NAME; cdat->dstr_52__OBC_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_52__OBC_NAME.val, "OBC_NAME", sizeof(cdat->dstr_52__OBC_NAME.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:56:/ iniobj"); /*iniobj dobj_53__OBC_NAME*/ if (!/*_.VALDATA___V161*/ curfptr[160]) /*_.VALDATA___V161*/ curfptr[160] = (void*)&cdat->dobj_53__OBC_NAME; basilys_assertmsg("iniobj checkdiscr dobj_53__OBC_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_53__OBC_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_53__OBC_NAME.obj_num = 3; cdat->dobj_53__OBC_NAME.obj_hash = 387033766; cdat->dobj_53__OBC_NAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_53__OBC_NAME)); /*inistring dstr_54__OBC_NAME*/ /*_.VALSTR___V162*/ curfptr[161] = (void*)&cdat->dstr_54__OBC_NAME; cdat->dstr_54__OBC_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_54__OBC_NAME.val, "OBC_NAME", sizeof(cdat->dstr_54__OBC_NAME.val)-1); /*iniobj dsym_55__CLASS_OBJCONSTV*/ if (!/*_.VALDATA___V170*/ curfptr[169]) /*_.VALDATA___V170*/ curfptr[169] = (void*)&cdat->dsym_55__CLASS_OBJCONSTV; basilys_assertmsg("iniobj checkdiscr dsym_55__CLASS_OBJCONSTV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_55__CLASS_OBJCONSTV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_55__CLASS_OBJCONSTV.obj_hash = 125371776; cdat->dsym_55__CLASS_OBJCONSTV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_55__CLASS_OBJCONSTV)); /*inistring dstr_56__CLASS_OBJCONSTV*/ /*_.VALSTR___V171*/ curfptr[170] = (void*)&cdat->dstr_56__CLASS_OBJCONSTV; cdat->dstr_56__CLASS_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_56__CLASS_OBJCONSTV.val, "CLASS_OBJCONSTV", sizeof(cdat->dstr_56__CLASS_OBJCONSTV.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:65:/ iniobj"); /*iniobj dobj_57__CLASS_OBJCONSTV*/ if (!/*_.VALDATA___V172*/ curfptr[171]) /*_.VALDATA___V172*/ curfptr[171] = (void*)&cdat->dobj_57__CLASS_OBJCONSTV; basilys_assertmsg("iniobj checkdiscr dobj_57__CLASS_OBJCONSTV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_57__CLASS_OBJCONSTV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_57__CLASS_OBJCONSTV.obj_num = OBMAG_OBJECT; cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 59439123; cdat->dobj_57__CLASS_OBJCONSTV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_57__CLASS_OBJCONSTV)); /*inistring dstr_58__CLASS_OBJCONSTV*/ /*_.VALSTR___V173*/ curfptr[172] = (void*)&cdat->dstr_58__CLASS_OBJCONSTV; cdat->dstr_58__CLASS_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_58__CLASS_OBJCONSTV.val, "CLASS_OBJCONSTV", sizeof(cdat->dstr_58__CLASS_OBJCONSTV.val)-1); /*inimult dtup_59__CLASS_OBJCONSTV*/ /*_.VALTUP___V174*/ curfptr[173] = (void*)&cdat->dtup_59__CLASS_OBJCONSTV; cdat->dtup_59__CLASS_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_59__CLASS_OBJCONSTV.nbval = 5; /*inimult dtup_60__CLASS_OBJCONSTV*/ /*_.VALTUP___V175*/ curfptr[174] = (void*)&cdat->dtup_60__CLASS_OBJCONSTV; cdat->dtup_60__CLASS_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_60__CLASS_OBJCONSTV.nbval = 4; /*iniobj dsym_61__CLASS_OBJPREDEF*/ if (!/*_.VALDATA___V176*/ curfptr[175]) /*_.VALDATA___V176*/ curfptr[175] = (void*)&cdat->dsym_61__CLASS_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_61__CLASS_OBJPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_61__CLASS_OBJPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_61__CLASS_OBJPREDEF.obj_hash = 416230155; cdat->dsym_61__CLASS_OBJPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_61__CLASS_OBJPREDEF)); /*inistring dstr_62__CLASS_OBJPREDEF*/ /*_.VALSTR___V177*/ curfptr[176] = (void*)&cdat->dstr_62__CLASS_OBJPREDEF; cdat->dstr_62__CLASS_OBJPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_62__CLASS_OBJPREDEF.val, "CLASS_OBJPREDEF", sizeof(cdat->dstr_62__CLASS_OBJPREDEF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:71:/ iniobj"); /*iniobj dobj_63__CLASS_OBJPREDEF*/ if (!/*_.VALDATA___V178*/ curfptr[177]) /*_.VALDATA___V178*/ curfptr[177] = (void*)&cdat->dobj_63__CLASS_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_63__CLASS_OBJPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_63__CLASS_OBJPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_63__CLASS_OBJPREDEF.obj_num = OBMAG_OBJECT; cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 642749357; cdat->dobj_63__CLASS_OBJPREDEF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_63__CLASS_OBJPREDEF)); /*inistring dstr_64__CLASS_OBJPREDEF*/ /*_.VALSTR___V179*/ curfptr[178] = (void*)&cdat->dstr_64__CLASS_OBJPREDEF; cdat->dstr_64__CLASS_OBJPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_64__CLASS_OBJPREDEF.val, "CLASS_OBJPREDEF", sizeof(cdat->dstr_64__CLASS_OBJPREDEF.val)-1); /*inimult dtup_65__CLASS_OBJPREDEF*/ /*_.VALTUP___V180*/ curfptr[179] = (void*)&cdat->dtup_65__CLASS_OBJPREDEF; cdat->dtup_65__CLASS_OBJPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_65__CLASS_OBJPREDEF.nbval = 4; /*inimult dtup_66__CLASS_OBJPREDEF*/ /*_.VALTUP___V183*/ curfptr[182] = (void*)&cdat->dtup_66__CLASS_OBJPREDEF; cdat->dtup_66__CLASS_OBJPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_66__CLASS_OBJPREDEF.nbval = 2; /*iniobj dsym_67__OBPREDEF*/ if (!/*_.VALDATA___V184*/ curfptr[183]) /*_.VALDATA___V184*/ curfptr[183] = (void*)&cdat->dsym_67__OBPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_67__OBPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_67__OBPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_67__OBPREDEF.obj_hash = 465714734; cdat->dsym_67__OBPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_67__OBPREDEF)); /*inistring dstr_68__OBPREDEF*/ /*_.VALSTR___V185*/ curfptr[184] = (void*)&cdat->dstr_68__OBPREDEF; cdat->dstr_68__OBPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_68__OBPREDEF.val, "OBPREDEF", sizeof(cdat->dstr_68__OBPREDEF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:71:/ iniobj"); /*iniobj dobj_69__OBPREDEF*/ if (!/*_.VALDATA___V181*/ curfptr[180]) /*_.VALDATA___V181*/ curfptr[180] = (void*)&cdat->dobj_69__OBPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_69__OBPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_69__OBPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_69__OBPREDEF.obj_num = 1; cdat->dobj_69__OBPREDEF.obj_hash = 372596074; cdat->dobj_69__OBPREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_69__OBPREDEF)); /*inistring dstr_70__OBPREDEF*/ /*_.VALSTR___V182*/ curfptr[181] = (void*)&cdat->dstr_70__OBPREDEF; cdat->dstr_70__OBPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_70__OBPREDEF.val, "OBPREDEF", sizeof(cdat->dstr_70__OBPREDEF.val)-1); /*iniobj dsym_71__CLASS_OBJNIL*/ if (!/*_.VALDATA___V186*/ curfptr[185]) /*_.VALDATA___V186*/ curfptr[185] = (void*)&cdat->dsym_71__CLASS_OBJNIL; basilys_assertmsg("iniobj checkdiscr dsym_71__CLASS_OBJNIL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__CLASS_OBJNIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__CLASS_OBJNIL.obj_hash = 621637507; cdat->dsym_71__CLASS_OBJNIL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_71__CLASS_OBJNIL)); /*inistring dstr_72__CLASS_OBJNIL*/ /*_.VALSTR___V187*/ curfptr[186] = (void*)&cdat->dstr_72__CLASS_OBJNIL; cdat->dstr_72__CLASS_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_72__CLASS_OBJNIL.val, "CLASS_OBJNIL", sizeof(cdat->dstr_72__CLASS_OBJNIL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:77:/ iniobj"); /*iniobj dobj_73__CLASS_OBJNIL*/ if (!/*_.VALDATA___V188*/ curfptr[187]) /*_.VALDATA___V188*/ curfptr[187] = (void*)&cdat->dobj_73__CLASS_OBJNIL; basilys_assertmsg("iniobj checkdiscr dobj_73__CLASS_OBJNIL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_73__CLASS_OBJNIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_73__CLASS_OBJNIL.obj_num = OBMAG_OBJECT; cdat->dobj_73__CLASS_OBJNIL.obj_hash = 762722352; cdat->dobj_73__CLASS_OBJNIL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_73__CLASS_OBJNIL)); /*inistring dstr_74__CLASS_OBJNIL*/ /*_.VALSTR___V189*/ curfptr[188] = (void*)&cdat->dstr_74__CLASS_OBJNIL; cdat->dstr_74__CLASS_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_74__CLASS_OBJNIL.val, "CLASS_OBJNIL", sizeof(cdat->dstr_74__CLASS_OBJNIL.val)-1); /*inimult dtup_75__CLASS_OBJNIL*/ /*_.VALTUP___V190*/ curfptr[189] = (void*)&cdat->dtup_75__CLASS_OBJNIL; cdat->dtup_75__CLASS_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_75__CLASS_OBJNIL.nbval = 4; /*inimult dtup_76__CLASS_OBJNIL*/ /*_.VALTUP___V191*/ curfptr[190] = (void*)&cdat->dtup_76__CLASS_OBJNIL; cdat->dtup_76__CLASS_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_76__CLASS_OBJNIL.nbval = 1; /*iniobj dsym_77__CLASS_OBJINITELEM*/ if (!/*_.VALDATA___V192*/ curfptr[191]) /*_.VALDATA___V192*/ curfptr[191] = (void*)&cdat->dsym_77__CLASS_OBJINITELEM; basilys_assertmsg("iniobj checkdiscr dsym_77__CLASS_OBJINITELEM", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_77__CLASS_OBJINITELEM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_77__CLASS_OBJINITELEM.obj_hash = 129631203; cdat->dsym_77__CLASS_OBJINITELEM.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_77__CLASS_OBJINITELEM)); /*inistring dstr_78__CLASS_OBJINITELE*/ /*_.VALSTR___V193*/ curfptr[192] = (void*)&cdat->dstr_78__CLASS_OBJINITELE; cdat->dstr_78__CLASS_OBJINITELE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_78__CLASS_OBJINITELE.val, "CLASS_OBJINITELEM", sizeof(cdat->dstr_78__CLASS_OBJINITELE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:82:/ iniobj"); /*iniobj dobj_79__CLASS_OBJINITELEM*/ if (!/*_.VALDATA___V194*/ curfptr[193]) /*_.VALDATA___V194*/ curfptr[193] = (void*)&cdat->dobj_79__CLASS_OBJINITELEM; basilys_assertmsg("iniobj checkdiscr dobj_79__CLASS_OBJINITELEM", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_79__CLASS_OBJINITELEM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_79__CLASS_OBJINITELEM.obj_num = OBMAG_OBJECT; cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 389607063; cdat->dobj_79__CLASS_OBJINITELEM.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_79__CLASS_OBJINITELEM)); /*inistring dstr_80__CLASS_OBJINITELE*/ /*_.VALSTR___V195*/ curfptr[194] = (void*)&cdat->dstr_80__CLASS_OBJINITELE; cdat->dstr_80__CLASS_OBJINITELE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_80__CLASS_OBJINITELE.val, "CLASS_OBJINITELEM", sizeof(cdat->dstr_80__CLASS_OBJINITELE.val)-1); /*inimult dtup_81__CLASS_OBJINITELEM*/ /*_.VALTUP___V196*/ curfptr[195] = (void*)&cdat->dtup_81__CLASS_OBJINITELEM; cdat->dtup_81__CLASS_OBJINITELEM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_81__CLASS_OBJINITELEM.nbval = 4; /*inimult dtup_82__CLASS_OBJINITELEM*/ /*_.VALTUP___V205*/ curfptr[204] = (void*)&cdat->dtup_82__CLASS_OBJINITELEM; cdat->dtup_82__CLASS_OBJINITELEM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_82__CLASS_OBJINITELEM.nbval = 5; /*iniobj dsym_83__OIE_CNAME*/ if (!/*_.VALDATA___V206*/ curfptr[205]) /*_.VALDATA___V206*/ curfptr[205] = (void*)&cdat->dsym_83__OIE_CNAME; basilys_assertmsg("iniobj checkdiscr dsym_83__OIE_CNAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_83__OIE_CNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_83__OIE_CNAME.obj_hash = 681239945; cdat->dsym_83__OIE_CNAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_83__OIE_CNAME)); /*inistring dstr_84__OIE_CNAME*/ /*_.VALSTR___V207*/ curfptr[206] = (void*)&cdat->dstr_84__OIE_CNAME; cdat->dstr_84__OIE_CNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_84__OIE_CNAME.val, "OIE_CNAME", sizeof(cdat->dstr_84__OIE_CNAME.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:82:/ iniobj"); /*iniobj dobj_85__OIE_CNAME*/ if (!/*_.VALDATA___V197*/ curfptr[196]) /*_.VALDATA___V197*/ curfptr[196] = (void*)&cdat->dobj_85__OIE_CNAME; basilys_assertmsg("iniobj checkdiscr dobj_85__OIE_CNAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_85__OIE_CNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_85__OIE_CNAME.obj_num = 1; cdat->dobj_85__OIE_CNAME.obj_hash = 968659379; cdat->dobj_85__OIE_CNAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_85__OIE_CNAME)); /*inistring dstr_86__OIE_CNAME*/ /*_.VALSTR___V198*/ curfptr[197] = (void*)&cdat->dstr_86__OIE_CNAME; cdat->dstr_86__OIE_CNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_86__OIE_CNAME.val, "OIE_CNAME", sizeof(cdat->dstr_86__OIE_CNAME.val)-1); /*iniobj dsym_87__OIE_DATA*/ if (!/*_.VALDATA___V208*/ curfptr[207]) /*_.VALDATA___V208*/ curfptr[207] = (void*)&cdat->dsym_87__OIE_DATA; basilys_assertmsg("iniobj checkdiscr dsym_87__OIE_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_87__OIE_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_87__OIE_DATA.obj_hash = 660720415; cdat->dsym_87__OIE_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_87__OIE_DATA)); /*inistring dstr_88__OIE_DATA*/ /*_.VALSTR___V209*/ curfptr[208] = (void*)&cdat->dstr_88__OIE_DATA; cdat->dstr_88__OIE_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_88__OIE_DATA.val, "OIE_DATA", sizeof(cdat->dstr_88__OIE_DATA.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:82:/ iniobj"); /*iniobj dobj_89__OIE_DATA*/ if (!/*_.VALDATA___V199*/ curfptr[198]) /*_.VALDATA___V199*/ curfptr[198] = (void*)&cdat->dobj_89__OIE_DATA; basilys_assertmsg("iniobj checkdiscr dobj_89__OIE_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_89__OIE_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_89__OIE_DATA.obj_num = 2; cdat->dobj_89__OIE_DATA.obj_hash = 590901056; cdat->dobj_89__OIE_DATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_89__OIE_DATA)); /*inistring dstr_90__OIE_DATA*/ /*_.VALSTR___V200*/ curfptr[199] = (void*)&cdat->dstr_90__OIE_DATA; cdat->dstr_90__OIE_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_90__OIE_DATA.val, "OIE_DATA", sizeof(cdat->dstr_90__OIE_DATA.val)-1); /*iniobj dsym_91__OIE_DISCR*/ if (!/*_.VALDATA___V210*/ curfptr[209]) /*_.VALDATA___V210*/ curfptr[209] = (void*)&cdat->dsym_91__OIE_DISCR; basilys_assertmsg("iniobj checkdiscr dsym_91__OIE_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_91__OIE_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_91__OIE_DISCR.obj_hash = 281892028; cdat->dsym_91__OIE_DISCR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_91__OIE_DISCR)); /*inistring dstr_92__OIE_DISCR*/ /*_.VALSTR___V211*/ curfptr[210] = (void*)&cdat->dstr_92__OIE_DISCR; cdat->dstr_92__OIE_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_92__OIE_DISCR.val, "OIE_DISCR", sizeof(cdat->dstr_92__OIE_DISCR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:82:/ iniobj"); /*iniobj dobj_93__OIE_DISCR*/ if (!/*_.VALDATA___V201*/ curfptr[200]) /*_.VALDATA___V201*/ curfptr[200] = (void*)&cdat->dobj_93__OIE_DISCR; basilys_assertmsg("iniobj checkdiscr dobj_93__OIE_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_93__OIE_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_93__OIE_DISCR.obj_num = 3; cdat->dobj_93__OIE_DISCR.obj_hash = 938945503; cdat->dobj_93__OIE_DISCR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_93__OIE_DISCR)); /*inistring dstr_94__OIE_DISCR*/ /*_.VALSTR___V202*/ curfptr[201] = (void*)&cdat->dstr_94__OIE_DISCR; cdat->dstr_94__OIE_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_94__OIE_DISCR.val, "OIE_DISCR", sizeof(cdat->dstr_94__OIE_DISCR.val)-1); /*iniobj dsym_95__OIE_LOCVAR*/ if (!/*_.VALDATA___V212*/ curfptr[211]) /*_.VALDATA___V212*/ curfptr[211] = (void*)&cdat->dsym_95__OIE_LOCVAR; basilys_assertmsg("iniobj checkdiscr dsym_95__OIE_LOCVAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_95__OIE_LOCVAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_95__OIE_LOCVAR.obj_hash = 500660715; cdat->dsym_95__OIE_LOCVAR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_95__OIE_LOCVAR)); /*inistring dstr_96__OIE_LOCVAR*/ /*_.VALSTR___V213*/ curfptr[212] = (void*)&cdat->dstr_96__OIE_LOCVAR; cdat->dstr_96__OIE_LOCVAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_96__OIE_LOCVAR.val, "OIE_LOCVAR", sizeof(cdat->dstr_96__OIE_LOCVAR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:82:/ iniobj"); /*iniobj dobj_97__OIE_LOCVAR*/ if (!/*_.VALDATA___V203*/ curfptr[202]) /*_.VALDATA___V203*/ curfptr[202] = (void*)&cdat->dobj_97__OIE_LOCVAR; basilys_assertmsg("iniobj checkdiscr dobj_97__OIE_LOCVAR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_97__OIE_LOCVAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_97__OIE_LOCVAR.obj_num = 4; cdat->dobj_97__OIE_LOCVAR.obj_hash = 655656210; cdat->dobj_97__OIE_LOCVAR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_97__OIE_LOCVAR)); /*inistring dstr_98__OIE_LOCVAR*/ /*_.VALSTR___V204*/ curfptr[203] = (void*)&cdat->dstr_98__OIE_LOCVAR; cdat->dstr_98__OIE_LOCVAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_98__OIE_LOCVAR.val, "OIE_LOCVAR", sizeof(cdat->dstr_98__OIE_LOCVAR.val)-1); /*iniobj dsym_99__CLASS_OBJINITOBJECT*/ if (!/*_.VALDATA___V214*/ curfptr[213]) /*_.VALDATA___V214*/ curfptr[213] = (void*)&cdat->dsym_99__CLASS_OBJINITOBJECT; basilys_assertmsg("iniobj checkdiscr dsym_99__CLASS_OBJINITOBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_99__CLASS_OBJINITOBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_99__CLASS_OBJINITOBJECT.obj_hash = 532827978; cdat->dsym_99__CLASS_OBJINITOBJECT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_99__CLASS_OBJINITOBJECT)); /*inistring dstr_100__CLASS_OBJINITOBJ*/ /*_.VALSTR___V215*/ curfptr[214] = (void*)&cdat->dstr_100__CLASS_OBJINITOBJ; cdat->dstr_100__CLASS_OBJINITOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_100__CLASS_OBJINITOBJ.val, "CLASS_OBJINITOBJECT", sizeof(cdat->dstr_100__CLASS_OBJINITOBJ.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:92:/ iniobj"); /*iniobj dobj_101__CLASS_OBJINITOBJECT*/ if (!/*_.VALDATA___V216*/ curfptr[215]) /*_.VALDATA___V216*/ curfptr[215] = (void*)&cdat->dobj_101__CLASS_OBJINITOBJECT; basilys_assertmsg("iniobj checkdiscr dobj_101__CLASS_OBJINITOBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_101__CLASS_OBJINITOBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_101__CLASS_OBJINITOBJECT.obj_num = OBMAG_OBJECT; cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 274299939; cdat->dobj_101__CLASS_OBJINITOBJECT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_101__CLASS_OBJINITOBJECT)); /*inistring dstr_102__CLASS_OBJINITOBJ*/ /*_.VALSTR___V217*/ curfptr[216] = (void*)&cdat->dstr_102__CLASS_OBJINITOBJ; cdat->dstr_102__CLASS_OBJINITOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_102__CLASS_OBJINITOBJ.val, "CLASS_OBJINITOBJECT", sizeof(cdat->dstr_102__CLASS_OBJINITOBJ.val)-1); /*inimult dtup_103__CLASS_OBJINITOBJECT*/ /*_.VALTUP___V218*/ curfptr[217] = (void*)&cdat->dtup_103__CLASS_OBJINITOBJECT; cdat->dtup_103__CLASS_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_103__CLASS_OBJINITOBJECT.nbval = 5; /*inimult dtup_104__CLASS_OBJINITOBJECT*/ /*_.VALTUP___V221*/ curfptr[220] = (void*)&cdat->dtup_104__CLASS_OBJINITOBJECT; cdat->dtup_104__CLASS_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_104__CLASS_OBJINITOBJECT.nbval = 6; /*iniobj dsym_105__OIO_PREDEF*/ if (!/*_.VALDATA___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (void*)&cdat->dsym_105__OIO_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_105__OIO_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_105__OIO_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_105__OIO_PREDEF.obj_hash = 818392308; cdat->dsym_105__OIO_PREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_105__OIO_PREDEF)); /*inistring dstr_106__OIO_PREDEF*/ /*_.VALSTR___V223*/ curfptr[222] = (void*)&cdat->dstr_106__OIO_PREDEF; cdat->dstr_106__OIO_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_106__OIO_PREDEF.val, "OIO_PREDEF", sizeof(cdat->dstr_106__OIO_PREDEF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:92:/ iniobj"); /*iniobj dobj_107__OIO_PREDEF*/ if (!/*_.VALDATA___V219*/ curfptr[218]) /*_.VALDATA___V219*/ curfptr[218] = (void*)&cdat->dobj_107__OIO_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_107__OIO_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_107__OIO_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_107__OIO_PREDEF.obj_num = 5; cdat->dobj_107__OIO_PREDEF.obj_hash = 942805902; cdat->dobj_107__OIO_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_107__OIO_PREDEF)); /*inistring dstr_108__OIO_PREDEF*/ /*_.VALSTR___V220*/ curfptr[219] = (void*)&cdat->dstr_108__OIO_PREDEF; cdat->dstr_108__OIO_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_108__OIO_PREDEF.val, "OIO_PREDEF", sizeof(cdat->dstr_108__OIO_PREDEF.val)-1); /*iniobj dsym_109__CLASS_OBJINITMULTIPLE*/ if (!/*_.VALDATA___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (void*)&cdat->dsym_109__CLASS_OBJINITMULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_109__CLASS_OBJINITMULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_109__CLASS_OBJINITMULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_109__CLASS_OBJINITMULTIPLE.obj_hash = 864635026; cdat->dsym_109__CLASS_OBJINITMULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_109__CLASS_OBJINITMULTIPLE)); /*inistring dstr_110__CLASS_OBJINITMUL*/ /*_.VALSTR___V225*/ curfptr[224] = (void*)&cdat->dstr_110__CLASS_OBJINITMUL; cdat->dstr_110__CLASS_OBJINITMUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_110__CLASS_OBJINITMUL.val, "CLASS_OBJINITMULTIPLE", sizeof(cdat->dstr_110__CLASS_OBJINITMUL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:100:/ iniobj"); /*iniobj dobj_111__CLASS_OBJINITMULTIPLE*/ if (!/*_.VALDATA___V226*/ curfptr[225]) /*_.VALDATA___V226*/ curfptr[225] = (void*)&cdat->dobj_111__CLASS_OBJINITMULTIPLE; basilys_assertmsg("iniobj checkdiscr dobj_111__CLASS_OBJINITMULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_num = OBMAG_OBJECT; cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_hash = 89715193; cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_111__CLASS_OBJINITMULTIPLE)); /*inistring dstr_112__CLASS_OBJINITMUL*/ /*_.VALSTR___V227*/ curfptr[226] = (void*)&cdat->dstr_112__CLASS_OBJINITMUL; cdat->dstr_112__CLASS_OBJINITMUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_112__CLASS_OBJINITMUL.val, "CLASS_OBJINITMULTIPLE", sizeof(cdat->dstr_112__CLASS_OBJINITMUL.val)-1); /*inimult dtup_113__CLASS_OBJINITMULTIPLE*/ /*_.VALTUP___V228*/ curfptr[227] = (void*)&cdat->dtup_113__CLASS_OBJINITMULTIPLE; cdat->dtup_113__CLASS_OBJINITMULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_113__CLASS_OBJINITMULTIPLE.nbval = 5; /*inimult dtup_114__CLASS_OBJINITMULTIPLE*/ /*_.VALTUP___V231*/ curfptr[230] = (void*)&cdat->dtup_114__CLASS_OBJINITMULTIPLE; cdat->dtup_114__CLASS_OBJINITMULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_114__CLASS_OBJINITMULTIPLE.nbval = 6; /*iniobj dsym_115__OIM_TUPVAL*/ if (!/*_.VALDATA___V232*/ curfptr[231]) /*_.VALDATA___V232*/ curfptr[231] = (void*)&cdat->dsym_115__OIM_TUPVAL; basilys_assertmsg("iniobj checkdiscr dsym_115__OIM_TUPVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_115__OIM_TUPVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_115__OIM_TUPVAL.obj_hash = 975810084; cdat->dsym_115__OIM_TUPVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_115__OIM_TUPVAL)); /*inistring dstr_116__OIM_TUPVAL*/ /*_.VALSTR___V233*/ curfptr[232] = (void*)&cdat->dstr_116__OIM_TUPVAL; cdat->dstr_116__OIM_TUPVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_116__OIM_TUPVAL.val, "OIM_TUPVAL", sizeof(cdat->dstr_116__OIM_TUPVAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:100:/ iniobj"); /*iniobj dobj_117__OIM_TUPVAL*/ if (!/*_.VALDATA___V229*/ curfptr[228]) /*_.VALDATA___V229*/ curfptr[228] = (void*)&cdat->dobj_117__OIM_TUPVAL; basilys_assertmsg("iniobj checkdiscr dobj_117__OIM_TUPVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_117__OIM_TUPVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_117__OIM_TUPVAL.obj_num = 5; cdat->dobj_117__OIM_TUPVAL.obj_hash = 329704434; cdat->dobj_117__OIM_TUPVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_117__OIM_TUPVAL)); /*inistring dstr_118__OIM_TUPVAL*/ /*_.VALSTR___V230*/ curfptr[229] = (void*)&cdat->dstr_118__OIM_TUPVAL; cdat->dstr_118__OIM_TUPVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_118__OIM_TUPVAL.val, "OIM_TUPVAL", sizeof(cdat->dstr_118__OIM_TUPVAL.val)-1); /*iniobj dsym_119__CLASS_OBJINITCLOSURE*/ if (!/*_.VALDATA___V234*/ curfptr[233]) /*_.VALDATA___V234*/ curfptr[233] = (void*)&cdat->dsym_119__CLASS_OBJINITCLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_119__CLASS_OBJINITCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_119__CLASS_OBJINITCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_119__CLASS_OBJINITCLOSURE.obj_hash = 952363892; cdat->dsym_119__CLASS_OBJINITCLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_119__CLASS_OBJINITCLOSURE)); /*inistring dstr_120__CLASS_OBJINITCLO*/ /*_.VALSTR___V235*/ curfptr[234] = (void*)&cdat->dstr_120__CLASS_OBJINITCLO; cdat->dstr_120__CLASS_OBJINITCLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_120__CLASS_OBJINITCLO.val, "CLASS_OBJINITCLOSURE", sizeof(cdat->dstr_120__CLASS_OBJINITCLO.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:109:/ iniobj"); /*iniobj dobj_121__CLASS_OBJINITCLOSURE*/ if (!/*_.VALDATA___V236*/ curfptr[235]) /*_.VALDATA___V236*/ curfptr[235] = (void*)&cdat->dobj_121__CLASS_OBJINITCLOSURE; basilys_assertmsg("iniobj checkdiscr dobj_121__CLASS_OBJINITCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_num = OBMAG_OBJECT; cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_hash = 507684862; cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_121__CLASS_OBJINITCLOSURE)); /*inistring dstr_122__CLASS_OBJINITCLO*/ /*_.VALSTR___V237*/ curfptr[236] = (void*)&cdat->dstr_122__CLASS_OBJINITCLO; cdat->dstr_122__CLASS_OBJINITCLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_122__CLASS_OBJINITCLO.val, "CLASS_OBJINITCLOSURE", sizeof(cdat->dstr_122__CLASS_OBJINITCLO.val)-1); /*inimult dtup_123__CLASS_OBJINITCLOSURE*/ /*_.VALTUP___V238*/ curfptr[237] = (void*)&cdat->dtup_123__CLASS_OBJINITCLOSURE; cdat->dtup_123__CLASS_OBJINITCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_123__CLASS_OBJINITCLOSURE.nbval = 5; /*inimult dtup_124__CLASS_OBJINITCLOSURE*/ /*_.VALTUP___V239*/ curfptr[238] = (void*)&cdat->dtup_124__CLASS_OBJINITCLOSURE; cdat->dtup_124__CLASS_OBJINITCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_124__CLASS_OBJINITCLOSURE.nbval = 5; /*iniobj dsym_125__CLASS_OBJINITROUTINE*/ if (!/*_.VALDATA___V240*/ curfptr[239]) /*_.VALDATA___V240*/ curfptr[239] = (void*)&cdat->dsym_125__CLASS_OBJINITROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_125__CLASS_OBJINITROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_125__CLASS_OBJINITROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_125__CLASS_OBJINITROUTINE.obj_hash = 527007550; cdat->dsym_125__CLASS_OBJINITROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_125__CLASS_OBJINITROUTINE)); /*inistring dstr_126__CLASS_OBJINITROU*/ /*_.VALSTR___V241*/ curfptr[240] = (void*)&cdat->dstr_126__CLASS_OBJINITROU; cdat->dstr_126__CLASS_OBJINITROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_126__CLASS_OBJINITROU.val, "CLASS_OBJINITROUTINE", sizeof(cdat->dstr_126__CLASS_OBJINITROU.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:115:/ iniobj"); /*iniobj dobj_127__CLASS_OBJINITROUTINE*/ if (!/*_.VALDATA___V242*/ curfptr[241]) /*_.VALDATA___V242*/ curfptr[241] = (void*)&cdat->dobj_127__CLASS_OBJINITROUTINE; basilys_assertmsg("iniobj checkdiscr dobj_127__CLASS_OBJINITROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_127__CLASS_OBJINITROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_127__CLASS_OBJINITROUTINE.obj_num = OBMAG_OBJECT; cdat->dobj_127__CLASS_OBJINITROUTINE.obj_hash = 461683432; cdat->dobj_127__CLASS_OBJINITROUTINE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_127__CLASS_OBJINITROUTINE)); /*inistring dstr_128__CLASS_OBJINITROU*/ /*_.VALSTR___V243*/ curfptr[242] = (void*)&cdat->dstr_128__CLASS_OBJINITROU; cdat->dstr_128__CLASS_OBJINITROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_128__CLASS_OBJINITROU.val, "CLASS_OBJINITROUTINE", sizeof(cdat->dstr_128__CLASS_OBJINITROU.val)-1); /*inimult dtup_129__CLASS_OBJINITROUTINE*/ /*_.VALTUP___V244*/ curfptr[243] = (void*)&cdat->dtup_129__CLASS_OBJINITROUTINE; cdat->dtup_129__CLASS_OBJINITROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_129__CLASS_OBJINITROUTINE.nbval = 5; /*inimult dtup_130__CLASS_OBJINITROUTINE*/ /*_.VALTUP___V247*/ curfptr[246] = (void*)&cdat->dtup_130__CLASS_OBJINITROUTINE; cdat->dtup_130__CLASS_OBJINITROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_130__CLASS_OBJINITROUTINE.nbval = 6; /*iniobj dsym_131__OIR_PROCROUTINE*/ if (!/*_.VALDATA___V248*/ curfptr[247]) /*_.VALDATA___V248*/ curfptr[247] = (void*)&cdat->dsym_131__OIR_PROCROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_131__OIR_PROCROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_131__OIR_PROCROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_131__OIR_PROCROUTINE.obj_hash = 508339861; cdat->dsym_131__OIR_PROCROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_131__OIR_PROCROUTINE)); /*inistring dstr_132__OIR_PROCROUTINE*/ /*_.VALSTR___V249*/ curfptr[248] = (void*)&cdat->dstr_132__OIR_PROCROUTINE; cdat->dstr_132__OIR_PROCROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_132__OIR_PROCROUTINE.val, "OIR_PROCROUTINE", sizeof(cdat->dstr_132__OIR_PROCROUTINE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:115:/ iniobj"); /*iniobj dobj_133__OIR_PROCROUTINE*/ if (!/*_.VALDATA___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (void*)&cdat->dobj_133__OIR_PROCROUTINE; basilys_assertmsg("iniobj checkdiscr dobj_133__OIR_PROCROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_133__OIR_PROCROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_133__OIR_PROCROUTINE.obj_num = 5; cdat->dobj_133__OIR_PROCROUTINE.obj_hash = 151321093; cdat->dobj_133__OIR_PROCROUTINE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_133__OIR_PROCROUTINE)); /*inistring dstr_134__OIR_PROCROUTINE*/ /*_.VALSTR___V246*/ curfptr[245] = (void*)&cdat->dstr_134__OIR_PROCROUTINE; cdat->dstr_134__OIR_PROCROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_134__OIR_PROCROUTINE.val, "OIR_PROCROUTINE", sizeof(cdat->dstr_134__OIR_PROCROUTINE.val)-1); /*iniobj dsym_135__CLASS_OBJINITSTRING*/ if (!/*_.VALDATA___V250*/ curfptr[249]) /*_.VALDATA___V250*/ curfptr[249] = (void*)&cdat->dsym_135__CLASS_OBJINITSTRING; basilys_assertmsg("iniobj checkdiscr dsym_135__CLASS_OBJINITSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_135__CLASS_OBJINITSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_135__CLASS_OBJINITSTRING.obj_hash = 1067075981; cdat->dsym_135__CLASS_OBJINITSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_135__CLASS_OBJINITSTRING)); /*inistring dstr_136__CLASS_OBJINITSTR*/ /*_.VALSTR___V251*/ curfptr[250] = (void*)&cdat->dstr_136__CLASS_OBJINITSTR; cdat->dstr_136__CLASS_OBJINITSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_136__CLASS_OBJINITSTR.val, "CLASS_OBJINITSTRING", sizeof(cdat->dstr_136__CLASS_OBJINITSTR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:122:/ iniobj"); /*iniobj dobj_137__CLASS_OBJINITSTRING*/ if (!/*_.VALDATA___V252*/ curfptr[251]) /*_.VALDATA___V252*/ curfptr[251] = (void*)&cdat->dobj_137__CLASS_OBJINITSTRING; basilys_assertmsg("iniobj checkdiscr dobj_137__CLASS_OBJINITSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_137__CLASS_OBJINITSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_137__CLASS_OBJINITSTRING.obj_num = OBMAG_OBJECT; cdat->dobj_137__CLASS_OBJINITSTRING.obj_hash = 924272963; cdat->dobj_137__CLASS_OBJINITSTRING.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_137__CLASS_OBJINITSTRING)); /*inistring dstr_138__CLASS_OBJINITSTR*/ /*_.VALSTR___V253*/ curfptr[252] = (void*)&cdat->dstr_138__CLASS_OBJINITSTR; cdat->dstr_138__CLASS_OBJINITSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_138__CLASS_OBJINITSTR.val, "CLASS_OBJINITSTRING", sizeof(cdat->dstr_138__CLASS_OBJINITSTR.val)-1); /*inimult dtup_139__CLASS_OBJINITSTRING*/ /*_.VALTUP___V254*/ curfptr[253] = (void*)&cdat->dtup_139__CLASS_OBJINITSTRING; cdat->dtup_139__CLASS_OBJINITSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_139__CLASS_OBJINITSTRING.nbval = 5; /*inimult dtup_140__CLASS_OBJINITSTRING*/ /*_.VALTUP___V255*/ curfptr[254] = (void*)&cdat->dtup_140__CLASS_OBJINITSTRING; cdat->dtup_140__CLASS_OBJINITSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_140__CLASS_OBJINITSTRING.nbval = 5; /*iniobj dsym_141__CLASS_OBJEXPV*/ if (!/*_.VALDATA___V256*/ curfptr[255]) /*_.VALDATA___V256*/ curfptr[255] = (void*)&cdat->dsym_141__CLASS_OBJEXPV; basilys_assertmsg("iniobj checkdiscr dsym_141__CLASS_OBJEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_141__CLASS_OBJEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_141__CLASS_OBJEXPV.obj_hash = 134484056; cdat->dsym_141__CLASS_OBJEXPV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_141__CLASS_OBJEXPV)); /*inistring dstr_142__CLASS_OBJEXPV*/ /*_.VALSTR___V257*/ curfptr[256] = (void*)&cdat->dstr_142__CLASS_OBJEXPV; cdat->dstr_142__CLASS_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_142__CLASS_OBJEXPV.val, "CLASS_OBJEXPV", sizeof(cdat->dstr_142__CLASS_OBJEXPV.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:129:/ iniobj"); /*iniobj dobj_143__CLASS_OBJEXPV*/ if (!/*_.VALDATA___V258*/ curfptr[257]) /*_.VALDATA___V258*/ curfptr[257] = (void*)&cdat->dobj_143__CLASS_OBJEXPV; basilys_assertmsg("iniobj checkdiscr dobj_143__CLASS_OBJEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_143__CLASS_OBJEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_143__CLASS_OBJEXPV.obj_num = OBMAG_OBJECT; cdat->dobj_143__CLASS_OBJEXPV.obj_hash = 619980414; cdat->dobj_143__CLASS_OBJEXPV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_143__CLASS_OBJEXPV)); /*inistring dstr_144__CLASS_OBJEXPV*/ /*_.VALSTR___V259*/ curfptr[258] = (void*)&cdat->dstr_144__CLASS_OBJEXPV; cdat->dstr_144__CLASS_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_144__CLASS_OBJEXPV.val, "CLASS_OBJEXPV", sizeof(cdat->dstr_144__CLASS_OBJEXPV.val)-1); /*inimult dtup_145__CLASS_OBJEXPV*/ /*_.VALTUP___V260*/ curfptr[259] = (void*)&cdat->dtup_145__CLASS_OBJEXPV; cdat->dtup_145__CLASS_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_145__CLASS_OBJEXPV.nbval = 3; /*inimult dtup_146__CLASS_OBJEXPV*/ /*_.VALTUP___V263*/ curfptr[262] = (void*)&cdat->dtup_146__CLASS_OBJEXPV; cdat->dtup_146__CLASS_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_146__CLASS_OBJEXPV.nbval = 2; /*iniobj dsym_147__OBX_CONT*/ if (!/*_.VALDATA___V264*/ curfptr[263]) /*_.VALDATA___V264*/ curfptr[263] = (void*)&cdat->dsym_147__OBX_CONT; basilys_assertmsg("iniobj checkdiscr dsym_147__OBX_CONT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_147__OBX_CONT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_147__OBX_CONT.obj_hash = 1046796445; cdat->dsym_147__OBX_CONT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_147__OBX_CONT)); /*inistring dstr_148__OBX_CONT*/ /*_.VALSTR___V265*/ curfptr[264] = (void*)&cdat->dstr_148__OBX_CONT; cdat->dstr_148__OBX_CONT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_148__OBX_CONT.val, "OBX_CONT", sizeof(cdat->dstr_148__OBX_CONT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:129:/ iniobj"); /*iniobj dobj_149__OBX_CONT*/ if (!/*_.VALDATA___V261*/ curfptr[260]) /*_.VALDATA___V261*/ curfptr[260] = (void*)&cdat->dobj_149__OBX_CONT; basilys_assertmsg("iniobj checkdiscr dobj_149__OBX_CONT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_149__OBX_CONT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_149__OBX_CONT.obj_num = 1; cdat->dobj_149__OBX_CONT.obj_hash = 1023441492; cdat->dobj_149__OBX_CONT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_149__OBX_CONT)); /*inistring dstr_150__OBX_CONT*/ /*_.VALSTR___V262*/ curfptr[261] = (void*)&cdat->dstr_150__OBX_CONT; cdat->dstr_150__OBX_CONT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_150__OBX_CONT.val, "OBX_CONT", sizeof(cdat->dstr_150__OBX_CONT.val)-1); /*iniobj dsym_151__CLASS_OBJLOCATEDEXPV*/ if (!/*_.VALDATA___V266*/ curfptr[265]) /*_.VALDATA___V266*/ curfptr[265] = (void*)&cdat->dsym_151__CLASS_OBJLOCATEDEXPV; basilys_assertmsg("iniobj checkdiscr dsym_151__CLASS_OBJLOCATEDEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_151__CLASS_OBJLOCATEDEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_151__CLASS_OBJLOCATEDEXPV.obj_hash = 564704332; cdat->dsym_151__CLASS_OBJLOCATEDEXPV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_151__CLASS_OBJLOCATEDEXPV)); /*inistring dstr_152__CLASS_OBJLOCATED*/ /*_.VALSTR___V267*/ curfptr[266] = (void*)&cdat->dstr_152__CLASS_OBJLOCATED; cdat->dstr_152__CLASS_OBJLOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_152__CLASS_OBJLOCATED.val, "CLASS_OBJLOCATEDEXPV", sizeof(cdat->dstr_152__CLASS_OBJLOCATED.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:135:/ iniobj"); /*iniobj dobj_153__CLASS_OBJLOCATEDEXPV*/ if (!/*_.VALDATA___V268*/ curfptr[267]) /*_.VALDATA___V268*/ curfptr[267] = (void*)&cdat->dobj_153__CLASS_OBJLOCATEDEXPV; basilys_assertmsg("iniobj checkdiscr dobj_153__CLASS_OBJLOCATEDEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_153__CLASS_OBJLOCATEDEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_153__CLASS_OBJLOCATEDEXPV.obj_num = OBMAG_OBJECT; cdat->dobj_153__CLASS_OBJLOCATEDEXPV.obj_hash = 580765478; cdat->dobj_153__CLASS_OBJLOCATEDEXPV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_153__CLASS_OBJLOCATEDEXPV)); /*inistring dstr_154__CLASS_OBJLOCATED*/ /*_.VALSTR___V269*/ curfptr[268] = (void*)&cdat->dstr_154__CLASS_OBJLOCATED; cdat->dstr_154__CLASS_OBJLOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_154__CLASS_OBJLOCATED.val, "CLASS_OBJLOCATEDEXPV", sizeof(cdat->dstr_154__CLASS_OBJLOCATED.val)-1); /*inimult dtup_155__CLASS_OBJLOCATEDEXPV*/ /*_.VALTUP___V270*/ curfptr[269] = (void*)&cdat->dtup_155__CLASS_OBJLOCATEDEXPV; cdat->dtup_155__CLASS_OBJLOCATEDEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_155__CLASS_OBJLOCATEDEXPV.nbval = 4; /*inimult dtup_156__CLASS_OBJLOCATEDEXPV*/ /*_.VALTUP___V273*/ curfptr[272] = (void*)&cdat->dtup_156__CLASS_OBJLOCATEDEXPV; cdat->dtup_156__CLASS_OBJLOCATEDEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_156__CLASS_OBJLOCATEDEXPV.nbval = 3; /*iniobj dsym_157__OBCX_LOC*/ if (!/*_.VALDATA___V274*/ curfptr[273]) /*_.VALDATA___V274*/ curfptr[273] = (void*)&cdat->dsym_157__OBCX_LOC; basilys_assertmsg("iniobj checkdiscr dsym_157__OBCX_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_157__OBCX_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_157__OBCX_LOC.obj_hash = 685813382; cdat->dsym_157__OBCX_LOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_157__OBCX_LOC)); /*inistring dstr_158__OBCX_LOC*/ /*_.VALSTR___V275*/ curfptr[274] = (void*)&cdat->dstr_158__OBCX_LOC; cdat->dstr_158__OBCX_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_158__OBCX_LOC.val, "OBCX_LOC", sizeof(cdat->dstr_158__OBCX_LOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:135:/ iniobj"); /*iniobj dobj_159__OBCX_LOC*/ if (!/*_.VALDATA___V271*/ curfptr[270]) /*_.VALDATA___V271*/ curfptr[270] = (void*)&cdat->dobj_159__OBCX_LOC; basilys_assertmsg("iniobj checkdiscr dobj_159__OBCX_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_159__OBCX_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_159__OBCX_LOC.obj_num = 2; cdat->dobj_159__OBCX_LOC.obj_hash = 334212005; cdat->dobj_159__OBCX_LOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_159__OBCX_LOC)); /*inistring dstr_160__OBCX_LOC*/ /*_.VALSTR___V272*/ curfptr[271] = (void*)&cdat->dstr_160__OBCX_LOC; cdat->dstr_160__OBCX_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_160__OBCX_LOC.val, "OBCX_LOC", sizeof(cdat->dstr_160__OBCX_LOC.val)-1); /*iniobj dsym_161__CLASS_OBJINSTR*/ if (!/*_.VALDATA___V276*/ curfptr[275]) /*_.VALDATA___V276*/ curfptr[275] = (void*)&cdat->dsym_161__CLASS_OBJINSTR; basilys_assertmsg("iniobj checkdiscr dsym_161__CLASS_OBJINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_161__CLASS_OBJINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_161__CLASS_OBJINSTR.obj_hash = 310627895; cdat->dsym_161__CLASS_OBJINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_161__CLASS_OBJINSTR)); /*inistring dstr_162__CLASS_OBJINSTR*/ /*_.VALSTR___V277*/ curfptr[276] = (void*)&cdat->dstr_162__CLASS_OBJINSTR; cdat->dstr_162__CLASS_OBJINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_162__CLASS_OBJINSTR.val, "CLASS_OBJINSTR", sizeof(cdat->dstr_162__CLASS_OBJINSTR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:141:/ iniobj"); /*iniobj dobj_163__CLASS_OBJINSTR*/ if (!/*_.VALDATA___V278*/ curfptr[277]) /*_.VALDATA___V278*/ curfptr[277] = (void*)&cdat->dobj_163__CLASS_OBJINSTR; basilys_assertmsg("iniobj checkdiscr dobj_163__CLASS_OBJINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_163__CLASS_OBJINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_163__CLASS_OBJINSTR.obj_num = OBMAG_OBJECT; cdat->dobj_163__CLASS_OBJINSTR.obj_hash = 800060316; cdat->dobj_163__CLASS_OBJINSTR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_163__CLASS_OBJINSTR)); /*inistring dstr_164__CLASS_OBJINSTR*/ /*_.VALSTR___V279*/ curfptr[278] = (void*)&cdat->dstr_164__CLASS_OBJINSTR; cdat->dstr_164__CLASS_OBJINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_164__CLASS_OBJINSTR.val, "CLASS_OBJINSTR", sizeof(cdat->dstr_164__CLASS_OBJINSTR.val)-1); /*inimult dtup_165__CLASS_OBJINSTR*/ /*_.VALTUP___V280*/ curfptr[279] = (void*)&cdat->dtup_165__CLASS_OBJINSTR; cdat->dtup_165__CLASS_OBJINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_165__CLASS_OBJINSTR.nbval = 2; /*inimult dtup_166__CLASS_OBJINSTR*/ /*_.VALTUP___V283*/ curfptr[282] = (void*)&cdat->dtup_166__CLASS_OBJINSTR; cdat->dtup_166__CLASS_OBJINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_166__CLASS_OBJINSTR.nbval = 1; /*iniobj dsym_167__OBI_LOC*/ if (!/*_.VALDATA___V284*/ curfptr[283]) /*_.VALDATA___V284*/ curfptr[283] = (void*)&cdat->dsym_167__OBI_LOC; basilys_assertmsg("iniobj checkdiscr dsym_167__OBI_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_167__OBI_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_167__OBI_LOC.obj_hash = 551041921; cdat->dsym_167__OBI_LOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_167__OBI_LOC)); /*inistring dstr_168__OBI_LOC*/ /*_.VALSTR___V285*/ curfptr[284] = (void*)&cdat->dstr_168__OBI_LOC; cdat->dstr_168__OBI_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_168__OBI_LOC.val, "OBI_LOC", sizeof(cdat->dstr_168__OBI_LOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:141:/ iniobj"); /*iniobj dobj_169__OBI_LOC*/ if (!/*_.VALDATA___V281*/ curfptr[280]) /*_.VALDATA___V281*/ curfptr[280] = (void*)&cdat->dobj_169__OBI_LOC; basilys_assertmsg("iniobj checkdiscr dobj_169__OBI_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_169__OBI_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_169__OBI_LOC.obj_num = 0; cdat->dobj_169__OBI_LOC.obj_hash = 650251390; cdat->dobj_169__OBI_LOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_169__OBI_LOC)); /*inistring dstr_170__OBI_LOC*/ /*_.VALSTR___V282*/ curfptr[281] = (void*)&cdat->dstr_170__OBI_LOC; cdat->dstr_170__OBI_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_170__OBI_LOC.val, "OBI_LOC", sizeof(cdat->dstr_170__OBI_LOC.val)-1); /*iniobj dsym_171__CLASS_OBJCOMMENTINSTR*/ if (!/*_.VALDATA___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (void*)&cdat->dsym_171__CLASS_OBJCOMMENTINSTR; basilys_assertmsg("iniobj checkdiscr dsym_171__CLASS_OBJCOMMENTINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_171__CLASS_OBJCOMMENTINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_171__CLASS_OBJCOMMENTINSTR.obj_hash = 564818642; cdat->dsym_171__CLASS_OBJCOMMENTINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_171__CLASS_OBJCOMMENTINSTR)); /*inistring dstr_172__CLASS_OBJCOMMENT*/ /*_.VALSTR___V287*/ curfptr[286] = (void*)&cdat->dstr_172__CLASS_OBJCOMMENT; cdat->dstr_172__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_172__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTINSTR", sizeof(cdat->dstr_172__CLASS_OBJCOMMENT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:146:/ iniobj"); /*iniobj dobj_173__CLASS_OBJCOMMENTINSTR*/ if (!/*_.VALDATA___V288*/ curfptr[287]) /*_.VALDATA___V288*/ curfptr[287] = (void*)&cdat->dobj_173__CLASS_OBJCOMMENTINSTR; basilys_assertmsg("iniobj checkdiscr dobj_173__CLASS_OBJCOMMENTINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_173__CLASS_OBJCOMMENTINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_173__CLASS_OBJCOMMENTINSTR.obj_num = OBMAG_OBJECT; cdat->dobj_173__CLASS_OBJCOMMENTINSTR.obj_hash = 15790064; cdat->dobj_173__CLASS_OBJCOMMENTINSTR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_173__CLASS_OBJCOMMENTINSTR)); /*inistring dstr_174__CLASS_OBJCOMMENT*/ /*_.VALSTR___V289*/ curfptr[288] = (void*)&cdat->dstr_174__CLASS_OBJCOMMENT; cdat->dstr_174__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_174__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTINSTR", sizeof(cdat->dstr_174__CLASS_OBJCOMMENT.val)-1); /*inimult dtup_175__CLASS_OBJCOMMENTINSTR*/ /*_.VALTUP___V290*/ curfptr[289] = (void*)&cdat->dtup_175__CLASS_OBJCOMMENTINSTR; cdat->dtup_175__CLASS_OBJCOMMENTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_175__CLASS_OBJCOMMENTINSTR.nbval = 3; /*inimult dtup_176__CLASS_OBJCOMMENTINSTR*/ /*_.VALTUP___V293*/ curfptr[292] = (void*)&cdat->dtup_176__CLASS_OBJCOMMENTINSTR; cdat->dtup_176__CLASS_OBJCOMMENTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_176__CLASS_OBJCOMMENTINSTR.nbval = 2; /*iniobj dsym_177__OBCI_COMMENT*/ if (!/*_.VALDATA___V294*/ curfptr[293]) /*_.VALDATA___V294*/ curfptr[293] = (void*)&cdat->dsym_177__OBCI_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_177__OBCI_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_177__OBCI_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_177__OBCI_COMMENT.obj_hash = 761330428; cdat->dsym_177__OBCI_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_177__OBCI_COMMENT)); /*inistring dstr_178__OBCI_COMMENT*/ /*_.VALSTR___V295*/ curfptr[294] = (void*)&cdat->dstr_178__OBCI_COMMENT; cdat->dstr_178__OBCI_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_178__OBCI_COMMENT.val, "OBCI_COMMENT", sizeof(cdat->dstr_178__OBCI_COMMENT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:146:/ iniobj"); /*iniobj dobj_179__OBCI_COMMENT*/ if (!/*_.VALDATA___V291*/ curfptr[290]) /*_.VALDATA___V291*/ curfptr[290] = (void*)&cdat->dobj_179__OBCI_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_179__OBCI_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_179__OBCI_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_179__OBCI_COMMENT.obj_num = 1; cdat->dobj_179__OBCI_COMMENT.obj_hash = 91301039; cdat->dobj_179__OBCI_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_179__OBCI_COMMENT)); /*inistring dstr_180__OBCI_COMMENT*/ /*_.VALSTR___V292*/ curfptr[291] = (void*)&cdat->dstr_180__OBCI_COMMENT; cdat->dstr_180__OBCI_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_180__OBCI_COMMENT.val, "OBCI_COMMENT", sizeof(cdat->dstr_180__OBCI_COMMENT.val)-1); /*iniobj dsym_181__CLASS_OBJDESTINSTR*/ if (!/*_.VALDATA___V296*/ curfptr[295]) /*_.VALDATA___V296*/ curfptr[295] = (void*)&cdat->dsym_181__CLASS_OBJDESTINSTR; basilys_assertmsg("iniobj checkdiscr dsym_181__CLASS_OBJDESTINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_181__CLASS_OBJDESTINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_181__CLASS_OBJDESTINSTR.obj_hash = 395205738; cdat->dsym_181__CLASS_OBJDESTINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_181__CLASS_OBJDESTINSTR)); /*inistring dstr_182__CLASS_OBJDESTINS*/ /*_.VALSTR___V297*/ curfptr[296] = (void*)&cdat->dstr_182__CLASS_OBJDESTINS; cdat->dstr_182__CLASS_OBJDESTINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_182__CLASS_OBJDESTINS.val, "CLASS_OBJDESTINSTR", sizeof(cdat->dstr_182__CLASS_OBJDESTINS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:153:/ iniobj"); /*iniobj dobj_183__CLASS_OBJDESTINSTR*/ if (!/*_.VALDATA___V298*/ curfptr[297]) /*_.VALDATA___V298*/ curfptr[297] = (void*)&cdat->dobj_183__CLASS_OBJDESTINSTR; basilys_assertmsg("iniobj checkdiscr dobj_183__CLASS_OBJDESTINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_183__CLASS_OBJDESTINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_183__CLASS_OBJDESTINSTR.obj_num = OBMAG_OBJECT; cdat->dobj_183__CLASS_OBJDESTINSTR.obj_hash = 558301605; cdat->dobj_183__CLASS_OBJDESTINSTR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_183__CLASS_OBJDESTINSTR)); /*inistring dstr_184__CLASS_OBJDESTINS*/ /*_.VALSTR___V299*/ curfptr[298] = (void*)&cdat->dstr_184__CLASS_OBJDESTINS; cdat->dstr_184__CLASS_OBJDESTINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_184__CLASS_OBJDESTINS.val, "CLASS_OBJDESTINSTR", sizeof(cdat->dstr_184__CLASS_OBJDESTINS.val)-1); /*inimult dtup_185__CLASS_OBJDESTINSTR*/ /*_.VALTUP___V300*/ curfptr[299] = (void*)&cdat->dtup_185__CLASS_OBJDESTINSTR; cdat->dtup_185__CLASS_OBJDESTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_185__CLASS_OBJDESTINSTR.nbval = 3; /*inimult dtup_186__CLASS_OBJDESTINSTR*/ /*_.VALTUP___V303*/ curfptr[302] = (void*)&cdat->dtup_186__CLASS_OBJDESTINSTR; cdat->dtup_186__CLASS_OBJDESTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_186__CLASS_OBJDESTINSTR.nbval = 2; /*iniobj dsym_187__OBDI_DESTLIST*/ if (!/*_.VALDATA___V304*/ curfptr[303]) /*_.VALDATA___V304*/ curfptr[303] = (void*)&cdat->dsym_187__OBDI_DESTLIST; basilys_assertmsg("iniobj checkdiscr dsym_187__OBDI_DESTLIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_187__OBDI_DESTLIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_187__OBDI_DESTLIST.obj_hash = 180038599; cdat->dsym_187__OBDI_DESTLIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_187__OBDI_DESTLIST)); /*inistring dstr_188__OBDI_DESTLIST*/ /*_.VALSTR___V305*/ curfptr[304] = (void*)&cdat->dstr_188__OBDI_DESTLIST; cdat->dstr_188__OBDI_DESTLIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_188__OBDI_DESTLIST.val, "OBDI_DESTLIST", sizeof(cdat->dstr_188__OBDI_DESTLIST.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:153:/ iniobj"); /*iniobj dobj_189__OBDI_DESTLIST*/ if (!/*_.VALDATA___V301*/ curfptr[300]) /*_.VALDATA___V301*/ curfptr[300] = (void*)&cdat->dobj_189__OBDI_DESTLIST; basilys_assertmsg("iniobj checkdiscr dobj_189__OBDI_DESTLIST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_189__OBDI_DESTLIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_189__OBDI_DESTLIST.obj_num = 1; cdat->dobj_189__OBDI_DESTLIST.obj_hash = 248301983; cdat->dobj_189__OBDI_DESTLIST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_189__OBDI_DESTLIST)); /*inistring dstr_190__OBDI_DESTLIST*/ /*_.VALSTR___V302*/ curfptr[301] = (void*)&cdat->dstr_190__OBDI_DESTLIST; cdat->dstr_190__OBDI_DESTLIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_190__OBDI_DESTLIST.val, "OBDI_DESTLIST", sizeof(cdat->dstr_190__OBDI_DESTLIST.val)-1); /*iniobj dsym_191__CLASS_OBJCOMPUTE*/ if (!/*_.VALDATA___V306*/ curfptr[305]) /*_.VALDATA___V306*/ curfptr[305] = (void*)&cdat->dsym_191__CLASS_OBJCOMPUTE; basilys_assertmsg("iniobj checkdiscr dsym_191__CLASS_OBJCOMPUTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_191__CLASS_OBJCOMPUTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_191__CLASS_OBJCOMPUTE.obj_hash = 943434547; cdat->dsym_191__CLASS_OBJCOMPUTE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_191__CLASS_OBJCOMPUTE)); /*inistring dstr_192__CLASS_OBJCOMPUTE*/ /*_.VALSTR___V307*/ curfptr[306] = (void*)&cdat->dstr_192__CLASS_OBJCOMPUTE; cdat->dstr_192__CLASS_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_192__CLASS_OBJCOMPUTE.val, "CLASS_OBJCOMPUTE", sizeof(cdat->dstr_192__CLASS_OBJCOMPUTE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:159:/ iniobj"); /*iniobj dobj_193__CLASS_OBJCOMPUTE*/ if (!/*_.VALDATA___V308*/ curfptr[307]) /*_.VALDATA___V308*/ curfptr[307] = (void*)&cdat->dobj_193__CLASS_OBJCOMPUTE; basilys_assertmsg("iniobj checkdiscr dobj_193__CLASS_OBJCOMPUTE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_193__CLASS_OBJCOMPUTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_193__CLASS_OBJCOMPUTE.obj_num = OBMAG_OBJECT; cdat->dobj_193__CLASS_OBJCOMPUTE.obj_hash = 514560993; cdat->dobj_193__CLASS_OBJCOMPUTE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_193__CLASS_OBJCOMPUTE)); /*inistring dstr_194__CLASS_OBJCOMPUTE*/ /*_.VALSTR___V309*/ curfptr[308] = (void*)&cdat->dstr_194__CLASS_OBJCOMPUTE; cdat->dstr_194__CLASS_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_194__CLASS_OBJCOMPUTE.val, "CLASS_OBJCOMPUTE", sizeof(cdat->dstr_194__CLASS_OBJCOMPUTE.val)-1); /*inimult dtup_195__CLASS_OBJCOMPUTE*/ /*_.VALTUP___V310*/ curfptr[309] = (void*)&cdat->dtup_195__CLASS_OBJCOMPUTE; cdat->dtup_195__CLASS_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_195__CLASS_OBJCOMPUTE.nbval = 4; /*inimult dtup_196__CLASS_OBJCOMPUTE*/ /*_.VALTUP___V313*/ curfptr[312] = (void*)&cdat->dtup_196__CLASS_OBJCOMPUTE; cdat->dtup_196__CLASS_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_196__CLASS_OBJCOMPUTE.nbval = 3; /*iniobj dsym_197__OBCPT_EXPR*/ if (!/*_.VALDATA___V314*/ curfptr[313]) /*_.VALDATA___V314*/ curfptr[313] = (void*)&cdat->dsym_197__OBCPT_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_197__OBCPT_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_197__OBCPT_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_197__OBCPT_EXPR.obj_hash = 913600920; cdat->dsym_197__OBCPT_EXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_197__OBCPT_EXPR)); /*inistring dstr_198__OBCPT_EXPR*/ /*_.VALSTR___V315*/ curfptr[314] = (void*)&cdat->dstr_198__OBCPT_EXPR; cdat->dstr_198__OBCPT_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_198__OBCPT_EXPR.val, "OBCPT_EXPR", sizeof(cdat->dstr_198__OBCPT_EXPR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:159:/ iniobj"); /*iniobj dobj_199__OBCPT_EXPR*/ if (!/*_.VALDATA___V311*/ curfptr[310]) /*_.VALDATA___V311*/ curfptr[310] = (void*)&cdat->dobj_199__OBCPT_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_199__OBCPT_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_199__OBCPT_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_199__OBCPT_EXPR.obj_num = 2; cdat->dobj_199__OBCPT_EXPR.obj_hash = 328810869; cdat->dobj_199__OBCPT_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_199__OBCPT_EXPR)); /*inistring dstr_200__OBCPT_EXPR*/ /*_.VALSTR___V312*/ curfptr[311] = (void*)&cdat->dstr_200__OBCPT_EXPR; cdat->dstr_200__OBCPT_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_200__OBCPT_EXPR.val, "OBCPT_EXPR", sizeof(cdat->dstr_200__OBCPT_EXPR.val)-1); /*iniobj dsym_201__CLASS_OBJGETARG*/ if (!/*_.VALDATA___V316*/ curfptr[315]) /*_.VALDATA___V316*/ curfptr[315] = (void*)&cdat->dsym_201__CLASS_OBJGETARG; basilys_assertmsg("iniobj checkdiscr dsym_201__CLASS_OBJGETARG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_201__CLASS_OBJGETARG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_201__CLASS_OBJGETARG.obj_hash = 596373581; cdat->dsym_201__CLASS_OBJGETARG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_201__CLASS_OBJGETARG)); /*inistring dstr_202__CLASS_OBJGETARG*/ /*_.VALSTR___V317*/ curfptr[316] = (void*)&cdat->dstr_202__CLASS_OBJGETARG; cdat->dstr_202__CLASS_OBJGETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_202__CLASS_OBJGETARG.val, "CLASS_OBJGETARG", sizeof(cdat->dstr_202__CLASS_OBJGETARG.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:165:/ iniobj"); /*iniobj dobj_203__CLASS_OBJGETARG*/ if (!/*_.VALDATA___V318*/ curfptr[317]) /*_.VALDATA___V318*/ curfptr[317] = (void*)&cdat->dobj_203__CLASS_OBJGETARG; basilys_assertmsg("iniobj checkdiscr dobj_203__CLASS_OBJGETARG", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_203__CLASS_OBJGETARG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_203__CLASS_OBJGETARG.obj_num = OBMAG_OBJECT; cdat->dobj_203__CLASS_OBJGETARG.obj_hash = 44347813; cdat->dobj_203__CLASS_OBJGETARG.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_203__CLASS_OBJGETARG)); /*inistring dstr_204__CLASS_OBJGETARG*/ /*_.VALSTR___V319*/ curfptr[318] = (void*)&cdat->dstr_204__CLASS_OBJGETARG; cdat->dstr_204__CLASS_OBJGETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_204__CLASS_OBJGETARG.val, "CLASS_OBJGETARG", sizeof(cdat->dstr_204__CLASS_OBJGETARG.val)-1); /*inimult dtup_205__CLASS_OBJGETARG*/ /*_.VALTUP___V320*/ curfptr[319] = (void*)&cdat->dtup_205__CLASS_OBJGETARG; cdat->dtup_205__CLASS_OBJGETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_205__CLASS_OBJGETARG.nbval = 3; /*inimult dtup_206__CLASS_OBJGETARG*/ /*_.VALTUP___V325*/ curfptr[324] = (void*)&cdat->dtup_206__CLASS_OBJGETARG; cdat->dtup_206__CLASS_OBJGETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_206__CLASS_OBJGETARG.nbval = 3; /*iniobj dsym_207__OBARG_OBLOC*/ if (!/*_.VALDATA___V326*/ curfptr[325]) /*_.VALDATA___V326*/ curfptr[325] = (void*)&cdat->dsym_207__OBARG_OBLOC; basilys_assertmsg("iniobj checkdiscr dsym_207__OBARG_OBLOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_207__OBARG_OBLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_207__OBARG_OBLOC.obj_hash = 699379031; cdat->dsym_207__OBARG_OBLOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_207__OBARG_OBLOC)); /*inistring dstr_208__OBARG_OBLOC*/ /*_.VALSTR___V327*/ curfptr[326] = (void*)&cdat->dstr_208__OBARG_OBLOC; cdat->dstr_208__OBARG_OBLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_208__OBARG_OBLOC.val, "OBARG_OBLOC", sizeof(cdat->dstr_208__OBARG_OBLOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:165:/ iniobj"); /*iniobj dobj_209__OBARG_OBLOC*/ if (!/*_.VALDATA___V321*/ curfptr[320]) /*_.VALDATA___V321*/ curfptr[320] = (void*)&cdat->dobj_209__OBARG_OBLOC; basilys_assertmsg("iniobj checkdiscr dobj_209__OBARG_OBLOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_209__OBARG_OBLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_209__OBARG_OBLOC.obj_num = 1; cdat->dobj_209__OBARG_OBLOC.obj_hash = 153392386; cdat->dobj_209__OBARG_OBLOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_209__OBARG_OBLOC)); /*inistring dstr_210__OBARG_OBLOC*/ /*_.VALSTR___V322*/ curfptr[321] = (void*)&cdat->dstr_210__OBARG_OBLOC; cdat->dstr_210__OBARG_OBLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_210__OBARG_OBLOC.val, "OBARG_OBLOC", sizeof(cdat->dstr_210__OBARG_OBLOC.val)-1); /*iniobj dsym_211__OBARG_BIND*/ if (!/*_.VALDATA___V328*/ curfptr[327]) /*_.VALDATA___V328*/ curfptr[327] = (void*)&cdat->dsym_211__OBARG_BIND; basilys_assertmsg("iniobj checkdiscr dsym_211__OBARG_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_211__OBARG_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_211__OBARG_BIND.obj_hash = 537792589; cdat->dsym_211__OBARG_BIND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_211__OBARG_BIND)); /*inistring dstr_212__OBARG_BIND*/ /*_.VALSTR___V329*/ curfptr[328] = (void*)&cdat->dstr_212__OBARG_BIND; cdat->dstr_212__OBARG_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_212__OBARG_BIND.val, "OBARG_BIND", sizeof(cdat->dstr_212__OBARG_BIND.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:165:/ iniobj"); /*iniobj dobj_213__OBARG_BIND*/ if (!/*_.VALDATA___V323*/ curfptr[322]) /*_.VALDATA___V323*/ curfptr[322] = (void*)&cdat->dobj_213__OBARG_BIND; basilys_assertmsg("iniobj checkdiscr dobj_213__OBARG_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_213__OBARG_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_213__OBARG_BIND.obj_num = 2; cdat->dobj_213__OBARG_BIND.obj_hash = 153940195; cdat->dobj_213__OBARG_BIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_213__OBARG_BIND)); /*inistring dstr_214__OBARG_BIND*/ /*_.VALSTR___V324*/ curfptr[323] = (void*)&cdat->dstr_214__OBARG_BIND; cdat->dstr_214__OBARG_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_214__OBARG_BIND.val, "OBARG_BIND", sizeof(cdat->dstr_214__OBARG_BIND.val)-1); /*iniobj dsym_215__CLASS_OBJPUTXTRARESULT*/ if (!/*_.VALDATA___V330*/ curfptr[329]) /*_.VALDATA___V330*/ curfptr[329] = (void*)&cdat->dsym_215__CLASS_OBJPUTXTRARESULT; basilys_assertmsg("iniobj checkdiscr dsym_215__CLASS_OBJPUTXTRARESULT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_215__CLASS_OBJPUTXTRARESULT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_215__CLASS_OBJPUTXTRARESULT.obj_hash = 66172370; cdat->dsym_215__CLASS_OBJPUTXTRARESULT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_215__CLASS_OBJPUTXTRARESULT)); /*inistring dstr_216__CLASS_OBJPUTXTRA*/ /*_.VALSTR___V331*/ curfptr[330] = (void*)&cdat->dstr_216__CLASS_OBJPUTXTRA; cdat->dstr_216__CLASS_OBJPUTXTRA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_216__CLASS_OBJPUTXTRA.val, "CLASS_OBJPUTXTRARESULT", sizeof(cdat->dstr_216__CLASS_OBJPUTXTRA.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:173:/ iniobj"); /*iniobj dobj_217__CLASS_OBJPUTXTRARESULT*/ if (!/*_.VALDATA___V332*/ curfptr[331]) /*_.VALDATA___V332*/ curfptr[331] = (void*)&cdat->dobj_217__CLASS_OBJPUTXTRARESULT; basilys_assertmsg("iniobj checkdiscr dobj_217__CLASS_OBJPUTXTRARESULT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_217__CLASS_OBJPUTXTRARESULT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_217__CLASS_OBJPUTXTRARESULT.obj_num = OBMAG_OBJECT; cdat->dobj_217__CLASS_OBJPUTXTRARESULT.obj_hash = 246859312; cdat->dobj_217__CLASS_OBJPUTXTRARESULT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_217__CLASS_OBJPUTXTRARESULT)); /*inistring dstr_218__CLASS_OBJPUTXTRA*/ /*_.VALSTR___V333*/ curfptr[332] = (void*)&cdat->dstr_218__CLASS_OBJPUTXTRA; cdat->dstr_218__CLASS_OBJPUTXTRA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_218__CLASS_OBJPUTXTRA.val, "CLASS_OBJPUTXTRARESULT", sizeof(cdat->dstr_218__CLASS_OBJPUTXTRA.val)-1); /*inimult dtup_219__CLASS_OBJPUTXTRARESULT*/ /*_.VALTUP___V334*/ curfptr[333] = (void*)&cdat->dtup_219__CLASS_OBJPUTXTRARESULT; cdat->dtup_219__CLASS_OBJPUTXTRARESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_219__CLASS_OBJPUTXTRARESULT.nbval = 3; /*inimult dtup_220__CLASS_OBJPUTXTRARESULT*/ /*_.VALTUP___V339*/ curfptr[338] = (void*)&cdat->dtup_220__CLASS_OBJPUTXTRARESULT; cdat->dtup_220__CLASS_OBJPUTXTRARESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_220__CLASS_OBJPUTXTRARESULT.nbval = 3; /*iniobj dsym_221__OBXRES_RANK*/ if (!/*_.VALDATA___V340*/ curfptr[339]) /*_.VALDATA___V340*/ curfptr[339] = (void*)&cdat->dsym_221__OBXRES_RANK; basilys_assertmsg("iniobj checkdiscr dsym_221__OBXRES_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_221__OBXRES_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_221__OBXRES_RANK.obj_hash = 1046282203; cdat->dsym_221__OBXRES_RANK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_221__OBXRES_RANK)); /*inistring dstr_222__OBXRES_RANK*/ /*_.VALSTR___V341*/ curfptr[340] = (void*)&cdat->dstr_222__OBXRES_RANK; cdat->dstr_222__OBXRES_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_222__OBXRES_RANK.val, "OBXRES_RANK", sizeof(cdat->dstr_222__OBXRES_RANK.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:173:/ iniobj"); /*iniobj dobj_223__OBXRES_RANK*/ if (!/*_.VALDATA___V335*/ curfptr[334]) /*_.VALDATA___V335*/ curfptr[334] = (void*)&cdat->dobj_223__OBXRES_RANK; basilys_assertmsg("iniobj checkdiscr dobj_223__OBXRES_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_223__OBXRES_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_223__OBXRES_RANK.obj_num = 1; cdat->dobj_223__OBXRES_RANK.obj_hash = 841369440; cdat->dobj_223__OBXRES_RANK.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_223__OBXRES_RANK)); /*inistring dstr_224__OBXRES_RANK*/ /*_.VALSTR___V336*/ curfptr[335] = (void*)&cdat->dstr_224__OBXRES_RANK; cdat->dstr_224__OBXRES_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_224__OBXRES_RANK.val, "OBXRES_RANK", sizeof(cdat->dstr_224__OBXRES_RANK.val)-1); /*iniobj dsym_225__OBXRES_OBLOC*/ if (!/*_.VALDATA___V342*/ curfptr[341]) /*_.VALDATA___V342*/ curfptr[341] = (void*)&cdat->dsym_225__OBXRES_OBLOC; basilys_assertmsg("iniobj checkdiscr dsym_225__OBXRES_OBLOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_225__OBXRES_OBLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_225__OBXRES_OBLOC.obj_hash = 1017197592; cdat->dsym_225__OBXRES_OBLOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_225__OBXRES_OBLOC)); /*inistring dstr_226__OBXRES_OBLOC*/ /*_.VALSTR___V343*/ curfptr[342] = (void*)&cdat->dstr_226__OBXRES_OBLOC; cdat->dstr_226__OBXRES_OBLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_226__OBXRES_OBLOC.val, "OBXRES_OBLOC", sizeof(cdat->dstr_226__OBXRES_OBLOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:173:/ iniobj"); /*iniobj dobj_227__OBXRES_OBLOC*/ if (!/*_.VALDATA___V337*/ curfptr[336]) /*_.VALDATA___V337*/ curfptr[336] = (void*)&cdat->dobj_227__OBXRES_OBLOC; basilys_assertmsg("iniobj checkdiscr dobj_227__OBXRES_OBLOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_227__OBXRES_OBLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_227__OBXRES_OBLOC.obj_num = 2; cdat->dobj_227__OBXRES_OBLOC.obj_hash = 591472593; cdat->dobj_227__OBXRES_OBLOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_227__OBXRES_OBLOC)); /*inistring dstr_228__OBXRES_OBLOC*/ /*_.VALSTR___V338*/ curfptr[337] = (void*)&cdat->dstr_228__OBXRES_OBLOC; cdat->dstr_228__OBXRES_OBLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_228__OBXRES_OBLOC.val, "OBXRES_OBLOC", sizeof(cdat->dstr_228__OBXRES_OBLOC.val)-1); /*iniobj dsym_229__CLASS_OBJFINALRETURN*/ if (!/*_.VALDATA___V344*/ curfptr[343]) /*_.VALDATA___V344*/ curfptr[343] = (void*)&cdat->dsym_229__CLASS_OBJFINALRETURN; basilys_assertmsg("iniobj checkdiscr dsym_229__CLASS_OBJFINALRETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_229__CLASS_OBJFINALRETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_229__CLASS_OBJFINALRETURN.obj_hash = 650464089; cdat->dsym_229__CLASS_OBJFINALRETURN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_229__CLASS_OBJFINALRETURN)); /*inistring dstr_230__CLASS_OBJFINALRE*/ /*_.VALSTR___V345*/ curfptr[344] = (void*)&cdat->dstr_230__CLASS_OBJFINALRE; cdat->dstr_230__CLASS_OBJFINALRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_230__CLASS_OBJFINALRE.val, "CLASS_OBJFINALRETURN", sizeof(cdat->dstr_230__CLASS_OBJFINALRE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:180:/ iniobj"); /*iniobj dobj_231__CLASS_OBJFINALRETURN*/ if (!/*_.VALDATA___V346*/ curfptr[345]) /*_.VALDATA___V346*/ curfptr[345] = (void*)&cdat->dobj_231__CLASS_OBJFINALRETURN; basilys_assertmsg("iniobj checkdiscr dobj_231__CLASS_OBJFINALRETURN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_231__CLASS_OBJFINALRETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_231__CLASS_OBJFINALRETURN.obj_num = OBMAG_OBJECT; cdat->dobj_231__CLASS_OBJFINALRETURN.obj_hash = 172624780; cdat->dobj_231__CLASS_OBJFINALRETURN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_231__CLASS_OBJFINALRETURN)); /*inistring dstr_232__CLASS_OBJFINALRE*/ /*_.VALSTR___V347*/ curfptr[346] = (void*)&cdat->dstr_232__CLASS_OBJFINALRE; cdat->dstr_232__CLASS_OBJFINALRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_232__CLASS_OBJFINALRE.val, "CLASS_OBJFINALRETURN", sizeof(cdat->dstr_232__CLASS_OBJFINALRE.val)-1); /*inimult dtup_233__CLASS_OBJFINALRETURN*/ /*_.VALTUP___V348*/ curfptr[347] = (void*)&cdat->dtup_233__CLASS_OBJFINALRETURN; cdat->dtup_233__CLASS_OBJFINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_233__CLASS_OBJFINALRETURN.nbval = 3; /*inimult dtup_234__CLASS_OBJFINALRETURN*/ /*_.VALTUP___V349*/ curfptr[348] = (void*)&cdat->dtup_234__CLASS_OBJFINALRETURN; cdat->dtup_234__CLASS_OBJFINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_234__CLASS_OBJFINALRETURN.nbval = 1; /*iniobj dsym_235__CLASS_OBJCLEAR*/ if (!/*_.VALDATA___V350*/ curfptr[349]) /*_.VALDATA___V350*/ curfptr[349] = (void*)&cdat->dsym_235__CLASS_OBJCLEAR; basilys_assertmsg("iniobj checkdiscr dsym_235__CLASS_OBJCLEAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__CLASS_OBJCLEAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__CLASS_OBJCLEAR.obj_hash = 1071635108; cdat->dsym_235__CLASS_OBJCLEAR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_235__CLASS_OBJCLEAR)); /*inistring dstr_236__CLASS_OBJCLEAR*/ /*_.VALSTR___V351*/ curfptr[350] = (void*)&cdat->dstr_236__CLASS_OBJCLEAR; cdat->dstr_236__CLASS_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_236__CLASS_OBJCLEAR.val, "CLASS_OBJCLEAR", sizeof(cdat->dstr_236__CLASS_OBJCLEAR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:186:/ iniobj"); /*iniobj dobj_237__CLASS_OBJCLEAR*/ if (!/*_.VALDATA___V352*/ curfptr[351]) /*_.VALDATA___V352*/ curfptr[351] = (void*)&cdat->dobj_237__CLASS_OBJCLEAR; basilys_assertmsg("iniobj checkdiscr dobj_237__CLASS_OBJCLEAR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_237__CLASS_OBJCLEAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_237__CLASS_OBJCLEAR.obj_num = OBMAG_OBJECT; cdat->dobj_237__CLASS_OBJCLEAR.obj_hash = 532540696; cdat->dobj_237__CLASS_OBJCLEAR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_237__CLASS_OBJCLEAR)); /*inistring dstr_238__CLASS_OBJCLEAR*/ /*_.VALSTR___V353*/ curfptr[352] = (void*)&cdat->dstr_238__CLASS_OBJCLEAR; cdat->dstr_238__CLASS_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_238__CLASS_OBJCLEAR.val, "CLASS_OBJCLEAR", sizeof(cdat->dstr_238__CLASS_OBJCLEAR.val)-1); /*inimult dtup_239__CLASS_OBJCLEAR*/ /*_.VALTUP___V354*/ curfptr[353] = (void*)&cdat->dtup_239__CLASS_OBJCLEAR; cdat->dtup_239__CLASS_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_239__CLASS_OBJCLEAR.nbval = 3; /*inimult dtup_240__CLASS_OBJCLEAR*/ /*_.VALTUP___V357*/ curfptr[356] = (void*)&cdat->dtup_240__CLASS_OBJCLEAR; cdat->dtup_240__CLASS_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_240__CLASS_OBJCLEAR.nbval = 2; /*iniobj dsym_241__OCLR_VLOC*/ if (!/*_.VALDATA___V358*/ curfptr[357]) /*_.VALDATA___V358*/ curfptr[357] = (void*)&cdat->dsym_241__OCLR_VLOC; basilys_assertmsg("iniobj checkdiscr dsym_241__OCLR_VLOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_241__OCLR_VLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_241__OCLR_VLOC.obj_hash = 73469244; cdat->dsym_241__OCLR_VLOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_241__OCLR_VLOC)); /*inistring dstr_242__OCLR_VLOC*/ /*_.VALSTR___V359*/ curfptr[358] = (void*)&cdat->dstr_242__OCLR_VLOC; cdat->dstr_242__OCLR_VLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_242__OCLR_VLOC.val, "OCLR_VLOC", sizeof(cdat->dstr_242__OCLR_VLOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:186:/ iniobj"); /*iniobj dobj_243__OCLR_VLOC*/ if (!/*_.VALDATA___V355*/ curfptr[354]) /*_.VALDATA___V355*/ curfptr[354] = (void*)&cdat->dobj_243__OCLR_VLOC; basilys_assertmsg("iniobj checkdiscr dobj_243__OCLR_VLOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_243__OCLR_VLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_243__OCLR_VLOC.obj_num = 1; cdat->dobj_243__OCLR_VLOC.obj_hash = 16522163; cdat->dobj_243__OCLR_VLOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_243__OCLR_VLOC)); /*inistring dstr_244__OCLR_VLOC*/ /*_.VALSTR___V356*/ curfptr[355] = (void*)&cdat->dstr_244__OCLR_VLOC; cdat->dstr_244__OCLR_VLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_244__OCLR_VLOC.val, "OCLR_VLOC", sizeof(cdat->dstr_244__OCLR_VLOC.val)-1); /*iniobj dsym_245__CLASS_OBJBLOCK*/ if (!/*_.VALDATA___V360*/ curfptr[359]) /*_.VALDATA___V360*/ curfptr[359] = (void*)&cdat->dsym_245__CLASS_OBJBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_245__CLASS_OBJBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_245__CLASS_OBJBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_245__CLASS_OBJBLOCK.obj_hash = 827902126; cdat->dsym_245__CLASS_OBJBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_245__CLASS_OBJBLOCK)); /*inistring dstr_246__CLASS_OBJBLOCK*/ /*_.VALSTR___V361*/ curfptr[360] = (void*)&cdat->dstr_246__CLASS_OBJBLOCK; cdat->dstr_246__CLASS_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_246__CLASS_OBJBLOCK.val, "CLASS_OBJBLOCK", sizeof(cdat->dstr_246__CLASS_OBJBLOCK.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:194:/ iniobj"); /*iniobj dobj_247__CLASS_OBJBLOCK*/ if (!/*_.VALDATA___V362*/ curfptr[361]) /*_.VALDATA___V362*/ curfptr[361] = (void*)&cdat->dobj_247__CLASS_OBJBLOCK; basilys_assertmsg("iniobj checkdiscr dobj_247__CLASS_OBJBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_247__CLASS_OBJBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_247__CLASS_OBJBLOCK.obj_num = OBMAG_OBJECT; cdat->dobj_247__CLASS_OBJBLOCK.obj_hash = 162052399; cdat->dobj_247__CLASS_OBJBLOCK.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_247__CLASS_OBJBLOCK)); /*inistring dstr_248__CLASS_OBJBLOCK*/ /*_.VALSTR___V363*/ curfptr[362] = (void*)&cdat->dstr_248__CLASS_OBJBLOCK; cdat->dstr_248__CLASS_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_248__CLASS_OBJBLOCK.val, "CLASS_OBJBLOCK", sizeof(cdat->dstr_248__CLASS_OBJBLOCK.val)-1); /*inimult dtup_249__CLASS_OBJBLOCK*/ /*_.VALTUP___V364*/ curfptr[363] = (void*)&cdat->dtup_249__CLASS_OBJBLOCK; cdat->dtup_249__CLASS_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_249__CLASS_OBJBLOCK.nbval = 3; /*inimult dtup_250__CLASS_OBJBLOCK*/ /*_.VALTUP___V369*/ curfptr[368] = (void*)&cdat->dtup_250__CLASS_OBJBLOCK; cdat->dtup_250__CLASS_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_250__CLASS_OBJBLOCK.nbval = 3; /*iniobj dsym_251__OBLO_BODYL*/ if (!/*_.VALDATA___V370*/ curfptr[369]) /*_.VALDATA___V370*/ curfptr[369] = (void*)&cdat->dsym_251__OBLO_BODYL; basilys_assertmsg("iniobj checkdiscr dsym_251__OBLO_BODYL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_251__OBLO_BODYL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_251__OBLO_BODYL.obj_hash = 670858523; cdat->dsym_251__OBLO_BODYL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_251__OBLO_BODYL)); /*inistring dstr_252__OBLO_BODYL*/ /*_.VALSTR___V371*/ curfptr[370] = (void*)&cdat->dstr_252__OBLO_BODYL; cdat->dstr_252__OBLO_BODYL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_252__OBLO_BODYL.val, "OBLO_BODYL", sizeof(cdat->dstr_252__OBLO_BODYL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:194:/ iniobj"); /*iniobj dobj_253__OBLO_BODYL*/ if (!/*_.VALDATA___V365*/ curfptr[364]) /*_.VALDATA___V365*/ curfptr[364] = (void*)&cdat->dobj_253__OBLO_BODYL; basilys_assertmsg("iniobj checkdiscr dobj_253__OBLO_BODYL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_253__OBLO_BODYL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_253__OBLO_BODYL.obj_num = 1; cdat->dobj_253__OBLO_BODYL.obj_hash = 380977792; cdat->dobj_253__OBLO_BODYL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_253__OBLO_BODYL)); /*inistring dstr_254__OBLO_BODYL*/ /*_.VALSTR___V366*/ curfptr[365] = (void*)&cdat->dstr_254__OBLO_BODYL; cdat->dstr_254__OBLO_BODYL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_254__OBLO_BODYL.val, "OBLO_BODYL", sizeof(cdat->dstr_254__OBLO_BODYL.val)-1); /*iniobj dsym_255__OBLO_EPIL*/ if (!/*_.VALDATA___V372*/ curfptr[371]) /*_.VALDATA___V372*/ curfptr[371] = (void*)&cdat->dsym_255__OBLO_EPIL; basilys_assertmsg("iniobj checkdiscr dsym_255__OBLO_EPIL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_255__OBLO_EPIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_255__OBLO_EPIL.obj_hash = 1173969; cdat->dsym_255__OBLO_EPIL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_255__OBLO_EPIL)); /*inistring dstr_256__OBLO_EPIL*/ /*_.VALSTR___V373*/ curfptr[372] = (void*)&cdat->dstr_256__OBLO_EPIL; cdat->dstr_256__OBLO_EPIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_256__OBLO_EPIL.val, "OBLO_EPIL", sizeof(cdat->dstr_256__OBLO_EPIL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:194:/ iniobj"); /*iniobj dobj_257__OBLO_EPIL*/ if (!/*_.VALDATA___V367*/ curfptr[366]) /*_.VALDATA___V367*/ curfptr[366] = (void*)&cdat->dobj_257__OBLO_EPIL; basilys_assertmsg("iniobj checkdiscr dobj_257__OBLO_EPIL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_257__OBLO_EPIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_257__OBLO_EPIL.obj_num = 2; cdat->dobj_257__OBLO_EPIL.obj_hash = 795928832; cdat->dobj_257__OBLO_EPIL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_257__OBLO_EPIL)); /*inistring dstr_258__OBLO_EPIL*/ /*_.VALSTR___V368*/ curfptr[367] = (void*)&cdat->dstr_258__OBLO_EPIL; cdat->dstr_258__OBLO_EPIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_258__OBLO_EPIL.val, "OBLO_EPIL", sizeof(cdat->dstr_258__OBLO_EPIL.val)-1); /*iniobj dsym_259__CLASS_OBJCOMMENTEDBLOCK*/ if (!/*_.VALDATA___V374*/ curfptr[373]) /*_.VALDATA___V374*/ curfptr[373] = (void*)&cdat->dsym_259__CLASS_OBJCOMMENTEDBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_259__CLASS_OBJCOMMENTEDBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__CLASS_OBJCOMMENTEDBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 94800260; cdat->dsym_259__CLASS_OBJCOMMENTEDBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_259__CLASS_OBJCOMMENTEDBLOCK)); /*inistring dstr_260__CLASS_OBJCOMMENT*/ /*_.VALSTR___V375*/ curfptr[374] = (void*)&cdat->dstr_260__CLASS_OBJCOMMENT; cdat->dstr_260__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_260__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTEDBLOCK", sizeof(cdat->dstr_260__CLASS_OBJCOMMENT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:201:/ iniobj"); /*iniobj dobj_261__CLASS_OBJCOMMENTEDBLOCK*/ if (!/*_.VALDATA___V376*/ curfptr[375]) /*_.VALDATA___V376*/ curfptr[375] = (void*)&cdat->dobj_261__CLASS_OBJCOMMENTEDBLOCK; basilys_assertmsg("iniobj checkdiscr dobj_261__CLASS_OBJCOMMENTEDBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_261__CLASS_OBJCOMMENTEDBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_261__CLASS_OBJCOMMENTEDBLOCK.obj_num = OBMAG_OBJECT; cdat->dobj_261__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 696740823; cdat->dobj_261__CLASS_OBJCOMMENTEDBLOCK.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_261__CLASS_OBJCOMMENTEDBLOCK)); /*inistring dstr_262__CLASS_OBJCOMMENT*/ /*_.VALSTR___V377*/ curfptr[376] = (void*)&cdat->dstr_262__CLASS_OBJCOMMENT; cdat->dstr_262__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_262__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTEDBLOCK", sizeof(cdat->dstr_262__CLASS_OBJCOMMENT.val)-1); /*inimult dtup_263__CLASS_OBJCOMMENTEDBLOCK*/ /*_.VALTUP___V378*/ curfptr[377] = (void*)&cdat->dtup_263__CLASS_OBJCOMMENTEDBLOCK; cdat->dtup_263__CLASS_OBJCOMMENTEDBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_263__CLASS_OBJCOMMENTEDBLOCK.nbval = 4; /*inimult dtup_264__CLASS_OBJCOMMENTEDBLOCK*/ /*_.VALTUP___V381*/ curfptr[380] = (void*)&cdat->dtup_264__CLASS_OBJCOMMENTEDBLOCK; cdat->dtup_264__CLASS_OBJCOMMENTEDBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_264__CLASS_OBJCOMMENTEDBLOCK.nbval = 4; /*iniobj dsym_265__OCOMBLO_COMMENT*/ if (!/*_.VALDATA___V382*/ curfptr[381]) /*_.VALDATA___V382*/ curfptr[381] = (void*)&cdat->dsym_265__OCOMBLO_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_265__OCOMBLO_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_265__OCOMBLO_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_265__OCOMBLO_COMMENT.obj_hash = 712376266; cdat->dsym_265__OCOMBLO_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_265__OCOMBLO_COMMENT)); /*inistring dstr_266__OCOMBLO_COMMENT*/ /*_.VALSTR___V383*/ curfptr[382] = (void*)&cdat->dstr_266__OCOMBLO_COMMENT; cdat->dstr_266__OCOMBLO_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_266__OCOMBLO_COMMENT.val, "OCOMBLO_COMMENT", sizeof(cdat->dstr_266__OCOMBLO_COMMENT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:201:/ iniobj"); /*iniobj dobj_267__OCOMBLO_COMMENT*/ if (!/*_.VALDATA___V379*/ curfptr[378]) /*_.VALDATA___V379*/ curfptr[378] = (void*)&cdat->dobj_267__OCOMBLO_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_267__OCOMBLO_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_267__OCOMBLO_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_267__OCOMBLO_COMMENT.obj_num = 3; cdat->dobj_267__OCOMBLO_COMMENT.obj_hash = 735166187; cdat->dobj_267__OCOMBLO_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_267__OCOMBLO_COMMENT)); /*inistring dstr_268__OCOMBLO_COMMENT*/ /*_.VALSTR___V380*/ curfptr[379] = (void*)&cdat->dstr_268__OCOMBLO_COMMENT; cdat->dstr_268__OCOMBLO_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_268__OCOMBLO_COMMENT.val, "OCOMBLO_COMMENT", sizeof(cdat->dstr_268__OCOMBLO_COMMENT.val)-1); /*iniobj dsym_269__CLASS_OBJMULTIBLOCK*/ if (!/*_.VALDATA___V384*/ curfptr[383]) /*_.VALDATA___V384*/ curfptr[383] = (void*)&cdat->dsym_269__CLASS_OBJMULTIBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_269__CLASS_OBJMULTIBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_269__CLASS_OBJMULTIBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_269__CLASS_OBJMULTIBLOCK.obj_hash = 792736107; cdat->dsym_269__CLASS_OBJMULTIBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_269__CLASS_OBJMULTIBLOCK)); /*inistring dstr_270__CLASS_OBJMULTIBL*/ /*_.VALSTR___V385*/ curfptr[384] = (void*)&cdat->dstr_270__CLASS_OBJMULTIBL; cdat->dstr_270__CLASS_OBJMULTIBL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_270__CLASS_OBJMULTIBL.val, "CLASS_OBJMULTIBLOCK", sizeof(cdat->dstr_270__CLASS_OBJMULTIBL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:209:/ iniobj"); /*iniobj dobj_271__CLASS_OBJMULTIBLOCK*/ if (!/*_.VALDATA___V386*/ curfptr[385]) /*_.VALDATA___V386*/ curfptr[385] = (void*)&cdat->dobj_271__CLASS_OBJMULTIBLOCK; basilys_assertmsg("iniobj checkdiscr dobj_271__CLASS_OBJMULTIBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_271__CLASS_OBJMULTIBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_271__CLASS_OBJMULTIBLOCK.obj_num = OBMAG_OBJECT; cdat->dobj_271__CLASS_OBJMULTIBLOCK.obj_hash = 869318536; cdat->dobj_271__CLASS_OBJMULTIBLOCK.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_271__CLASS_OBJMULTIBLOCK)); /*inistring dstr_272__CLASS_OBJMULTIBL*/ /*_.VALSTR___V387*/ curfptr[386] = (void*)&cdat->dstr_272__CLASS_OBJMULTIBL; cdat->dstr_272__CLASS_OBJMULTIBL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_272__CLASS_OBJMULTIBL.val, "CLASS_OBJMULTIBLOCK", sizeof(cdat->dstr_272__CLASS_OBJMULTIBL.val)-1); /*inimult dtup_273__CLASS_OBJMULTIBLOCK*/ /*_.VALTUP___V388*/ curfptr[387] = (void*)&cdat->dtup_273__CLASS_OBJMULTIBLOCK; cdat->dtup_273__CLASS_OBJMULTIBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_273__CLASS_OBJMULTIBLOCK.nbval = 4; /*inimult dtup_274__CLASS_OBJMULTIBLOCK*/ /*_.VALTUP___V391*/ curfptr[390] = (void*)&cdat->dtup_274__CLASS_OBJMULTIBLOCK; cdat->dtup_274__CLASS_OBJMULTIBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_274__CLASS_OBJMULTIBLOCK.nbval = 4; /*iniobj dsym_275__OMULBLO_SUBCOMP*/ if (!/*_.VALDATA___V392*/ curfptr[391]) /*_.VALDATA___V392*/ curfptr[391] = (void*)&cdat->dsym_275__OMULBLO_SUBCOMP; basilys_assertmsg("iniobj checkdiscr dsym_275__OMULBLO_SUBCOMP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_275__OMULBLO_SUBCOMP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_275__OMULBLO_SUBCOMP.obj_hash = 959451844; cdat->dsym_275__OMULBLO_SUBCOMP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_275__OMULBLO_SUBCOMP)); /*inistring dstr_276__OMULBLO_SUBCOMP*/ /*_.VALSTR___V393*/ curfptr[392] = (void*)&cdat->dstr_276__OMULBLO_SUBCOMP; cdat->dstr_276__OMULBLO_SUBCOMP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_276__OMULBLO_SUBCOMP.val, "OMULBLO_SUBCOMP", sizeof(cdat->dstr_276__OMULBLO_SUBCOMP.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:209:/ iniobj"); /*iniobj dobj_277__OMULBLO_SUBCOMP*/ if (!/*_.VALDATA___V389*/ curfptr[388]) /*_.VALDATA___V389*/ curfptr[388] = (void*)&cdat->dobj_277__OMULBLO_SUBCOMP; basilys_assertmsg("iniobj checkdiscr dobj_277__OMULBLO_SUBCOMP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_277__OMULBLO_SUBCOMP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_277__OMULBLO_SUBCOMP.obj_num = 3; cdat->dobj_277__OMULBLO_SUBCOMP.obj_hash = 665097058; cdat->dobj_277__OMULBLO_SUBCOMP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_277__OMULBLO_SUBCOMP)); /*inistring dstr_278__OMULBLO_SUBCOMP*/ /*_.VALSTR___V390*/ curfptr[389] = (void*)&cdat->dstr_278__OMULBLO_SUBCOMP; cdat->dstr_278__OMULBLO_SUBCOMP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_278__OMULBLO_SUBCOMP.val, "OMULBLO_SUBCOMP", sizeof(cdat->dstr_278__OMULBLO_SUBCOMP.val)-1); /*iniobj dsym_279__CLASS_OBJLABELINSTR*/ if (!/*_.VALDATA___V394*/ curfptr[393]) /*_.VALDATA___V394*/ curfptr[393] = (void*)&cdat->dsym_279__CLASS_OBJLABELINSTR; basilys_assertmsg("iniobj checkdiscr dsym_279__CLASS_OBJLABELINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_279__CLASS_OBJLABELINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_279__CLASS_OBJLABELINSTR.obj_hash = 573008884; cdat->dsym_279__CLASS_OBJLABELINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_279__CLASS_OBJLABELINSTR)); /*inistring dstr_280__CLASS_OBJLABELIN*/ /*_.VALSTR___V395*/ curfptr[394] = (void*)&cdat->dstr_280__CLASS_OBJLABELIN; cdat->dstr_280__CLASS_OBJLABELIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_280__CLASS_OBJLABELIN.val, "CLASS_OBJLABELINSTR", sizeof(cdat->dstr_280__CLASS_OBJLABELIN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:217:/ iniobj"); /*iniobj dobj_281__CLASS_OBJLABELINSTR*/ if (!/*_.VALDATA___V396*/ curfptr[395]) /*_.VALDATA___V396*/ curfptr[395] = (void*)&cdat->dobj_281__CLASS_OBJLABELINSTR; basilys_assertmsg("iniobj checkdiscr dobj_281__CLASS_OBJLABELINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_281__CLASS_OBJLABELINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_281__CLASS_OBJLABELINSTR.obj_num = OBMAG_OBJECT; cdat->dobj_281__CLASS_OBJLABELINSTR.obj_hash = 850001815; cdat->dobj_281__CLASS_OBJLABELINSTR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_281__CLASS_OBJLABELINSTR)); /*inistring dstr_282__CLASS_OBJLABELIN*/ /*_.VALSTR___V397*/ curfptr[396] = (void*)&cdat->dstr_282__CLASS_OBJLABELIN; cdat->dstr_282__CLASS_OBJLABELIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_282__CLASS_OBJLABELIN.val, "CLASS_OBJLABELINSTR", sizeof(cdat->dstr_282__CLASS_OBJLABELIN.val)-1); /*inimult dtup_283__CLASS_OBJLABELINSTR*/ /*_.VALTUP___V398*/ curfptr[397] = (void*)&cdat->dtup_283__CLASS_OBJLABELINSTR; cdat->dtup_283__CLASS_OBJLABELINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_283__CLASS_OBJLABELINSTR.nbval = 3; /*inimult dtup_284__CLASS_OBJLABELINSTR*/ /*_.VALTUP___V403*/ curfptr[402] = (void*)&cdat->dtup_284__CLASS_OBJLABELINSTR; cdat->dtup_284__CLASS_OBJLABELINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_284__CLASS_OBJLABELINSTR.nbval = 3; /*iniobj dsym_285__OBLAB_PREFIX*/ if (!/*_.VALDATA___V404*/ curfptr[403]) /*_.VALDATA___V404*/ curfptr[403] = (void*)&cdat->dsym_285__OBLAB_PREFIX; basilys_assertmsg("iniobj checkdiscr dsym_285__OBLAB_PREFIX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_285__OBLAB_PREFIX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_285__OBLAB_PREFIX.obj_hash = 840012268; cdat->dsym_285__OBLAB_PREFIX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_285__OBLAB_PREFIX)); /*inistring dstr_286__OBLAB_PREFIX*/ /*_.VALSTR___V405*/ curfptr[404] = (void*)&cdat->dstr_286__OBLAB_PREFIX; cdat->dstr_286__OBLAB_PREFIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_286__OBLAB_PREFIX.val, "OBLAB_PREFIX", sizeof(cdat->dstr_286__OBLAB_PREFIX.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:217:/ iniobj"); /*iniobj dobj_287__OBLAB_PREFIX*/ if (!/*_.VALDATA___V399*/ curfptr[398]) /*_.VALDATA___V399*/ curfptr[398] = (void*)&cdat->dobj_287__OBLAB_PREFIX; basilys_assertmsg("iniobj checkdiscr dobj_287__OBLAB_PREFIX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_287__OBLAB_PREFIX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_287__OBLAB_PREFIX.obj_num = 1; cdat->dobj_287__OBLAB_PREFIX.obj_hash = 256997755; cdat->dobj_287__OBLAB_PREFIX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_287__OBLAB_PREFIX)); /*inistring dstr_288__OBLAB_PREFIX*/ /*_.VALSTR___V400*/ curfptr[399] = (void*)&cdat->dstr_288__OBLAB_PREFIX; cdat->dstr_288__OBLAB_PREFIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_288__OBLAB_PREFIX.val, "OBLAB_PREFIX", sizeof(cdat->dstr_288__OBLAB_PREFIX.val)-1); /*iniobj dsym_289__OBLAB_RANK*/ if (!/*_.VALDATA___V406*/ curfptr[405]) /*_.VALDATA___V406*/ curfptr[405] = (void*)&cdat->dsym_289__OBLAB_RANK; basilys_assertmsg("iniobj checkdiscr dsym_289__OBLAB_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_289__OBLAB_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_289__OBLAB_RANK.obj_hash = 496762826; cdat->dsym_289__OBLAB_RANK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_289__OBLAB_RANK)); /*inistring dstr_290__OBLAB_RANK*/ /*_.VALSTR___V407*/ curfptr[406] = (void*)&cdat->dstr_290__OBLAB_RANK; cdat->dstr_290__OBLAB_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_290__OBLAB_RANK.val, "OBLAB_RANK", sizeof(cdat->dstr_290__OBLAB_RANK.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:217:/ iniobj"); /*iniobj dobj_291__OBLAB_RANK*/ if (!/*_.VALDATA___V401*/ curfptr[400]) /*_.VALDATA___V401*/ curfptr[400] = (void*)&cdat->dobj_291__OBLAB_RANK; basilys_assertmsg("iniobj checkdiscr dobj_291__OBLAB_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_291__OBLAB_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_291__OBLAB_RANK.obj_num = 2; cdat->dobj_291__OBLAB_RANK.obj_hash = 328503428; cdat->dobj_291__OBLAB_RANK.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_291__OBLAB_RANK)); /*inistring dstr_292__OBLAB_RANK*/ /*_.VALSTR___V402*/ curfptr[401] = (void*)&cdat->dstr_292__OBLAB_RANK; cdat->dstr_292__OBLAB_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_292__OBLAB_RANK.val, "OBLAB_RANK", sizeof(cdat->dstr_292__OBLAB_RANK.val)-1); /*iniobj dsym_293__CLASS_OBJGOTOINSTR*/ if (!/*_.VALDATA___V408*/ curfptr[407]) /*_.VALDATA___V408*/ curfptr[407] = (void*)&cdat->dsym_293__CLASS_OBJGOTOINSTR; basilys_assertmsg("iniobj checkdiscr dsym_293__CLASS_OBJGOTOINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_293__CLASS_OBJGOTOINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_293__CLASS_OBJGOTOINSTR.obj_hash = 100586655; cdat->dsym_293__CLASS_OBJGOTOINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_293__CLASS_OBJGOTOINSTR)); /*inistring dstr_294__CLASS_OBJGOTOINS*/ /*_.VALSTR___V409*/ curfptr[408] = (void*)&cdat->dstr_294__CLASS_OBJGOTOINS; cdat->dstr_294__CLASS_OBJGOTOINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_294__CLASS_OBJGOTOINS.val, "CLASS_OBJGOTOINSTR", sizeof(cdat->dstr_294__CLASS_OBJGOTOINS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:224:/ iniobj"); /*iniobj dobj_295__CLASS_OBJGOTOINSTR*/ if (!/*_.VALDATA___V410*/ curfptr[409]) /*_.VALDATA___V410*/ curfptr[409] = (void*)&cdat->dobj_295__CLASS_OBJGOTOINSTR; basilys_assertmsg("iniobj checkdiscr dobj_295__CLASS_OBJGOTOINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_295__CLASS_OBJGOTOINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_295__CLASS_OBJGOTOINSTR.obj_num = OBMAG_OBJECT; cdat->dobj_295__CLASS_OBJGOTOINSTR.obj_hash = 173540709; cdat->dobj_295__CLASS_OBJGOTOINSTR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_295__CLASS_OBJGOTOINSTR)); /*inistring dstr_296__CLASS_OBJGOTOINS*/ /*_.VALSTR___V411*/ curfptr[410] = (void*)&cdat->dstr_296__CLASS_OBJGOTOINS; cdat->dstr_296__CLASS_OBJGOTOINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_296__CLASS_OBJGOTOINS.val, "CLASS_OBJGOTOINSTR", sizeof(cdat->dstr_296__CLASS_OBJGOTOINS.val)-1); /*inimult dtup_297__CLASS_OBJGOTOINSTR*/ /*_.VALTUP___V412*/ curfptr[411] = (void*)&cdat->dtup_297__CLASS_OBJGOTOINSTR; cdat->dtup_297__CLASS_OBJGOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_297__CLASS_OBJGOTOINSTR.nbval = 3; /*inimult dtup_298__CLASS_OBJGOTOINSTR*/ /*_.VALTUP___V417*/ curfptr[416] = (void*)&cdat->dtup_298__CLASS_OBJGOTOINSTR; cdat->dtup_298__CLASS_OBJGOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_298__CLASS_OBJGOTOINSTR.nbval = 3; /*iniobj dsym_299__OBGOTO_PREFIX*/ if (!/*_.VALDATA___V418*/ curfptr[417]) /*_.VALDATA___V418*/ curfptr[417] = (void*)&cdat->dsym_299__OBGOTO_PREFIX; basilys_assertmsg("iniobj checkdiscr dsym_299__OBGOTO_PREFIX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_299__OBGOTO_PREFIX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_299__OBGOTO_PREFIX.obj_hash = 25959994; cdat->dsym_299__OBGOTO_PREFIX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_299__OBGOTO_PREFIX)); /*inistring dstr_300__OBGOTO_PREFIX*/ /*_.VALSTR___V419*/ curfptr[418] = (void*)&cdat->dstr_300__OBGOTO_PREFIX; cdat->dstr_300__OBGOTO_PREFIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_300__OBGOTO_PREFIX.val, "OBGOTO_PREFIX", sizeof(cdat->dstr_300__OBGOTO_PREFIX.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:224:/ iniobj"); /*iniobj dobj_301__OBGOTO_PREFIX*/ if (!/*_.VALDATA___V413*/ curfptr[412]) /*_.VALDATA___V413*/ curfptr[412] = (void*)&cdat->dobj_301__OBGOTO_PREFIX; basilys_assertmsg("iniobj checkdiscr dobj_301__OBGOTO_PREFIX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_301__OBGOTO_PREFIX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_301__OBGOTO_PREFIX.obj_num = 1; cdat->dobj_301__OBGOTO_PREFIX.obj_hash = 724450370; cdat->dobj_301__OBGOTO_PREFIX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_301__OBGOTO_PREFIX)); /*inistring dstr_302__OBGOTO_PREFIX*/ /*_.VALSTR___V414*/ curfptr[413] = (void*)&cdat->dstr_302__OBGOTO_PREFIX; cdat->dstr_302__OBGOTO_PREFIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_302__OBGOTO_PREFIX.val, "OBGOTO_PREFIX", sizeof(cdat->dstr_302__OBGOTO_PREFIX.val)-1); /*iniobj dsym_303__OBGOTO_RANK*/ if (!/*_.VALDATA___V420*/ curfptr[419]) /*_.VALDATA___V420*/ curfptr[419] = (void*)&cdat->dsym_303__OBGOTO_RANK; basilys_assertmsg("iniobj checkdiscr dsym_303__OBGOTO_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_303__OBGOTO_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_303__OBGOTO_RANK.obj_hash = 264149341; cdat->dsym_303__OBGOTO_RANK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_303__OBGOTO_RANK)); /*inistring dstr_304__OBGOTO_RANK*/ /*_.VALSTR___V421*/ curfptr[420] = (void*)&cdat->dstr_304__OBGOTO_RANK; cdat->dstr_304__OBGOTO_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_304__OBGOTO_RANK.val, "OBGOTO_RANK", sizeof(cdat->dstr_304__OBGOTO_RANK.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:224:/ iniobj"); /*iniobj dobj_305__OBGOTO_RANK*/ if (!/*_.VALDATA___V415*/ curfptr[414]) /*_.VALDATA___V415*/ curfptr[414] = (void*)&cdat->dobj_305__OBGOTO_RANK; basilys_assertmsg("iniobj checkdiscr dobj_305__OBGOTO_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_305__OBGOTO_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_305__OBGOTO_RANK.obj_num = 2; cdat->dobj_305__OBGOTO_RANK.obj_hash = 509375879; cdat->dobj_305__OBGOTO_RANK.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_305__OBGOTO_RANK)); /*inistring dstr_306__OBGOTO_RANK*/ /*_.VALSTR___V416*/ curfptr[415] = (void*)&cdat->dstr_306__OBGOTO_RANK; cdat->dstr_306__OBGOTO_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_306__OBGOTO_RANK.val, "OBGOTO_RANK", sizeof(cdat->dstr_306__OBGOTO_RANK.val)-1); /*iniobj dsym_307__CLASS_OBJLOOP*/ if (!/*_.VALDATA___V422*/ curfptr[421]) /*_.VALDATA___V422*/ curfptr[421] = (void*)&cdat->dsym_307__CLASS_OBJLOOP; basilys_assertmsg("iniobj checkdiscr dsym_307__CLASS_OBJLOOP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_307__CLASS_OBJLOOP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_307__CLASS_OBJLOOP.obj_hash = 763853388; cdat->dsym_307__CLASS_OBJLOOP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_307__CLASS_OBJLOOP)); /*inistring dstr_308__CLASS_OBJLOOP*/ /*_.VALSTR___V423*/ curfptr[422] = (void*)&cdat->dstr_308__CLASS_OBJLOOP; cdat->dstr_308__CLASS_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_308__CLASS_OBJLOOP.val, "CLASS_OBJLOOP", sizeof(cdat->dstr_308__CLASS_OBJLOOP.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:231:/ iniobj"); /*iniobj dobj_309__CLASS_OBJLOOP*/ if (!/*_.VALDATA___V424*/ curfptr[423]) /*_.VALDATA___V424*/ curfptr[423] = (void*)&cdat->dobj_309__CLASS_OBJLOOP; basilys_assertmsg("iniobj checkdiscr dobj_309__CLASS_OBJLOOP", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_309__CLASS_OBJLOOP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_309__CLASS_OBJLOOP.obj_num = OBMAG_OBJECT; cdat->dobj_309__CLASS_OBJLOOP.obj_hash = 620512539; cdat->dobj_309__CLASS_OBJLOOP.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_309__CLASS_OBJLOOP)); /*inistring dstr_310__CLASS_OBJLOOP*/ /*_.VALSTR___V425*/ curfptr[424] = (void*)&cdat->dstr_310__CLASS_OBJLOOP; cdat->dstr_310__CLASS_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_310__CLASS_OBJLOOP.val, "CLASS_OBJLOOP", sizeof(cdat->dstr_310__CLASS_OBJLOOP.val)-1); /*inimult dtup_311__CLASS_OBJLOOP*/ /*_.VALTUP___V426*/ curfptr[425] = (void*)&cdat->dtup_311__CLASS_OBJLOOP; cdat->dtup_311__CLASS_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_311__CLASS_OBJLOOP.nbval = 4; /*inimult dtup_312__CLASS_OBJLOOP*/ /*_.VALTUP___V431*/ curfptr[430] = (void*)&cdat->dtup_312__CLASS_OBJLOOP; cdat->dtup_312__CLASS_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_312__CLASS_OBJLOOP.nbval = 5; /*iniobj dsym_313__OBLOOP_LABEL*/ if (!/*_.VALDATA___V432*/ curfptr[431]) /*_.VALDATA___V432*/ curfptr[431] = (void*)&cdat->dsym_313__OBLOOP_LABEL; basilys_assertmsg("iniobj checkdiscr dsym_313__OBLOOP_LABEL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_313__OBLOOP_LABEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_313__OBLOOP_LABEL.obj_hash = 684962223; cdat->dsym_313__OBLOOP_LABEL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_313__OBLOOP_LABEL)); /*inistring dstr_314__OBLOOP_LABEL*/ /*_.VALSTR___V433*/ curfptr[432] = (void*)&cdat->dstr_314__OBLOOP_LABEL; cdat->dstr_314__OBLOOP_LABEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_314__OBLOOP_LABEL.val, "OBLOOP_LABEL", sizeof(cdat->dstr_314__OBLOOP_LABEL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:231:/ iniobj"); /*iniobj dobj_315__OBLOOP_LABEL*/ if (!/*_.VALDATA___V427*/ curfptr[426]) /*_.VALDATA___V427*/ curfptr[426] = (void*)&cdat->dobj_315__OBLOOP_LABEL; basilys_assertmsg("iniobj checkdiscr dobj_315__OBLOOP_LABEL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_315__OBLOOP_LABEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_315__OBLOOP_LABEL.obj_num = 3; cdat->dobj_315__OBLOOP_LABEL.obj_hash = 626786892; cdat->dobj_315__OBLOOP_LABEL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_315__OBLOOP_LABEL)); /*inistring dstr_316__OBLOOP_LABEL*/ /*_.VALSTR___V428*/ curfptr[427] = (void*)&cdat->dstr_316__OBLOOP_LABEL; cdat->dstr_316__OBLOOP_LABEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_316__OBLOOP_LABEL.val, "OBLOOP_LABEL", sizeof(cdat->dstr_316__OBLOOP_LABEL.val)-1); /*iniobj dsym_317__OBLOOP_RESV*/ if (!/*_.VALDATA___V434*/ curfptr[433]) /*_.VALDATA___V434*/ curfptr[433] = (void*)&cdat->dsym_317__OBLOOP_RESV; basilys_assertmsg("iniobj checkdiscr dsym_317__OBLOOP_RESV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_317__OBLOOP_RESV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_317__OBLOOP_RESV.obj_hash = 70873018; cdat->dsym_317__OBLOOP_RESV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_317__OBLOOP_RESV)); /*inistring dstr_318__OBLOOP_RESV*/ /*_.VALSTR___V435*/ curfptr[434] = (void*)&cdat->dstr_318__OBLOOP_RESV; cdat->dstr_318__OBLOOP_RESV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_318__OBLOOP_RESV.val, "OBLOOP_RESV", sizeof(cdat->dstr_318__OBLOOP_RESV.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:231:/ iniobj"); /*iniobj dobj_319__OBLOOP_RESV*/ if (!/*_.VALDATA___V429*/ curfptr[428]) /*_.VALDATA___V429*/ curfptr[428] = (void*)&cdat->dobj_319__OBLOOP_RESV; basilys_assertmsg("iniobj checkdiscr dobj_319__OBLOOP_RESV", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_319__OBLOOP_RESV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_319__OBLOOP_RESV.obj_num = 4; cdat->dobj_319__OBLOOP_RESV.obj_hash = 65770965; cdat->dobj_319__OBLOOP_RESV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_319__OBLOOP_RESV)); /*inistring dstr_320__OBLOOP_RESV*/ /*_.VALSTR___V430*/ curfptr[429] = (void*)&cdat->dstr_320__OBLOOP_RESV; cdat->dstr_320__OBLOOP_RESV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_320__OBLOOP_RESV.val, "OBLOOP_RESV", sizeof(cdat->dstr_320__OBLOOP_RESV.val)-1); /*iniobj dsym_321__CLASS_OBJEXIT*/ if (!/*_.VALDATA___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (void*)&cdat->dsym_321__CLASS_OBJEXIT; basilys_assertmsg("iniobj checkdiscr dsym_321__CLASS_OBJEXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_321__CLASS_OBJEXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_321__CLASS_OBJEXIT.obj_hash = 635210442; cdat->dsym_321__CLASS_OBJEXIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_321__CLASS_OBJEXIT)); /*inistring dstr_322__CLASS_OBJEXIT*/ /*_.VALSTR___V437*/ curfptr[436] = (void*)&cdat->dstr_322__CLASS_OBJEXIT; cdat->dstr_322__CLASS_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_322__CLASS_OBJEXIT.val, "CLASS_OBJEXIT", sizeof(cdat->dstr_322__CLASS_OBJEXIT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:238:/ iniobj"); /*iniobj dobj_323__CLASS_OBJEXIT*/ if (!/*_.VALDATA___V438*/ curfptr[437]) /*_.VALDATA___V438*/ curfptr[437] = (void*)&cdat->dobj_323__CLASS_OBJEXIT; basilys_assertmsg("iniobj checkdiscr dobj_323__CLASS_OBJEXIT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_323__CLASS_OBJEXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_323__CLASS_OBJEXIT.obj_num = OBMAG_OBJECT; cdat->dobj_323__CLASS_OBJEXIT.obj_hash = 837932876; cdat->dobj_323__CLASS_OBJEXIT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_323__CLASS_OBJEXIT)); /*inistring dstr_324__CLASS_OBJEXIT*/ /*_.VALSTR___V439*/ curfptr[438] = (void*)&cdat->dstr_324__CLASS_OBJEXIT; cdat->dstr_324__CLASS_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_324__CLASS_OBJEXIT.val, "CLASS_OBJEXIT", sizeof(cdat->dstr_324__CLASS_OBJEXIT.val)-1); /*inimult dtup_325__CLASS_OBJEXIT*/ /*_.VALTUP___V440*/ curfptr[439] = (void*)&cdat->dtup_325__CLASS_OBJEXIT; cdat->dtup_325__CLASS_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_325__CLASS_OBJEXIT.nbval = 3; /*inimult dtup_326__CLASS_OBJEXIT*/ /*_.VALTUP___V443*/ curfptr[442] = (void*)&cdat->dtup_326__CLASS_OBJEXIT; cdat->dtup_326__CLASS_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_326__CLASS_OBJEXIT.nbval = 2; /*iniobj dsym_327__OBEXIT_LABEL*/ if (!/*_.VALDATA___V444*/ curfptr[443]) /*_.VALDATA___V444*/ curfptr[443] = (void*)&cdat->dsym_327__OBEXIT_LABEL; basilys_assertmsg("iniobj checkdiscr dsym_327__OBEXIT_LABEL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_327__OBEXIT_LABEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_327__OBEXIT_LABEL.obj_hash = 737884684; cdat->dsym_327__OBEXIT_LABEL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_327__OBEXIT_LABEL)); /*inistring dstr_328__OBEXIT_LABEL*/ /*_.VALSTR___V445*/ curfptr[444] = (void*)&cdat->dstr_328__OBEXIT_LABEL; cdat->dstr_328__OBEXIT_LABEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_328__OBEXIT_LABEL.val, "OBEXIT_LABEL", sizeof(cdat->dstr_328__OBEXIT_LABEL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:238:/ iniobj"); /*iniobj dobj_329__OBEXIT_LABEL*/ if (!/*_.VALDATA___V441*/ curfptr[440]) /*_.VALDATA___V441*/ curfptr[440] = (void*)&cdat->dobj_329__OBEXIT_LABEL; basilys_assertmsg("iniobj checkdiscr dobj_329__OBEXIT_LABEL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_329__OBEXIT_LABEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_329__OBEXIT_LABEL.obj_num = 1; cdat->dobj_329__OBEXIT_LABEL.obj_hash = 528058805; cdat->dobj_329__OBEXIT_LABEL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_329__OBEXIT_LABEL)); /*inistring dstr_330__OBEXIT_LABEL*/ /*_.VALSTR___V442*/ curfptr[441] = (void*)&cdat->dstr_330__OBEXIT_LABEL; cdat->dstr_330__OBEXIT_LABEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_330__OBEXIT_LABEL.val, "OBEXIT_LABEL", sizeof(cdat->dstr_330__OBEXIT_LABEL.val)-1); /*iniobj dsym_331__CLASS_OBJCITERBLOCK*/ if (!/*_.VALDATA___V446*/ curfptr[445]) /*_.VALDATA___V446*/ curfptr[445] = (void*)&cdat->dsym_331__CLASS_OBJCITERBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_331__CLASS_OBJCITERBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_331__CLASS_OBJCITERBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_331__CLASS_OBJCITERBLOCK.obj_hash = 897861098; cdat->dsym_331__CLASS_OBJCITERBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_331__CLASS_OBJCITERBLOCK)); /*inistring dstr_332__CLASS_OBJCITERBL*/ /*_.VALSTR___V447*/ curfptr[446] = (void*)&cdat->dstr_332__CLASS_OBJCITERBL; cdat->dstr_332__CLASS_OBJCITERBL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_332__CLASS_OBJCITERBL.val, "CLASS_OBJCITERBLOCK", sizeof(cdat->dstr_332__CLASS_OBJCITERBL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:244:/ iniobj"); /*iniobj dobj_333__CLASS_OBJCITERBLOCK*/ if (!/*_.VALDATA___V448*/ curfptr[447]) /*_.VALDATA___V448*/ curfptr[447] = (void*)&cdat->dobj_333__CLASS_OBJCITERBLOCK; basilys_assertmsg("iniobj checkdiscr dobj_333__CLASS_OBJCITERBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_333__CLASS_OBJCITERBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_333__CLASS_OBJCITERBLOCK.obj_num = OBMAG_OBJECT; cdat->dobj_333__CLASS_OBJCITERBLOCK.obj_hash = 582104425; cdat->dobj_333__CLASS_OBJCITERBLOCK.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_333__CLASS_OBJCITERBLOCK)); /*inistring dstr_334__CLASS_OBJCITERBL*/ /*_.VALSTR___V449*/ curfptr[448] = (void*)&cdat->dstr_334__CLASS_OBJCITERBL; cdat->dstr_334__CLASS_OBJCITERBL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_334__CLASS_OBJCITERBL.val, "CLASS_OBJCITERBLOCK", sizeof(cdat->dstr_334__CLASS_OBJCITERBL.val)-1); /*inimult dtup_335__CLASS_OBJCITERBLOCK*/ /*_.VALTUP___V450*/ curfptr[449] = (void*)&cdat->dtup_335__CLASS_OBJCITERBLOCK; cdat->dtup_335__CLASS_OBJCITERBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_335__CLASS_OBJCITERBLOCK.nbval = 4; /*inimult dtup_336__CLASS_OBJCITERBLOCK*/ /*_.VALTUP___V457*/ curfptr[456] = (void*)&cdat->dtup_336__CLASS_OBJCITERBLOCK; cdat->dtup_336__CLASS_OBJCITERBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_336__CLASS_OBJCITERBLOCK.nbval = 6; /*iniobj dsym_337__OBCITER_CITER*/ if (!/*_.VALDATA___V458*/ curfptr[457]) /*_.VALDATA___V458*/ curfptr[457] = (void*)&cdat->dsym_337__OBCITER_CITER; basilys_assertmsg("iniobj checkdiscr dsym_337__OBCITER_CITER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_337__OBCITER_CITER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_337__OBCITER_CITER.obj_hash = 69011792; cdat->dsym_337__OBCITER_CITER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_337__OBCITER_CITER)); /*inistring dstr_338__OBCITER_CITER*/ /*_.VALSTR___V459*/ curfptr[458] = (void*)&cdat->dstr_338__OBCITER_CITER; cdat->dstr_338__OBCITER_CITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_338__OBCITER_CITER.val, "OBCITER_CITER", sizeof(cdat->dstr_338__OBCITER_CITER.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:244:/ iniobj"); /*iniobj dobj_339__OBCITER_CITER*/ if (!/*_.VALDATA___V451*/ curfptr[450]) /*_.VALDATA___V451*/ curfptr[450] = (void*)&cdat->dobj_339__OBCITER_CITER; basilys_assertmsg("iniobj checkdiscr dobj_339__OBCITER_CITER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_339__OBCITER_CITER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_339__OBCITER_CITER.obj_num = 3; cdat->dobj_339__OBCITER_CITER.obj_hash = 693657274; cdat->dobj_339__OBCITER_CITER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_339__OBCITER_CITER)); /*inistring dstr_340__OBCITER_CITER*/ /*_.VALSTR___V452*/ curfptr[451] = (void*)&cdat->dstr_340__OBCITER_CITER; cdat->dstr_340__OBCITER_CITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_340__OBCITER_CITER.val, "OBCITER_CITER", sizeof(cdat->dstr_340__OBCITER_CITER.val)-1); /*iniobj dsym_341__OBCITER_BEFORE*/ if (!/*_.VALDATA___V460*/ curfptr[459]) /*_.VALDATA___V460*/ curfptr[459] = (void*)&cdat->dsym_341__OBCITER_BEFORE; basilys_assertmsg("iniobj checkdiscr dsym_341__OBCITER_BEFORE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_341__OBCITER_BEFORE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_341__OBCITER_BEFORE.obj_hash = 297072; cdat->dsym_341__OBCITER_BEFORE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_341__OBCITER_BEFORE)); /*inistring dstr_342__OBCITER_BEFORE*/ /*_.VALSTR___V461*/ curfptr[460] = (void*)&cdat->dstr_342__OBCITER_BEFORE; cdat->dstr_342__OBCITER_BEFORE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_342__OBCITER_BEFORE.val, "OBCITER_BEFORE", sizeof(cdat->dstr_342__OBCITER_BEFORE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:244:/ iniobj"); /*iniobj dobj_343__OBCITER_BEFORE*/ if (!/*_.VALDATA___V453*/ curfptr[452]) /*_.VALDATA___V453*/ curfptr[452] = (void*)&cdat->dobj_343__OBCITER_BEFORE; basilys_assertmsg("iniobj checkdiscr dobj_343__OBCITER_BEFORE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_343__OBCITER_BEFORE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_343__OBCITER_BEFORE.obj_num = 4; cdat->dobj_343__OBCITER_BEFORE.obj_hash = 977602166; cdat->dobj_343__OBCITER_BEFORE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_343__OBCITER_BEFORE)); /*inistring dstr_344__OBCITER_BEFORE*/ /*_.VALSTR___V454*/ curfptr[453] = (void*)&cdat->dstr_344__OBCITER_BEFORE; cdat->dstr_344__OBCITER_BEFORE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_344__OBCITER_BEFORE.val, "OBCITER_BEFORE", sizeof(cdat->dstr_344__OBCITER_BEFORE.val)-1); /*iniobj dsym_345__OBCITER_AFTER*/ if (!/*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*)&cdat->dsym_345__OBCITER_AFTER; basilys_assertmsg("iniobj checkdiscr dsym_345__OBCITER_AFTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_345__OBCITER_AFTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_345__OBCITER_AFTER.obj_hash = 376122538; cdat->dsym_345__OBCITER_AFTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_345__OBCITER_AFTER)); /*inistring dstr_346__OBCITER_AFTER*/ /*_.VALSTR___V463*/ curfptr[462] = (void*)&cdat->dstr_346__OBCITER_AFTER; cdat->dstr_346__OBCITER_AFTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_346__OBCITER_AFTER.val, "OBCITER_AFTER", sizeof(cdat->dstr_346__OBCITER_AFTER.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:244:/ iniobj"); /*iniobj dobj_347__OBCITER_AFTER*/ if (!/*_.VALDATA___V455*/ curfptr[454]) /*_.VALDATA___V455*/ curfptr[454] = (void*)&cdat->dobj_347__OBCITER_AFTER; basilys_assertmsg("iniobj checkdiscr dobj_347__OBCITER_AFTER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_347__OBCITER_AFTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_347__OBCITER_AFTER.obj_num = 5; cdat->dobj_347__OBCITER_AFTER.obj_hash = 883766832; cdat->dobj_347__OBCITER_AFTER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_347__OBCITER_AFTER)); /*inistring dstr_348__OBCITER_AFTER*/ /*_.VALSTR___V456*/ curfptr[455] = (void*)&cdat->dstr_348__OBCITER_AFTER; cdat->dstr_348__OBCITER_AFTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_348__OBCITER_AFTER.val, "OBCITER_AFTER", sizeof(cdat->dstr_348__OBCITER_AFTER.val)-1); /*iniobj dsym_349__CLASS_OBJCOND*/ if (!/*_.VALDATA___V464*/ curfptr[463]) /*_.VALDATA___V464*/ curfptr[463] = (void*)&cdat->dsym_349__CLASS_OBJCOND; basilys_assertmsg("iniobj checkdiscr dsym_349__CLASS_OBJCOND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_349__CLASS_OBJCOND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_349__CLASS_OBJCOND.obj_hash = 545823211; cdat->dsym_349__CLASS_OBJCOND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_349__CLASS_OBJCOND)); /*inistring dstr_350__CLASS_OBJCOND*/ /*_.VALSTR___V465*/ curfptr[464] = (void*)&cdat->dstr_350__CLASS_OBJCOND; cdat->dstr_350__CLASS_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_350__CLASS_OBJCOND.val, "CLASS_OBJCOND", sizeof(cdat->dstr_350__CLASS_OBJCOND.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:252:/ iniobj"); /*iniobj dobj_351__CLASS_OBJCOND*/ if (!/*_.VALDATA___V466*/ curfptr[465]) /*_.VALDATA___V466*/ curfptr[465] = (void*)&cdat->dobj_351__CLASS_OBJCOND; basilys_assertmsg("iniobj checkdiscr dobj_351__CLASS_OBJCOND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_351__CLASS_OBJCOND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_351__CLASS_OBJCOND.obj_num = OBMAG_OBJECT; cdat->dobj_351__CLASS_OBJCOND.obj_hash = 877530989; cdat->dobj_351__CLASS_OBJCOND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_351__CLASS_OBJCOND)); /*inistring dstr_352__CLASS_OBJCOND*/ /*_.VALSTR___V467*/ curfptr[466] = (void*)&cdat->dstr_352__CLASS_OBJCOND; cdat->dstr_352__CLASS_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_352__CLASS_OBJCOND.val, "CLASS_OBJCOND", sizeof(cdat->dstr_352__CLASS_OBJCOND.val)-1); /*inimult dtup_353__CLASS_OBJCOND*/ /*_.VALTUP___V468*/ curfptr[467] = (void*)&cdat->dtup_353__CLASS_OBJCOND; cdat->dtup_353__CLASS_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_353__CLASS_OBJCOND.nbval = 3; /*inimult dtup_354__CLASS_OBJCOND*/ /*_.VALTUP___V475*/ curfptr[474] = (void*)&cdat->dtup_354__CLASS_OBJCOND; cdat->dtup_354__CLASS_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_354__CLASS_OBJCOND.nbval = 4; /*iniobj dsym_355__OBCOND_TEST*/ if (!/*_.VALDATA___V476*/ curfptr[475]) /*_.VALDATA___V476*/ curfptr[475] = (void*)&cdat->dsym_355__OBCOND_TEST; basilys_assertmsg("iniobj checkdiscr dsym_355__OBCOND_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_355__OBCOND_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_355__OBCOND_TEST.obj_hash = 1013458796; cdat->dsym_355__OBCOND_TEST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_355__OBCOND_TEST)); /*inistring dstr_356__OBCOND_TEST*/ /*_.VALSTR___V477*/ curfptr[476] = (void*)&cdat->dstr_356__OBCOND_TEST; cdat->dstr_356__OBCOND_TEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_356__OBCOND_TEST.val, "OBCOND_TEST", sizeof(cdat->dstr_356__OBCOND_TEST.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:252:/ iniobj"); /*iniobj dobj_357__OBCOND_TEST*/ if (!/*_.VALDATA___V469*/ curfptr[468]) /*_.VALDATA___V469*/ curfptr[468] = (void*)&cdat->dobj_357__OBCOND_TEST; basilys_assertmsg("iniobj checkdiscr dobj_357__OBCOND_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_357__OBCOND_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_357__OBCOND_TEST.obj_num = 1; cdat->dobj_357__OBCOND_TEST.obj_hash = 483865240; cdat->dobj_357__OBCOND_TEST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_357__OBCOND_TEST)); /*inistring dstr_358__OBCOND_TEST*/ /*_.VALSTR___V470*/ curfptr[469] = (void*)&cdat->dstr_358__OBCOND_TEST; cdat->dstr_358__OBCOND_TEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_358__OBCOND_TEST.val, "OBCOND_TEST", sizeof(cdat->dstr_358__OBCOND_TEST.val)-1); /*iniobj dsym_359__OBCOND_THEN*/ if (!/*_.VALDATA___V478*/ curfptr[477]) /*_.VALDATA___V478*/ curfptr[477] = (void*)&cdat->dsym_359__OBCOND_THEN; basilys_assertmsg("iniobj checkdiscr dsym_359__OBCOND_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_359__OBCOND_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_359__OBCOND_THEN.obj_hash = 735778030; cdat->dsym_359__OBCOND_THEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_359__OBCOND_THEN)); /*inistring dstr_360__OBCOND_THEN*/ /*_.VALSTR___V479*/ curfptr[478] = (void*)&cdat->dstr_360__OBCOND_THEN; cdat->dstr_360__OBCOND_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_360__OBCOND_THEN.val, "OBCOND_THEN", sizeof(cdat->dstr_360__OBCOND_THEN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:252:/ iniobj"); /*iniobj dobj_361__OBCOND_THEN*/ if (!/*_.VALDATA___V471*/ curfptr[470]) /*_.VALDATA___V471*/ curfptr[470] = (void*)&cdat->dobj_361__OBCOND_THEN; basilys_assertmsg("iniobj checkdiscr dobj_361__OBCOND_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_361__OBCOND_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_361__OBCOND_THEN.obj_num = 2; cdat->dobj_361__OBCOND_THEN.obj_hash = 868721709; cdat->dobj_361__OBCOND_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_361__OBCOND_THEN)); /*inistring dstr_362__OBCOND_THEN*/ /*_.VALSTR___V472*/ curfptr[471] = (void*)&cdat->dstr_362__OBCOND_THEN; cdat->dstr_362__OBCOND_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_362__OBCOND_THEN.val, "OBCOND_THEN", sizeof(cdat->dstr_362__OBCOND_THEN.val)-1); /*iniobj dsym_363__OBCOND_ELSE*/ if (!/*_.VALDATA___V480*/ curfptr[479]) /*_.VALDATA___V480*/ curfptr[479] = (void*)&cdat->dsym_363__OBCOND_ELSE; basilys_assertmsg("iniobj checkdiscr dsym_363__OBCOND_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_363__OBCOND_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_363__OBCOND_ELSE.obj_hash = 130863960; cdat->dsym_363__OBCOND_ELSE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_363__OBCOND_ELSE)); /*inistring dstr_364__OBCOND_ELSE*/ /*_.VALSTR___V481*/ curfptr[480] = (void*)&cdat->dstr_364__OBCOND_ELSE; cdat->dstr_364__OBCOND_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_364__OBCOND_ELSE.val, "OBCOND_ELSE", sizeof(cdat->dstr_364__OBCOND_ELSE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:252:/ iniobj"); /*iniobj dobj_365__OBCOND_ELSE*/ if (!/*_.VALDATA___V473*/ curfptr[472]) /*_.VALDATA___V473*/ curfptr[472] = (void*)&cdat->dobj_365__OBCOND_ELSE; basilys_assertmsg("iniobj checkdiscr dobj_365__OBCOND_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_365__OBCOND_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_365__OBCOND_ELSE.obj_num = 3; cdat->dobj_365__OBCOND_ELSE.obj_hash = 917258405; cdat->dobj_365__OBCOND_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_365__OBCOND_ELSE)); /*inistring dstr_366__OBCOND_ELSE*/ /*_.VALSTR___V474*/ curfptr[473] = (void*)&cdat->dstr_366__OBCOND_ELSE; cdat->dstr_366__OBCOND_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_366__OBCOND_ELSE.val, "OBCOND_ELSE", sizeof(cdat->dstr_366__OBCOND_ELSE.val)-1); /*iniobj dsym_367__CLASS_OBJCPPIF*/ if (!/*_.VALDATA___V482*/ curfptr[481]) /*_.VALDATA___V482*/ curfptr[481] = (void*)&cdat->dsym_367__CLASS_OBJCPPIF; basilys_assertmsg("iniobj checkdiscr dsym_367__CLASS_OBJCPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_367__CLASS_OBJCPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_367__CLASS_OBJCPPIF.obj_hash = 418843843; cdat->dsym_367__CLASS_OBJCPPIF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_367__CLASS_OBJCPPIF)); /*inistring dstr_368__CLASS_OBJCPPIF*/ /*_.VALSTR___V483*/ curfptr[482] = (void*)&cdat->dstr_368__CLASS_OBJCPPIF; cdat->dstr_368__CLASS_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_368__CLASS_OBJCPPIF.val, "CLASS_OBJCPPIF", sizeof(cdat->dstr_368__CLASS_OBJCPPIF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:260:/ iniobj"); /*iniobj dobj_369__CLASS_OBJCPPIF*/ if (!/*_.VALDATA___V484*/ curfptr[483]) /*_.VALDATA___V484*/ curfptr[483] = (void*)&cdat->dobj_369__CLASS_OBJCPPIF; basilys_assertmsg("iniobj checkdiscr dobj_369__CLASS_OBJCPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_369__CLASS_OBJCPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_369__CLASS_OBJCPPIF.obj_num = OBMAG_OBJECT; cdat->dobj_369__CLASS_OBJCPPIF.obj_hash = 791151987; cdat->dobj_369__CLASS_OBJCPPIF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_369__CLASS_OBJCPPIF)); /*inistring dstr_370__CLASS_OBJCPPIF*/ /*_.VALSTR___V485*/ curfptr[484] = (void*)&cdat->dstr_370__CLASS_OBJCPPIF; cdat->dstr_370__CLASS_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_370__CLASS_OBJCPPIF.val, "CLASS_OBJCPPIF", sizeof(cdat->dstr_370__CLASS_OBJCPPIF.val)-1); /*inimult dtup_371__CLASS_OBJCPPIF*/ /*_.VALTUP___V486*/ curfptr[485] = (void*)&cdat->dtup_371__CLASS_OBJCPPIF; cdat->dtup_371__CLASS_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_371__CLASS_OBJCPPIF.nbval = 3; /*inimult dtup_372__CLASS_OBJCPPIF*/ /*_.VALTUP___V493*/ curfptr[492] = (void*)&cdat->dtup_372__CLASS_OBJCPPIF; cdat->dtup_372__CLASS_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_372__CLASS_OBJCPPIF.nbval = 4; /*iniobj dsym_373__OBIFP_COND*/ if (!/*_.VALDATA___V494*/ curfptr[493]) /*_.VALDATA___V494*/ curfptr[493] = (void*)&cdat->dsym_373__OBIFP_COND; basilys_assertmsg("iniobj checkdiscr dsym_373__OBIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_373__OBIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_373__OBIFP_COND.obj_hash = 366560212; cdat->dsym_373__OBIFP_COND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_373__OBIFP_COND)); /*inistring dstr_374__OBIFP_COND*/ /*_.VALSTR___V495*/ curfptr[494] = (void*)&cdat->dstr_374__OBIFP_COND; cdat->dstr_374__OBIFP_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_374__OBIFP_COND.val, "OBIFP_COND", sizeof(cdat->dstr_374__OBIFP_COND.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:260:/ iniobj"); /*iniobj dobj_375__OBIFP_COND*/ if (!/*_.VALDATA___V487*/ curfptr[486]) /*_.VALDATA___V487*/ curfptr[486] = (void*)&cdat->dobj_375__OBIFP_COND; basilys_assertmsg("iniobj checkdiscr dobj_375__OBIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_375__OBIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_375__OBIFP_COND.obj_num = 1; cdat->dobj_375__OBIFP_COND.obj_hash = 126493137; cdat->dobj_375__OBIFP_COND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_375__OBIFP_COND)); /*inistring dstr_376__OBIFP_COND*/ /*_.VALSTR___V488*/ curfptr[487] = (void*)&cdat->dstr_376__OBIFP_COND; cdat->dstr_376__OBIFP_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_376__OBIFP_COND.val, "OBIFP_COND", sizeof(cdat->dstr_376__OBIFP_COND.val)-1); /*iniobj dsym_377__OBIFP_THEN*/ if (!/*_.VALDATA___V496*/ curfptr[495]) /*_.VALDATA___V496*/ curfptr[495] = (void*)&cdat->dsym_377__OBIFP_THEN; basilys_assertmsg("iniobj checkdiscr dsym_377__OBIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_377__OBIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_377__OBIFP_THEN.obj_hash = 596133818; cdat->dsym_377__OBIFP_THEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_377__OBIFP_THEN)); /*inistring dstr_378__OBIFP_THEN*/ /*_.VALSTR___V497*/ curfptr[496] = (void*)&cdat->dstr_378__OBIFP_THEN; cdat->dstr_378__OBIFP_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_378__OBIFP_THEN.val, "OBIFP_THEN", sizeof(cdat->dstr_378__OBIFP_THEN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:260:/ iniobj"); /*iniobj dobj_379__OBIFP_THEN*/ if (!/*_.VALDATA___V489*/ curfptr[488]) /*_.VALDATA___V489*/ curfptr[488] = (void*)&cdat->dobj_379__OBIFP_THEN; basilys_assertmsg("iniobj checkdiscr dobj_379__OBIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__OBIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__OBIFP_THEN.obj_num = 2; cdat->dobj_379__OBIFP_THEN.obj_hash = 365366445; cdat->dobj_379__OBIFP_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_379__OBIFP_THEN)); /*inistring dstr_380__OBIFP_THEN*/ /*_.VALSTR___V490*/ curfptr[489] = (void*)&cdat->dstr_380__OBIFP_THEN; cdat->dstr_380__OBIFP_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_380__OBIFP_THEN.val, "OBIFP_THEN", sizeof(cdat->dstr_380__OBIFP_THEN.val)-1); /*iniobj dsym_381__OBIFP_ELSE*/ if (!/*_.VALDATA___V498*/ curfptr[497]) /*_.VALDATA___V498*/ curfptr[497] = (void*)&cdat->dsym_381__OBIFP_ELSE; basilys_assertmsg("iniobj checkdiscr dsym_381__OBIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_381__OBIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_381__OBIFP_ELSE.obj_hash = 967265882; cdat->dsym_381__OBIFP_ELSE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_381__OBIFP_ELSE)); /*inistring dstr_382__OBIFP_ELSE*/ /*_.VALSTR___V499*/ curfptr[498] = (void*)&cdat->dstr_382__OBIFP_ELSE; cdat->dstr_382__OBIFP_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_382__OBIFP_ELSE.val, "OBIFP_ELSE", sizeof(cdat->dstr_382__OBIFP_ELSE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:260:/ iniobj"); /*iniobj dobj_383__OBIFP_ELSE*/ if (!/*_.VALDATA___V491*/ curfptr[490]) /*_.VALDATA___V491*/ curfptr[490] = (void*)&cdat->dobj_383__OBIFP_ELSE; basilys_assertmsg("iniobj checkdiscr dobj_383__OBIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_383__OBIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_383__OBIFP_ELSE.obj_num = 3; cdat->dobj_383__OBIFP_ELSE.obj_hash = 196066921; cdat->dobj_383__OBIFP_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_383__OBIFP_ELSE)); /*inistring dstr_384__OBIFP_ELSE*/ /*_.VALSTR___V492*/ curfptr[491] = (void*)&cdat->dstr_384__OBIFP_ELSE; cdat->dstr_384__OBIFP_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_384__OBIFP_ELSE.val, "OBIFP_ELSE", sizeof(cdat->dstr_384__OBIFP_ELSE.val)-1); /*iniobj dsym_385__CLASS_OBJINTERNCOMMON*/ if (!/*_.VALDATA___V500*/ curfptr[499]) /*_.VALDATA___V500*/ curfptr[499] = (void*)&cdat->dsym_385__CLASS_OBJINTERNCOMMON; basilys_assertmsg("iniobj checkdiscr dsym_385__CLASS_OBJINTERNCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_385__CLASS_OBJINTERNCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_385__CLASS_OBJINTERNCOMMON.obj_hash = 712376266; cdat->dsym_385__CLASS_OBJINTERNCOMMON.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_385__CLASS_OBJINTERNCOMMON)); /*inistring dstr_386__CLASS_OBJINTERNC*/ /*_.VALSTR___V501*/ curfptr[500] = (void*)&cdat->dstr_386__CLASS_OBJINTERNC; cdat->dstr_386__CLASS_OBJINTERNC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_386__CLASS_OBJINTERNC.val, "CLASS_OBJINTERNCOMMON", sizeof(cdat->dstr_386__CLASS_OBJINTERNC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:269:/ iniobj"); /*iniobj dobj_387__CLASS_OBJINTERNCOMMON*/ if (!/*_.VALDATA___V502*/ curfptr[501]) /*_.VALDATA___V502*/ curfptr[501] = (void*)&cdat->dobj_387__CLASS_OBJINTERNCOMMON; basilys_assertmsg("iniobj checkdiscr dobj_387__CLASS_OBJINTERNCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_387__CLASS_OBJINTERNCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_387__CLASS_OBJINTERNCOMMON.obj_num = OBMAG_OBJECT; cdat->dobj_387__CLASS_OBJINTERNCOMMON.obj_hash = 440326638; cdat->dobj_387__CLASS_OBJINTERNCOMMON.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_387__CLASS_OBJINTERNCOMMON)); /*inistring dstr_388__CLASS_OBJINTERNC*/ /*_.VALSTR___V503*/ curfptr[502] = (void*)&cdat->dstr_388__CLASS_OBJINTERNC; cdat->dstr_388__CLASS_OBJINTERNC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_388__CLASS_OBJINTERNC.val, "CLASS_OBJINTERNCOMMON", sizeof(cdat->dstr_388__CLASS_OBJINTERNC.val)-1); /*inimult dtup_389__CLASS_OBJINTERNCOMMON*/ /*_.VALTUP___V504*/ curfptr[503] = (void*)&cdat->dtup_389__CLASS_OBJINTERNCOMMON; cdat->dtup_389__CLASS_OBJINTERNCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_389__CLASS_OBJINTERNCOMMON.nbval = 3; /*inimult dtup_390__CLASS_OBJINTERNCOMMON*/ /*_.VALTUP___V507*/ curfptr[506] = (void*)&cdat->dtup_390__CLASS_OBJINTERNCOMMON; cdat->dtup_390__CLASS_OBJINTERNCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_390__CLASS_OBJINTERNCOMMON.nbval = 2; /*iniobj dsym_391__OBINTERN_IOBJ*/ if (!/*_.VALDATA___V508*/ curfptr[507]) /*_.VALDATA___V508*/ curfptr[507] = (void*)&cdat->dsym_391__OBINTERN_IOBJ; basilys_assertmsg("iniobj checkdiscr dsym_391__OBINTERN_IOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_391__OBINTERN_IOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_391__OBINTERN_IOBJ.obj_hash = 257736327; cdat->dsym_391__OBINTERN_IOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_391__OBINTERN_IOBJ)); /*inistring dstr_392__OBINTERN_IOBJ*/ /*_.VALSTR___V509*/ curfptr[508] = (void*)&cdat->dstr_392__OBINTERN_IOBJ; cdat->dstr_392__OBINTERN_IOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_392__OBINTERN_IOBJ.val, "OBINTERN_IOBJ", sizeof(cdat->dstr_392__OBINTERN_IOBJ.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:269:/ iniobj"); /*iniobj dobj_393__OBINTERN_IOBJ*/ if (!/*_.VALDATA___V505*/ curfptr[504]) /*_.VALDATA___V505*/ curfptr[504] = (void*)&cdat->dobj_393__OBINTERN_IOBJ; basilys_assertmsg("iniobj checkdiscr dobj_393__OBINTERN_IOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_393__OBINTERN_IOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_393__OBINTERN_IOBJ.obj_num = 1; cdat->dobj_393__OBINTERN_IOBJ.obj_hash = 311564130; cdat->dobj_393__OBINTERN_IOBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_393__OBINTERN_IOBJ)); /*inistring dstr_394__OBINTERN_IOBJ*/ /*_.VALSTR___V506*/ curfptr[505] = (void*)&cdat->dstr_394__OBINTERN_IOBJ; cdat->dstr_394__OBINTERN_IOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_394__OBINTERN_IOBJ.val, "OBINTERN_IOBJ", sizeof(cdat->dstr_394__OBINTERN_IOBJ.val)-1); /*iniobj dsym_395__CLASS_OBJINTERNSYMBOL*/ if (!/*_.VALDATA___V510*/ curfptr[509]) /*_.VALDATA___V510*/ curfptr[509] = (void*)&cdat->dsym_395__CLASS_OBJINTERNSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_395__CLASS_OBJINTERNSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_395__CLASS_OBJINTERNSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_395__CLASS_OBJINTERNSYMBOL.obj_hash = 881953204; cdat->dsym_395__CLASS_OBJINTERNSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_395__CLASS_OBJINTERNSYMBOL)); /*inistring dstr_396__CLASS_OBJINTERNS*/ /*_.VALSTR___V511*/ curfptr[510] = (void*)&cdat->dstr_396__CLASS_OBJINTERNS; cdat->dstr_396__CLASS_OBJINTERNS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_396__CLASS_OBJINTERNS.val, "CLASS_OBJINTERNSYMBOL", sizeof(cdat->dstr_396__CLASS_OBJINTERNS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:275:/ iniobj"); /*iniobj dobj_397__CLASS_OBJINTERNSYMBOL*/ if (!/*_.VALDATA___V512*/ curfptr[511]) /*_.VALDATA___V512*/ curfptr[511] = (void*)&cdat->dobj_397__CLASS_OBJINTERNSYMBOL; basilys_assertmsg("iniobj checkdiscr dobj_397__CLASS_OBJINTERNSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_397__CLASS_OBJINTERNSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_397__CLASS_OBJINTERNSYMBOL.obj_num = OBMAG_OBJECT; cdat->dobj_397__CLASS_OBJINTERNSYMBOL.obj_hash = 333487194; cdat->dobj_397__CLASS_OBJINTERNSYMBOL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_397__CLASS_OBJINTERNSYMBOL)); /*inistring dstr_398__CLASS_OBJINTERNS*/ /*_.VALSTR___V513*/ curfptr[512] = (void*)&cdat->dstr_398__CLASS_OBJINTERNS; cdat->dstr_398__CLASS_OBJINTERNS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_398__CLASS_OBJINTERNS.val, "CLASS_OBJINTERNSYMBOL", sizeof(cdat->dstr_398__CLASS_OBJINTERNS.val)-1); /*inimult dtup_399__CLASS_OBJINTERNSYMBOL*/ /*_.VALTUP___V514*/ curfptr[513] = (void*)&cdat->dtup_399__CLASS_OBJINTERNSYMBOL; cdat->dtup_399__CLASS_OBJINTERNSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_399__CLASS_OBJINTERNSYMBOL.nbval = 4; /*inimult dtup_400__CLASS_OBJINTERNSYMBOL*/ /*_.VALTUP___V515*/ curfptr[514] = (void*)&cdat->dtup_400__CLASS_OBJINTERNSYMBOL; cdat->dtup_400__CLASS_OBJINTERNSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_400__CLASS_OBJINTERNSYMBOL.nbval = 2; /*iniobj dsym_401__CLASS_OBJINTERNKEYWORD*/ if (!/*_.VALDATA___V516*/ curfptr[515]) /*_.VALDATA___V516*/ curfptr[515] = (void*)&cdat->dsym_401__CLASS_OBJINTERNKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_401__CLASS_OBJINTERNKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_401__CLASS_OBJINTERNKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_401__CLASS_OBJINTERNKEYWORD.obj_hash = 606725080; cdat->dsym_401__CLASS_OBJINTERNKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_401__CLASS_OBJINTERNKEYWORD)); /*inistring dstr_402__CLASS_OBJINTERNK*/ /*_.VALSTR___V517*/ curfptr[516] = (void*)&cdat->dstr_402__CLASS_OBJINTERNK; cdat->dstr_402__CLASS_OBJINTERNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_402__CLASS_OBJINTERNK.val, "CLASS_OBJINTERNKEYWORD", sizeof(cdat->dstr_402__CLASS_OBJINTERNK.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:280:/ iniobj"); /*iniobj dobj_403__CLASS_OBJINTERNKEYWORD*/ if (!/*_.VALDATA___V518*/ curfptr[517]) /*_.VALDATA___V518*/ curfptr[517] = (void*)&cdat->dobj_403__CLASS_OBJINTERNKEYWORD; basilys_assertmsg("iniobj checkdiscr dobj_403__CLASS_OBJINTERNKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_403__CLASS_OBJINTERNKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_403__CLASS_OBJINTERNKEYWORD.obj_num = OBMAG_OBJECT; cdat->dobj_403__CLASS_OBJINTERNKEYWORD.obj_hash = 802778690; cdat->dobj_403__CLASS_OBJINTERNKEYWORD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_403__CLASS_OBJINTERNKEYWORD)); /*inistring dstr_404__CLASS_OBJINTERNK*/ /*_.VALSTR___V519*/ curfptr[518] = (void*)&cdat->dstr_404__CLASS_OBJINTERNK; cdat->dstr_404__CLASS_OBJINTERNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_404__CLASS_OBJINTERNK.val, "CLASS_OBJINTERNKEYWORD", sizeof(cdat->dstr_404__CLASS_OBJINTERNK.val)-1); /*inimult dtup_405__CLASS_OBJINTERNKEYWORD*/ /*_.VALTUP___V520*/ curfptr[519] = (void*)&cdat->dtup_405__CLASS_OBJINTERNKEYWORD; cdat->dtup_405__CLASS_OBJINTERNKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_405__CLASS_OBJINTERNKEYWORD.nbval = 4; /*inimult dtup_406__CLASS_OBJINTERNKEYWORD*/ /*_.VALTUP___V521*/ curfptr[520] = (void*)&cdat->dtup_406__CLASS_OBJINTERNKEYWORD; cdat->dtup_406__CLASS_OBJINTERNKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_406__CLASS_OBJINTERNKEYWORD.nbval = 2; /*iniobj dsym_407__CLASS_OBJGETNAMEDCOMMON*/ if (!/*_.VALDATA___V522*/ curfptr[521]) /*_.VALDATA___V522*/ curfptr[521] = (void*)&cdat->dsym_407__CLASS_OBJGETNAMEDCOMMON; basilys_assertmsg("iniobj checkdiscr dsym_407__CLASS_OBJGETNAMEDCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__CLASS_OBJGETNAMEDCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__CLASS_OBJGETNAMEDCOMMON.obj_hash = 116002660; cdat->dsym_407__CLASS_OBJGETNAMEDCOMMON.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_407__CLASS_OBJGETNAMEDCOMMON)); /*inistring dstr_408__CLASS_OBJGETNAME*/ /*_.VALSTR___V523*/ curfptr[522] = (void*)&cdat->dstr_408__CLASS_OBJGETNAME; cdat->dstr_408__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_408__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDCOMMON", sizeof(cdat->dstr_408__CLASS_OBJGETNAME.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:286:/ iniobj"); /*iniobj dobj_409__CLASS_OBJGETNAMEDCOMMON*/ if (!/*_.VALDATA___V524*/ curfptr[523]) /*_.VALDATA___V524*/ curfptr[523] = (void*)&cdat->dobj_409__CLASS_OBJGETNAMEDCOMMON; basilys_assertmsg("iniobj checkdiscr dobj_409__CLASS_OBJGETNAMEDCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_409__CLASS_OBJGETNAMEDCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_409__CLASS_OBJGETNAMEDCOMMON.obj_num = OBMAG_OBJECT; cdat->dobj_409__CLASS_OBJGETNAMEDCOMMON.obj_hash = 794044110; cdat->dobj_409__CLASS_OBJGETNAMEDCOMMON.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_409__CLASS_OBJGETNAMEDCOMMON)); /*inistring dstr_410__CLASS_OBJGETNAME*/ /*_.VALSTR___V525*/ curfptr[524] = (void*)&cdat->dstr_410__CLASS_OBJGETNAME; cdat->dstr_410__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_410__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDCOMMON", sizeof(cdat->dstr_410__CLASS_OBJGETNAME.val)-1); /*inimult dtup_411__CLASS_OBJGETNAMEDCOMMON*/ /*_.VALTUP___V526*/ curfptr[525] = (void*)&cdat->dtup_411__CLASS_OBJGETNAMEDCOMMON; cdat->dtup_411__CLASS_OBJGETNAMEDCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_411__CLASS_OBJGETNAMEDCOMMON.nbval = 3; /*inimult dtup_412__CLASS_OBJGETNAMEDCOMMON*/ /*_.VALTUP___V529*/ curfptr[528] = (void*)&cdat->dtup_412__CLASS_OBJGETNAMEDCOMMON; cdat->dtup_412__CLASS_OBJGETNAMEDCOMMON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_412__CLASS_OBJGETNAMEDCOMMON.nbval = 2; /*iniobj dsym_413__OBGNAMED_IOBJ*/ if (!/*_.VALDATA___V530*/ curfptr[529]) /*_.VALDATA___V530*/ curfptr[529] = (void*)&cdat->dsym_413__OBGNAMED_IOBJ; basilys_assertmsg("iniobj checkdiscr dsym_413__OBGNAMED_IOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_413__OBGNAMED_IOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_413__OBGNAMED_IOBJ.obj_hash = 477166523; cdat->dsym_413__OBGNAMED_IOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_413__OBGNAMED_IOBJ)); /*inistring dstr_414__OBGNAMED_IOBJ*/ /*_.VALSTR___V531*/ curfptr[530] = (void*)&cdat->dstr_414__OBGNAMED_IOBJ; cdat->dstr_414__OBGNAMED_IOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_414__OBGNAMED_IOBJ.val, "OBGNAMED_IOBJ", sizeof(cdat->dstr_414__OBGNAMED_IOBJ.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:286:/ iniobj"); /*iniobj dobj_415__OBGNAMED_IOBJ*/ if (!/*_.VALDATA___V527*/ curfptr[526]) /*_.VALDATA___V527*/ curfptr[526] = (void*)&cdat->dobj_415__OBGNAMED_IOBJ; basilys_assertmsg("iniobj checkdiscr dobj_415__OBGNAMED_IOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_415__OBGNAMED_IOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_415__OBGNAMED_IOBJ.obj_num = 1; cdat->dobj_415__OBGNAMED_IOBJ.obj_hash = 23981728; cdat->dobj_415__OBGNAMED_IOBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_415__OBGNAMED_IOBJ)); /*inistring dstr_416__OBGNAMED_IOBJ*/ /*_.VALSTR___V528*/ curfptr[527] = (void*)&cdat->dstr_416__OBGNAMED_IOBJ; cdat->dstr_416__OBGNAMED_IOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_416__OBGNAMED_IOBJ.val, "OBGNAMED_IOBJ", sizeof(cdat->dstr_416__OBGNAMED_IOBJ.val)-1); /*iniobj dsym_417__CLASS_OBJGETNAMEDSYMBOL*/ if (!/*_.VALDATA___V532*/ curfptr[531]) /*_.VALDATA___V532*/ curfptr[531] = (void*)&cdat->dsym_417__CLASS_OBJGETNAMEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_417__CLASS_OBJGETNAMEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_417__CLASS_OBJGETNAMEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_417__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 552748717; cdat->dsym_417__CLASS_OBJGETNAMEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_417__CLASS_OBJGETNAMEDSYMBOL)); /*inistring dstr_418__CLASS_OBJGETNAME*/ /*_.VALSTR___V533*/ curfptr[532] = (void*)&cdat->dstr_418__CLASS_OBJGETNAME; cdat->dstr_418__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_418__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDSYMBOL", sizeof(cdat->dstr_418__CLASS_OBJGETNAME.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:292:/ iniobj"); /*iniobj dobj_419__CLASS_OBJGETNAMEDSYMBOL*/ if (!/*_.VALDATA___V534*/ curfptr[533]) /*_.VALDATA___V534*/ curfptr[533] = (void*)&cdat->dobj_419__CLASS_OBJGETNAMEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dobj_419__CLASS_OBJGETNAMEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_419__CLASS_OBJGETNAMEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_419__CLASS_OBJGETNAMEDSYMBOL.obj_num = OBMAG_OBJECT; cdat->dobj_419__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 315591887; cdat->dobj_419__CLASS_OBJGETNAMEDSYMBOL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_419__CLASS_OBJGETNAMEDSYMBOL)); /*inistring dstr_420__CLASS_OBJGETNAME*/ /*_.VALSTR___V535*/ curfptr[534] = (void*)&cdat->dstr_420__CLASS_OBJGETNAME; cdat->dstr_420__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_420__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDSYMBOL", sizeof(cdat->dstr_420__CLASS_OBJGETNAME.val)-1); /*inimult dtup_421__CLASS_OBJGETNAMEDSYMBOL*/ /*_.VALTUP___V536*/ curfptr[535] = (void*)&cdat->dtup_421__CLASS_OBJGETNAMEDSYMBOL; cdat->dtup_421__CLASS_OBJGETNAMEDSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_421__CLASS_OBJGETNAMEDSYMBOL.nbval = 4; /*inimult dtup_422__CLASS_OBJGETNAMEDSYMBOL*/ /*_.VALTUP___V537*/ curfptr[536] = (void*)&cdat->dtup_422__CLASS_OBJGETNAMEDSYMBOL; cdat->dtup_422__CLASS_OBJGETNAMEDSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_422__CLASS_OBJGETNAMEDSYMBOL.nbval = 2; /*iniobj dsym_423__CLASS_OBJGETNAMEDKEYWORD*/ if (!/*_.VALDATA___V538*/ curfptr[537]) /*_.VALDATA___V538*/ curfptr[537] = (void*)&cdat->dsym_423__CLASS_OBJGETNAMEDKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_423__CLASS_OBJGETNAMEDKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_423__CLASS_OBJGETNAMEDKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_423__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 877025959; cdat->dsym_423__CLASS_OBJGETNAMEDKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_423__CLASS_OBJGETNAMEDKEYWORD)); /*inistring dstr_424__CLASS_OBJGETNAME*/ /*_.VALSTR___V539*/ curfptr[538] = (void*)&cdat->dstr_424__CLASS_OBJGETNAME; cdat->dstr_424__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_424__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDKEYWORD", sizeof(cdat->dstr_424__CLASS_OBJGETNAME.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:297:/ iniobj"); /*iniobj dobj_425__CLASS_OBJGETNAMEDKEYWORD*/ if (!/*_.VALDATA___V540*/ curfptr[539]) /*_.VALDATA___V540*/ curfptr[539] = (void*)&cdat->dobj_425__CLASS_OBJGETNAMEDKEYWORD; basilys_assertmsg("iniobj checkdiscr dobj_425__CLASS_OBJGETNAMEDKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_425__CLASS_OBJGETNAMEDKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_425__CLASS_OBJGETNAMEDKEYWORD.obj_num = OBMAG_OBJECT; cdat->dobj_425__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 71170285; cdat->dobj_425__CLASS_OBJGETNAMEDKEYWORD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_425__CLASS_OBJGETNAMEDKEYWORD)); /*inistring dstr_426__CLASS_OBJGETNAME*/ /*_.VALSTR___V541*/ curfptr[540] = (void*)&cdat->dstr_426__CLASS_OBJGETNAME; cdat->dstr_426__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_426__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDKEYWORD", sizeof(cdat->dstr_426__CLASS_OBJGETNAME.val)-1); /*inimult dtup_427__CLASS_OBJGETNAMEDKEYWORD*/ /*_.VALTUP___V542*/ curfptr[541] = (void*)&cdat->dtup_427__CLASS_OBJGETNAMEDKEYWORD; cdat->dtup_427__CLASS_OBJGETNAMEDKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_427__CLASS_OBJGETNAMEDKEYWORD.nbval = 4; /*inimult dtup_428__CLASS_OBJGETNAMEDKEYWORD*/ /*_.VALTUP___V543*/ curfptr[542] = (void*)&cdat->dtup_428__CLASS_OBJGETNAMEDKEYWORD; cdat->dtup_428__CLASS_OBJGETNAMEDKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_428__CLASS_OBJGETNAMEDKEYWORD.nbval = 2; /*iniobj dsym_429__CLASS_OBJAPPLY*/ if (!/*_.VALDATA___V544*/ curfptr[543]) /*_.VALDATA___V544*/ curfptr[543] = (void*)&cdat->dsym_429__CLASS_OBJAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_429__CLASS_OBJAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_429__CLASS_OBJAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_429__CLASS_OBJAPPLY.obj_hash = 734111989; cdat->dsym_429__CLASS_OBJAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_429__CLASS_OBJAPPLY)); /*inistring dstr_430__CLASS_OBJAPPLY*/ /*_.VALSTR___V545*/ curfptr[544] = (void*)&cdat->dstr_430__CLASS_OBJAPPLY; cdat->dstr_430__CLASS_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_430__CLASS_OBJAPPLY.val, "CLASS_OBJAPPLY", sizeof(cdat->dstr_430__CLASS_OBJAPPLY.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:303:/ iniobj"); /*iniobj dobj_431__CLASS_OBJAPPLY*/ if (!/*_.VALDATA___V546*/ curfptr[545]) /*_.VALDATA___V546*/ curfptr[545] = (void*)&cdat->dobj_431__CLASS_OBJAPPLY; basilys_assertmsg("iniobj checkdiscr dobj_431__CLASS_OBJAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_431__CLASS_OBJAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_431__CLASS_OBJAPPLY.obj_num = OBMAG_OBJECT; cdat->dobj_431__CLASS_OBJAPPLY.obj_hash = 1031375306; cdat->dobj_431__CLASS_OBJAPPLY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_431__CLASS_OBJAPPLY)); /*inistring dstr_432__CLASS_OBJAPPLY*/ /*_.VALSTR___V547*/ curfptr[546] = (void*)&cdat->dstr_432__CLASS_OBJAPPLY; cdat->dstr_432__CLASS_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_432__CLASS_OBJAPPLY.val, "CLASS_OBJAPPLY", sizeof(cdat->dstr_432__CLASS_OBJAPPLY.val)-1); /*inimult dtup_433__CLASS_OBJAPPLY*/ /*_.VALTUP___V548*/ curfptr[547] = (void*)&cdat->dtup_433__CLASS_OBJAPPLY; cdat->dtup_433__CLASS_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_433__CLASS_OBJAPPLY.nbval = 4; /*inimult dtup_434__CLASS_OBJAPPLY*/ /*_.VALTUP___V553*/ curfptr[552] = (void*)&cdat->dtup_434__CLASS_OBJAPPLY; cdat->dtup_434__CLASS_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_434__CLASS_OBJAPPLY.nbval = 4; /*iniobj dsym_435__OBAPP_CLOS*/ if (!/*_.VALDATA___V554*/ curfptr[553]) /*_.VALDATA___V554*/ curfptr[553] = (void*)&cdat->dsym_435__OBAPP_CLOS; basilys_assertmsg("iniobj checkdiscr dsym_435__OBAPP_CLOS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_435__OBAPP_CLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_435__OBAPP_CLOS.obj_hash = 213258240; cdat->dsym_435__OBAPP_CLOS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_435__OBAPP_CLOS)); /*inistring dstr_436__OBAPP_CLOS*/ /*_.VALSTR___V555*/ curfptr[554] = (void*)&cdat->dstr_436__OBAPP_CLOS; cdat->dstr_436__OBAPP_CLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_436__OBAPP_CLOS.val, "OBAPP_CLOS", sizeof(cdat->dstr_436__OBAPP_CLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:303:/ iniobj"); /*iniobj dobj_437__OBAPP_CLOS*/ if (!/*_.VALDATA___V549*/ curfptr[548]) /*_.VALDATA___V549*/ curfptr[548] = (void*)&cdat->dobj_437__OBAPP_CLOS; basilys_assertmsg("iniobj checkdiscr dobj_437__OBAPP_CLOS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_437__OBAPP_CLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_437__OBAPP_CLOS.obj_num = 2; cdat->dobj_437__OBAPP_CLOS.obj_hash = 506962371; cdat->dobj_437__OBAPP_CLOS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_437__OBAPP_CLOS)); /*inistring dstr_438__OBAPP_CLOS*/ /*_.VALSTR___V550*/ curfptr[549] = (void*)&cdat->dstr_438__OBAPP_CLOS; cdat->dstr_438__OBAPP_CLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_438__OBAPP_CLOS.val, "OBAPP_CLOS", sizeof(cdat->dstr_438__OBAPP_CLOS.val)-1); /*iniobj dsym_439__OBAPP_ARGS*/ if (!/*_.VALDATA___V556*/ curfptr[555]) /*_.VALDATA___V556*/ curfptr[555] = (void*)&cdat->dsym_439__OBAPP_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_439__OBAPP_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_439__OBAPP_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_439__OBAPP_ARGS.obj_hash = 542637104; cdat->dsym_439__OBAPP_ARGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_439__OBAPP_ARGS)); /*inistring dstr_440__OBAPP_ARGS*/ /*_.VALSTR___V557*/ curfptr[556] = (void*)&cdat->dstr_440__OBAPP_ARGS; cdat->dstr_440__OBAPP_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_440__OBAPP_ARGS.val, "OBAPP_ARGS", sizeof(cdat->dstr_440__OBAPP_ARGS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:303:/ iniobj"); /*iniobj dobj_441__OBAPP_ARGS*/ if (!/*_.VALDATA___V551*/ curfptr[550]) /*_.VALDATA___V551*/ curfptr[550] = (void*)&cdat->dobj_441__OBAPP_ARGS; basilys_assertmsg("iniobj checkdiscr dobj_441__OBAPP_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_441__OBAPP_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_441__OBAPP_ARGS.obj_num = 3; cdat->dobj_441__OBAPP_ARGS.obj_hash = 268087602; cdat->dobj_441__OBAPP_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_441__OBAPP_ARGS)); /*inistring dstr_442__OBAPP_ARGS*/ /*_.VALSTR___V552*/ curfptr[551] = (void*)&cdat->dstr_442__OBAPP_ARGS; cdat->dstr_442__OBAPP_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_442__OBAPP_ARGS.val, "OBAPP_ARGS", sizeof(cdat->dstr_442__OBAPP_ARGS.val)-1); /*iniobj dsym_443__CLASS_OBJMULTIAPPLY*/ if (!/*_.VALDATA___V558*/ curfptr[557]) /*_.VALDATA___V558*/ curfptr[557] = (void*)&cdat->dsym_443__CLASS_OBJMULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_443__CLASS_OBJMULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_443__CLASS_OBJMULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_443__CLASS_OBJMULTIAPPLY.obj_hash = 718205837; cdat->dsym_443__CLASS_OBJMULTIAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_443__CLASS_OBJMULTIAPPLY)); /*inistring dstr_444__CLASS_OBJMULTIAP*/ /*_.VALSTR___V559*/ curfptr[558] = (void*)&cdat->dstr_444__CLASS_OBJMULTIAP; cdat->dstr_444__CLASS_OBJMULTIAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_444__CLASS_OBJMULTIAP.val, "CLASS_OBJMULTIAPPLY", sizeof(cdat->dstr_444__CLASS_OBJMULTIAP.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:310:/ iniobj"); /*iniobj dobj_445__CLASS_OBJMULTIAPPLY*/ if (!/*_.VALDATA___V560*/ curfptr[559]) /*_.VALDATA___V560*/ curfptr[559] = (void*)&cdat->dobj_445__CLASS_OBJMULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dobj_445__CLASS_OBJMULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_445__CLASS_OBJMULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_445__CLASS_OBJMULTIAPPLY.obj_num = OBMAG_OBJECT; cdat->dobj_445__CLASS_OBJMULTIAPPLY.obj_hash = 69446270; cdat->dobj_445__CLASS_OBJMULTIAPPLY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_445__CLASS_OBJMULTIAPPLY)); /*inistring dstr_446__CLASS_OBJMULTIAP*/ /*_.VALSTR___V561*/ curfptr[560] = (void*)&cdat->dstr_446__CLASS_OBJMULTIAP; cdat->dstr_446__CLASS_OBJMULTIAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_446__CLASS_OBJMULTIAP.val, "CLASS_OBJMULTIAPPLY", sizeof(cdat->dstr_446__CLASS_OBJMULTIAP.val)-1); /*inimult dtup_447__CLASS_OBJMULTIAPPLY*/ /*_.VALTUP___V562*/ curfptr[561] = (void*)&cdat->dtup_447__CLASS_OBJMULTIAPPLY; cdat->dtup_447__CLASS_OBJMULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_447__CLASS_OBJMULTIAPPLY.nbval = 5; /*inimult dtup_448__CLASS_OBJMULTIAPPLY*/ /*_.VALTUP___V565*/ curfptr[564] = (void*)&cdat->dtup_448__CLASS_OBJMULTIAPPLY; cdat->dtup_448__CLASS_OBJMULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_448__CLASS_OBJMULTIAPPLY.nbval = 5; /*iniobj dsym_449__OBMULTAPP_XRES*/ if (!/*_.VALDATA___V566*/ curfptr[565]) /*_.VALDATA___V566*/ curfptr[565] = (void*)&cdat->dsym_449__OBMULTAPP_XRES; basilys_assertmsg("iniobj checkdiscr dsym_449__OBMULTAPP_XRES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_449__OBMULTAPP_XRES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_449__OBMULTAPP_XRES.obj_hash = 526257932; cdat->dsym_449__OBMULTAPP_XRES.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_449__OBMULTAPP_XRES)); /*inistring dstr_450__OBMULTAPP_XRES*/ /*_.VALSTR___V567*/ curfptr[566] = (void*)&cdat->dstr_450__OBMULTAPP_XRES; cdat->dstr_450__OBMULTAPP_XRES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_450__OBMULTAPP_XRES.val, "OBMULTAPP_XRES", sizeof(cdat->dstr_450__OBMULTAPP_XRES.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:310:/ iniobj"); /*iniobj dobj_451__OBMULTAPP_XRES*/ if (!/*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*)&cdat->dobj_451__OBMULTAPP_XRES; basilys_assertmsg("iniobj checkdiscr dobj_451__OBMULTAPP_XRES", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_451__OBMULTAPP_XRES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_451__OBMULTAPP_XRES.obj_num = 4; cdat->dobj_451__OBMULTAPP_XRES.obj_hash = 638152032; cdat->dobj_451__OBMULTAPP_XRES.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_451__OBMULTAPP_XRES)); /*inistring dstr_452__OBMULTAPP_XRES*/ /*_.VALSTR___V564*/ curfptr[563] = (void*)&cdat->dstr_452__OBMULTAPP_XRES; cdat->dstr_452__OBMULTAPP_XRES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_452__OBMULTAPP_XRES.val, "OBMULTAPP_XRES", sizeof(cdat->dstr_452__OBMULTAPP_XRES.val)-1); /*iniobj dsym_453__CLASS_OBJMSEND*/ if (!/*_.VALDATA___V568*/ curfptr[567]) /*_.VALDATA___V568*/ curfptr[567] = (void*)&cdat->dsym_453__CLASS_OBJMSEND; basilys_assertmsg("iniobj checkdiscr dsym_453__CLASS_OBJMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_453__CLASS_OBJMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_453__CLASS_OBJMSEND.obj_hash = 664056168; cdat->dsym_453__CLASS_OBJMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_453__CLASS_OBJMSEND)); /*inistring dstr_454__CLASS_OBJMSEND*/ /*_.VALSTR___V569*/ curfptr[568] = (void*)&cdat->dstr_454__CLASS_OBJMSEND; cdat->dstr_454__CLASS_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_454__CLASS_OBJMSEND.val, "CLASS_OBJMSEND", sizeof(cdat->dstr_454__CLASS_OBJMSEND.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:316:/ iniobj"); /*iniobj dobj_455__CLASS_OBJMSEND*/ if (!/*_.VALDATA___V570*/ curfptr[569]) /*_.VALDATA___V570*/ curfptr[569] = (void*)&cdat->dobj_455__CLASS_OBJMSEND; basilys_assertmsg("iniobj checkdiscr dobj_455__CLASS_OBJMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_455__CLASS_OBJMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_455__CLASS_OBJMSEND.obj_num = OBMAG_OBJECT; cdat->dobj_455__CLASS_OBJMSEND.obj_hash = 1017766131; cdat->dobj_455__CLASS_OBJMSEND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_455__CLASS_OBJMSEND)); /*inistring dstr_456__CLASS_OBJMSEND*/ /*_.VALSTR___V571*/ curfptr[570] = (void*)&cdat->dstr_456__CLASS_OBJMSEND; cdat->dstr_456__CLASS_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_456__CLASS_OBJMSEND.val, "CLASS_OBJMSEND", sizeof(cdat->dstr_456__CLASS_OBJMSEND.val)-1); /*inimult dtup_457__CLASS_OBJMSEND*/ /*_.VALTUP___V572*/ curfptr[571] = (void*)&cdat->dtup_457__CLASS_OBJMSEND; cdat->dtup_457__CLASS_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_457__CLASS_OBJMSEND.nbval = 4; /*inimult dtup_458__CLASS_OBJMSEND*/ /*_.VALTUP___V579*/ curfptr[578] = (void*)&cdat->dtup_458__CLASS_OBJMSEND; cdat->dtup_458__CLASS_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_458__CLASS_OBJMSEND.nbval = 5; /*iniobj dsym_459__OBMSND_SEL*/ if (!/*_.VALDATA___V580*/ curfptr[579]) /*_.VALDATA___V580*/ curfptr[579] = (void*)&cdat->dsym_459__OBMSND_SEL; basilys_assertmsg("iniobj checkdiscr dsym_459__OBMSND_SEL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_459__OBMSND_SEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_459__OBMSND_SEL.obj_hash = 594478819; cdat->dsym_459__OBMSND_SEL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_459__OBMSND_SEL)); /*inistring dstr_460__OBMSND_SEL*/ /*_.VALSTR___V581*/ curfptr[580] = (void*)&cdat->dstr_460__OBMSND_SEL; cdat->dstr_460__OBMSND_SEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_460__OBMSND_SEL.val, "OBMSND_SEL", sizeof(cdat->dstr_460__OBMSND_SEL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:316:/ iniobj"); /*iniobj dobj_461__OBMSND_SEL*/ if (!/*_.VALDATA___V573*/ curfptr[572]) /*_.VALDATA___V573*/ curfptr[572] = (void*)&cdat->dobj_461__OBMSND_SEL; basilys_assertmsg("iniobj checkdiscr dobj_461__OBMSND_SEL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_461__OBMSND_SEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_461__OBMSND_SEL.obj_num = 2; cdat->dobj_461__OBMSND_SEL.obj_hash = 79671835; cdat->dobj_461__OBMSND_SEL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_461__OBMSND_SEL)); /*inistring dstr_462__OBMSND_SEL*/ /*_.VALSTR___V574*/ curfptr[573] = (void*)&cdat->dstr_462__OBMSND_SEL; cdat->dstr_462__OBMSND_SEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_462__OBMSND_SEL.val, "OBMSND_SEL", sizeof(cdat->dstr_462__OBMSND_SEL.val)-1); /*iniobj dsym_463__OBMSND_RECV*/ if (!/*_.VALDATA___V582*/ curfptr[581]) /*_.VALDATA___V582*/ curfptr[581] = (void*)&cdat->dsym_463__OBMSND_RECV; basilys_assertmsg("iniobj checkdiscr dsym_463__OBMSND_RECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_463__OBMSND_RECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_463__OBMSND_RECV.obj_hash = 763738999; cdat->dsym_463__OBMSND_RECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_463__OBMSND_RECV)); /*inistring dstr_464__OBMSND_RECV*/ /*_.VALSTR___V583*/ curfptr[582] = (void*)&cdat->dstr_464__OBMSND_RECV; cdat->dstr_464__OBMSND_RECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_464__OBMSND_RECV.val, "OBMSND_RECV", sizeof(cdat->dstr_464__OBMSND_RECV.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:316:/ iniobj"); /*iniobj dobj_465__OBMSND_RECV*/ if (!/*_.VALDATA___V575*/ curfptr[574]) /*_.VALDATA___V575*/ curfptr[574] = (void*)&cdat->dobj_465__OBMSND_RECV; basilys_assertmsg("iniobj checkdiscr dobj_465__OBMSND_RECV", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_465__OBMSND_RECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_465__OBMSND_RECV.obj_num = 3; cdat->dobj_465__OBMSND_RECV.obj_hash = 1020820235; cdat->dobj_465__OBMSND_RECV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_465__OBMSND_RECV)); /*inistring dstr_466__OBMSND_RECV*/ /*_.VALSTR___V576*/ curfptr[575] = (void*)&cdat->dstr_466__OBMSND_RECV; cdat->dstr_466__OBMSND_RECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_466__OBMSND_RECV.val, "OBMSND_RECV", sizeof(cdat->dstr_466__OBMSND_RECV.val)-1); /*iniobj dsym_467__OBMSND_ARGS*/ if (!/*_.VALDATA___V584*/ curfptr[583]) /*_.VALDATA___V584*/ curfptr[583] = (void*)&cdat->dsym_467__OBMSND_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_467__OBMSND_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_467__OBMSND_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_467__OBMSND_ARGS.obj_hash = 816679069; cdat->dsym_467__OBMSND_ARGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_467__OBMSND_ARGS)); /*inistring dstr_468__OBMSND_ARGS*/ /*_.VALSTR___V585*/ curfptr[584] = (void*)&cdat->dstr_468__OBMSND_ARGS; cdat->dstr_468__OBMSND_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_468__OBMSND_ARGS.val, "OBMSND_ARGS", sizeof(cdat->dstr_468__OBMSND_ARGS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:316:/ iniobj"); /*iniobj dobj_469__OBMSND_ARGS*/ if (!/*_.VALDATA___V577*/ curfptr[576]) /*_.VALDATA___V577*/ curfptr[576] = (void*)&cdat->dobj_469__OBMSND_ARGS; basilys_assertmsg("iniobj checkdiscr dobj_469__OBMSND_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_469__OBMSND_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_469__OBMSND_ARGS.obj_num = 4; cdat->dobj_469__OBMSND_ARGS.obj_hash = 635993259; cdat->dobj_469__OBMSND_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_469__OBMSND_ARGS)); /*inistring dstr_470__OBMSND_ARGS*/ /*_.VALSTR___V578*/ curfptr[577] = (void*)&cdat->dstr_470__OBMSND_ARGS; cdat->dstr_470__OBMSND_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_470__OBMSND_ARGS.val, "OBMSND_ARGS", sizeof(cdat->dstr_470__OBMSND_ARGS.val)-1); /*iniobj dsym_471__CLASS_OBJMULTIMSEND*/ if (!/*_.VALDATA___V586*/ curfptr[585]) /*_.VALDATA___V586*/ curfptr[585] = (void*)&cdat->dsym_471__CLASS_OBJMULTIMSEND; basilys_assertmsg("iniobj checkdiscr dsym_471__CLASS_OBJMULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_471__CLASS_OBJMULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_471__CLASS_OBJMULTIMSEND.obj_hash = 441055573; cdat->dsym_471__CLASS_OBJMULTIMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_471__CLASS_OBJMULTIMSEND)); /*inistring dstr_472__CLASS_OBJMULTIMS*/ /*_.VALSTR___V587*/ curfptr[586] = (void*)&cdat->dstr_472__CLASS_OBJMULTIMS; cdat->dstr_472__CLASS_OBJMULTIMS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_472__CLASS_OBJMULTIMS.val, "CLASS_OBJMULTIMSEND", sizeof(cdat->dstr_472__CLASS_OBJMULTIMS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:324:/ iniobj"); /*iniobj dobj_473__CLASS_OBJMULTIMSEND*/ if (!/*_.VALDATA___V588*/ curfptr[587]) /*_.VALDATA___V588*/ curfptr[587] = (void*)&cdat->dobj_473__CLASS_OBJMULTIMSEND; basilys_assertmsg("iniobj checkdiscr dobj_473__CLASS_OBJMULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_473__CLASS_OBJMULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_473__CLASS_OBJMULTIMSEND.obj_num = OBMAG_OBJECT; cdat->dobj_473__CLASS_OBJMULTIMSEND.obj_hash = 706054213; cdat->dobj_473__CLASS_OBJMULTIMSEND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_473__CLASS_OBJMULTIMSEND)); /*inistring dstr_474__CLASS_OBJMULTIMS*/ /*_.VALSTR___V589*/ curfptr[588] = (void*)&cdat->dstr_474__CLASS_OBJMULTIMS; cdat->dstr_474__CLASS_OBJMULTIMS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_474__CLASS_OBJMULTIMS.val, "CLASS_OBJMULTIMSEND", sizeof(cdat->dstr_474__CLASS_OBJMULTIMS.val)-1); /*inimult dtup_475__CLASS_OBJMULTIMSEND*/ /*_.VALTUP___V590*/ curfptr[589] = (void*)&cdat->dtup_475__CLASS_OBJMULTIMSEND; cdat->dtup_475__CLASS_OBJMULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_475__CLASS_OBJMULTIMSEND.nbval = 5; /*inimult dtup_476__CLASS_OBJMULTIMSEND*/ /*_.VALTUP___V593*/ curfptr[592] = (void*)&cdat->dtup_476__CLASS_OBJMULTIMSEND; cdat->dtup_476__CLASS_OBJMULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_476__CLASS_OBJMULTIMSEND.nbval = 6; /*iniobj dsym_477__OBMULTSND_XRES*/ if (!/*_.VALDATA___V594*/ curfptr[593]) /*_.VALDATA___V594*/ curfptr[593] = (void*)&cdat->dsym_477__OBMULTSND_XRES; basilys_assertmsg("iniobj checkdiscr dsym_477__OBMULTSND_XRES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_477__OBMULTSND_XRES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_477__OBMULTSND_XRES.obj_hash = 677859903; cdat->dsym_477__OBMULTSND_XRES.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_477__OBMULTSND_XRES)); /*inistring dstr_478__OBMULTSND_XRES*/ /*_.VALSTR___V595*/ curfptr[594] = (void*)&cdat->dstr_478__OBMULTSND_XRES; cdat->dstr_478__OBMULTSND_XRES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_478__OBMULTSND_XRES.val, "OBMULTSND_XRES", sizeof(cdat->dstr_478__OBMULTSND_XRES.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:324:/ iniobj"); /*iniobj dobj_479__OBMULTSND_XRES*/ if (!/*_.VALDATA___V591*/ curfptr[590]) /*_.VALDATA___V591*/ curfptr[590] = (void*)&cdat->dobj_479__OBMULTSND_XRES; basilys_assertmsg("iniobj checkdiscr dobj_479__OBMULTSND_XRES", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_479__OBMULTSND_XRES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_479__OBMULTSND_XRES.obj_num = 5; cdat->dobj_479__OBMULTSND_XRES.obj_hash = 875377042; cdat->dobj_479__OBMULTSND_XRES.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_479__OBMULTSND_XRES)); /*inistring dstr_480__OBMULTSND_XRES*/ /*_.VALSTR___V592*/ curfptr[591] = (void*)&cdat->dstr_480__OBMULTSND_XRES; cdat->dstr_480__OBMULTSND_XRES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_480__OBMULTSND_XRES.val, "OBMULTSND_XRES", sizeof(cdat->dstr_480__OBMULTSND_XRES.val)-1); /*iniobj dsym_481__CLASS_OBJRAWALLOCOBJ*/ if (!/*_.VALDATA___V596*/ curfptr[595]) /*_.VALDATA___V596*/ curfptr[595] = (void*)&cdat->dsym_481__CLASS_OBJRAWALLOCOBJ; basilys_assertmsg("iniobj checkdiscr dsym_481__CLASS_OBJRAWALLOCOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_481__CLASS_OBJRAWALLOCOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_481__CLASS_OBJRAWALLOCOBJ.obj_hash = 795830730; cdat->dsym_481__CLASS_OBJRAWALLOCOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_481__CLASS_OBJRAWALLOCOBJ)); /*inistring dstr_482__CLASS_OBJRAWALLO*/ /*_.VALSTR___V597*/ curfptr[596] = (void*)&cdat->dstr_482__CLASS_OBJRAWALLO; cdat->dstr_482__CLASS_OBJRAWALLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_482__CLASS_OBJRAWALLO.val, "CLASS_OBJRAWALLOCOBJ", sizeof(cdat->dstr_482__CLASS_OBJRAWALLO.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:330:/ iniobj"); /*iniobj dobj_483__CLASS_OBJRAWALLOCOBJ*/ if (!/*_.VALDATA___V598*/ curfptr[597]) /*_.VALDATA___V598*/ curfptr[597] = (void*)&cdat->dobj_483__CLASS_OBJRAWALLOCOBJ; basilys_assertmsg("iniobj checkdiscr dobj_483__CLASS_OBJRAWALLOCOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_483__CLASS_OBJRAWALLOCOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_483__CLASS_OBJRAWALLOCOBJ.obj_num = OBMAG_OBJECT; cdat->dobj_483__CLASS_OBJRAWALLOCOBJ.obj_hash = 697172180; cdat->dobj_483__CLASS_OBJRAWALLOCOBJ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_483__CLASS_OBJRAWALLOCOBJ)); /*inistring dstr_484__CLASS_OBJRAWALLO*/ /*_.VALSTR___V599*/ curfptr[598] = (void*)&cdat->dstr_484__CLASS_OBJRAWALLO; cdat->dstr_484__CLASS_OBJRAWALLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_484__CLASS_OBJRAWALLO.val, "CLASS_OBJRAWALLOCOBJ", sizeof(cdat->dstr_484__CLASS_OBJRAWALLO.val)-1); /*inimult dtup_485__CLASS_OBJRAWALLOCOBJ*/ /*_.VALTUP___V600*/ curfptr[599] = (void*)&cdat->dtup_485__CLASS_OBJRAWALLOCOBJ; cdat->dtup_485__CLASS_OBJRAWALLOCOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_485__CLASS_OBJRAWALLOCOBJ.nbval = 4; /*inimult dtup_486__CLASS_OBJRAWALLOCOBJ*/ /*_.VALTUP___V607*/ curfptr[606] = (void*)&cdat->dtup_486__CLASS_OBJRAWALLOCOBJ; cdat->dtup_486__CLASS_OBJRAWALLOCOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_486__CLASS_OBJRAWALLOCOBJ.nbval = 5; /*iniobj dsym_487__OBRALLOBJ_CLASS*/ if (!/*_.VALDATA___V608*/ curfptr[607]) /*_.VALDATA___V608*/ curfptr[607] = (void*)&cdat->dsym_487__OBRALLOBJ_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_487__OBRALLOBJ_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_487__OBRALLOBJ_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_487__OBRALLOBJ_CLASS.obj_hash = 979210452; cdat->dsym_487__OBRALLOBJ_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_487__OBRALLOBJ_CLASS)); /*inistring dstr_488__OBRALLOBJ_CLASS*/ /*_.VALSTR___V609*/ curfptr[608] = (void*)&cdat->dstr_488__OBRALLOBJ_CLASS; cdat->dstr_488__OBRALLOBJ_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_488__OBRALLOBJ_CLASS.val, "OBRALLOBJ_CLASS", sizeof(cdat->dstr_488__OBRALLOBJ_CLASS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:330:/ iniobj"); /*iniobj dobj_489__OBRALLOBJ_CLASS*/ if (!/*_.VALDATA___V601*/ curfptr[600]) /*_.VALDATA___V601*/ curfptr[600] = (void*)&cdat->dobj_489__OBRALLOBJ_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_489__OBRALLOBJ_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_489__OBRALLOBJ_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_489__OBRALLOBJ_CLASS.obj_num = 2; cdat->dobj_489__OBRALLOBJ_CLASS.obj_hash = 68608793; cdat->dobj_489__OBRALLOBJ_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_489__OBRALLOBJ_CLASS)); /*inistring dstr_490__OBRALLOBJ_CLASS*/ /*_.VALSTR___V602*/ curfptr[601] = (void*)&cdat->dstr_490__OBRALLOBJ_CLASS; cdat->dstr_490__OBRALLOBJ_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_490__OBRALLOBJ_CLASS.val, "OBRALLOBJ_CLASS", sizeof(cdat->dstr_490__OBRALLOBJ_CLASS.val)-1); /*iniobj dsym_491__OBRALLOBJ_LEN*/ if (!/*_.VALDATA___V610*/ curfptr[609]) /*_.VALDATA___V610*/ curfptr[609] = (void*)&cdat->dsym_491__OBRALLOBJ_LEN; basilys_assertmsg("iniobj checkdiscr dsym_491__OBRALLOBJ_LEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_491__OBRALLOBJ_LEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_491__OBRALLOBJ_LEN.obj_hash = 11225066; cdat->dsym_491__OBRALLOBJ_LEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_491__OBRALLOBJ_LEN)); /*inistring dstr_492__OBRALLOBJ_LEN*/ /*_.VALSTR___V611*/ curfptr[610] = (void*)&cdat->dstr_492__OBRALLOBJ_LEN; cdat->dstr_492__OBRALLOBJ_LEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_492__OBRALLOBJ_LEN.val, "OBRALLOBJ_LEN", sizeof(cdat->dstr_492__OBRALLOBJ_LEN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:330:/ iniobj"); /*iniobj dobj_493__OBRALLOBJ_LEN*/ if (!/*_.VALDATA___V603*/ curfptr[602]) /*_.VALDATA___V603*/ curfptr[602] = (void*)&cdat->dobj_493__OBRALLOBJ_LEN; basilys_assertmsg("iniobj checkdiscr dobj_493__OBRALLOBJ_LEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_493__OBRALLOBJ_LEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_493__OBRALLOBJ_LEN.obj_num = 3; cdat->dobj_493__OBRALLOBJ_LEN.obj_hash = 409959306; cdat->dobj_493__OBRALLOBJ_LEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_493__OBRALLOBJ_LEN)); /*inistring dstr_494__OBRALLOBJ_LEN*/ /*_.VALSTR___V604*/ curfptr[603] = (void*)&cdat->dstr_494__OBRALLOBJ_LEN; cdat->dstr_494__OBRALLOBJ_LEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_494__OBRALLOBJ_LEN.val, "OBRALLOBJ_LEN", sizeof(cdat->dstr_494__OBRALLOBJ_LEN.val)-1); /*iniobj dsym_495__OBRALLOBJ_CLASSNAME*/ if (!/*_.VALDATA___V612*/ curfptr[611]) /*_.VALDATA___V612*/ curfptr[611] = (void*)&cdat->dsym_495__OBRALLOBJ_CLASSNAME; basilys_assertmsg("iniobj checkdiscr dsym_495__OBRALLOBJ_CLASSNAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_495__OBRALLOBJ_CLASSNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_495__OBRALLOBJ_CLASSNAME.obj_hash = 98016100; cdat->dsym_495__OBRALLOBJ_CLASSNAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_495__OBRALLOBJ_CLASSNAME)); /*inistring dstr_496__OBRALLOBJ_CLASSN*/ /*_.VALSTR___V613*/ curfptr[612] = (void*)&cdat->dstr_496__OBRALLOBJ_CLASSN; cdat->dstr_496__OBRALLOBJ_CLASSN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_496__OBRALLOBJ_CLASSN.val, "OBRALLOBJ_CLASSNAME", sizeof(cdat->dstr_496__OBRALLOBJ_CLASSN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:330:/ iniobj"); /*iniobj dobj_497__OBRALLOBJ_CLASSNAME*/ if (!/*_.VALDATA___V605*/ curfptr[604]) /*_.VALDATA___V605*/ curfptr[604] = (void*)&cdat->dobj_497__OBRALLOBJ_CLASSNAME; basilys_assertmsg("iniobj checkdiscr dobj_497__OBRALLOBJ_CLASSNAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_497__OBRALLOBJ_CLASSNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_497__OBRALLOBJ_CLASSNAME.obj_num = 4; cdat->dobj_497__OBRALLOBJ_CLASSNAME.obj_hash = 615402409; cdat->dobj_497__OBRALLOBJ_CLASSNAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_497__OBRALLOBJ_CLASSNAME)); /*inistring dstr_498__OBRALLOBJ_CLASSN*/ /*_.VALSTR___V606*/ curfptr[605] = (void*)&cdat->dstr_498__OBRALLOBJ_CLASSN; cdat->dstr_498__OBRALLOBJ_CLASSN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_498__OBRALLOBJ_CLASSN.val, "OBRALLOBJ_CLASSNAME", sizeof(cdat->dstr_498__OBRALLOBJ_CLASSN.val)-1); /*iniobj dsym_499__CLASS_OBJNEWCLOSURE*/ if (!/*_.VALDATA___V614*/ curfptr[613]) /*_.VALDATA___V614*/ curfptr[613] = (void*)&cdat->dsym_499__CLASS_OBJNEWCLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_499__CLASS_OBJNEWCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_499__CLASS_OBJNEWCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_499__CLASS_OBJNEWCLOSURE.obj_hash = 699586028; cdat->dsym_499__CLASS_OBJNEWCLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_499__CLASS_OBJNEWCLOSURE)); /*inistring dstr_500__CLASS_OBJNEWCLOS*/ /*_.VALSTR___V615*/ curfptr[614] = (void*)&cdat->dstr_500__CLASS_OBJNEWCLOS; cdat->dstr_500__CLASS_OBJNEWCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_500__CLASS_OBJNEWCLOS.val, "CLASS_OBJNEWCLOSURE", sizeof(cdat->dstr_500__CLASS_OBJNEWCLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:340:/ iniobj"); /*iniobj dobj_501__CLASS_OBJNEWCLOSURE*/ if (!/*_.VALDATA___V616*/ curfptr[615]) /*_.VALDATA___V616*/ curfptr[615] = (void*)&cdat->dobj_501__CLASS_OBJNEWCLOSURE; basilys_assertmsg("iniobj checkdiscr dobj_501__CLASS_OBJNEWCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_501__CLASS_OBJNEWCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_501__CLASS_OBJNEWCLOSURE.obj_num = OBMAG_OBJECT; cdat->dobj_501__CLASS_OBJNEWCLOSURE.obj_hash = 542377621; cdat->dobj_501__CLASS_OBJNEWCLOSURE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_501__CLASS_OBJNEWCLOSURE)); /*inistring dstr_502__CLASS_OBJNEWCLOS*/ /*_.VALSTR___V617*/ curfptr[616] = (void*)&cdat->dstr_502__CLASS_OBJNEWCLOS; cdat->dstr_502__CLASS_OBJNEWCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_502__CLASS_OBJNEWCLOS.val, "CLASS_OBJNEWCLOSURE", sizeof(cdat->dstr_502__CLASS_OBJNEWCLOS.val)-1); /*inimult dtup_503__CLASS_OBJNEWCLOSURE*/ /*_.VALTUP___V618*/ curfptr[617] = (void*)&cdat->dtup_503__CLASS_OBJNEWCLOSURE; cdat->dtup_503__CLASS_OBJNEWCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_503__CLASS_OBJNEWCLOSURE.nbval = 4; /*inimult dtup_504__CLASS_OBJNEWCLOSURE*/ /*_.VALTUP___V625*/ curfptr[624] = (void*)&cdat->dtup_504__CLASS_OBJNEWCLOSURE; cdat->dtup_504__CLASS_OBJNEWCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_504__CLASS_OBJNEWCLOSURE.nbval = 5; /*iniobj dsym_505__OBNCLO_DISCR*/ if (!/*_.VALDATA___V626*/ curfptr[625]) /*_.VALDATA___V626*/ curfptr[625] = (void*)&cdat->dsym_505__OBNCLO_DISCR; basilys_assertmsg("iniobj checkdiscr dsym_505__OBNCLO_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_505__OBNCLO_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_505__OBNCLO_DISCR.obj_hash = 388790245; cdat->dsym_505__OBNCLO_DISCR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_505__OBNCLO_DISCR)); /*inistring dstr_506__OBNCLO_DISCR*/ /*_.VALSTR___V627*/ curfptr[626] = (void*)&cdat->dstr_506__OBNCLO_DISCR; cdat->dstr_506__OBNCLO_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_506__OBNCLO_DISCR.val, "OBNCLO_DISCR", sizeof(cdat->dstr_506__OBNCLO_DISCR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:340:/ iniobj"); /*iniobj dobj_507__OBNCLO_DISCR*/ if (!/*_.VALDATA___V619*/ curfptr[618]) /*_.VALDATA___V619*/ curfptr[618] = (void*)&cdat->dobj_507__OBNCLO_DISCR; basilys_assertmsg("iniobj checkdiscr dobj_507__OBNCLO_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_507__OBNCLO_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_507__OBNCLO_DISCR.obj_num = 2; cdat->dobj_507__OBNCLO_DISCR.obj_hash = 11233233; cdat->dobj_507__OBNCLO_DISCR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_507__OBNCLO_DISCR)); /*inistring dstr_508__OBNCLO_DISCR*/ /*_.VALSTR___V620*/ curfptr[619] = (void*)&cdat->dstr_508__OBNCLO_DISCR; cdat->dstr_508__OBNCLO_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_508__OBNCLO_DISCR.val, "OBNCLO_DISCR", sizeof(cdat->dstr_508__OBNCLO_DISCR.val)-1); /*iniobj dsym_509__OBNCLO_ROUT*/ if (!/*_.VALDATA___V628*/ curfptr[627]) /*_.VALDATA___V628*/ curfptr[627] = (void*)&cdat->dsym_509__OBNCLO_ROUT; basilys_assertmsg("iniobj checkdiscr dsym_509__OBNCLO_ROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_509__OBNCLO_ROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_509__OBNCLO_ROUT.obj_hash = 513939265; cdat->dsym_509__OBNCLO_ROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_509__OBNCLO_ROUT)); /*inistring dstr_510__OBNCLO_ROUT*/ /*_.VALSTR___V629*/ curfptr[628] = (void*)&cdat->dstr_510__OBNCLO_ROUT; cdat->dstr_510__OBNCLO_ROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_510__OBNCLO_ROUT.val, "OBNCLO_ROUT", sizeof(cdat->dstr_510__OBNCLO_ROUT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:340:/ iniobj"); /*iniobj dobj_511__OBNCLO_ROUT*/ if (!/*_.VALDATA___V621*/ curfptr[620]) /*_.VALDATA___V621*/ curfptr[620] = (void*)&cdat->dobj_511__OBNCLO_ROUT; basilys_assertmsg("iniobj checkdiscr dobj_511__OBNCLO_ROUT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_511__OBNCLO_ROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_511__OBNCLO_ROUT.obj_num = 3; cdat->dobj_511__OBNCLO_ROUT.obj_hash = 1040696329; cdat->dobj_511__OBNCLO_ROUT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_511__OBNCLO_ROUT)); /*inistring dstr_512__OBNCLO_ROUT*/ /*_.VALSTR___V622*/ curfptr[621] = (void*)&cdat->dstr_512__OBNCLO_ROUT; cdat->dstr_512__OBNCLO_ROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_512__OBNCLO_ROUT.val, "OBNCLO_ROUT", sizeof(cdat->dstr_512__OBNCLO_ROUT.val)-1); /*iniobj dsym_513__OBNCLO_LEN*/ if (!/*_.VALDATA___V630*/ curfptr[629]) /*_.VALDATA___V630*/ curfptr[629] = (void*)&cdat->dsym_513__OBNCLO_LEN; basilys_assertmsg("iniobj checkdiscr dsym_513__OBNCLO_LEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_513__OBNCLO_LEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_513__OBNCLO_LEN.obj_hash = 488324648; cdat->dsym_513__OBNCLO_LEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_513__OBNCLO_LEN)); /*inistring dstr_514__OBNCLO_LEN*/ /*_.VALSTR___V631*/ curfptr[630] = (void*)&cdat->dstr_514__OBNCLO_LEN; cdat->dstr_514__OBNCLO_LEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_514__OBNCLO_LEN.val, "OBNCLO_LEN", sizeof(cdat->dstr_514__OBNCLO_LEN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:340:/ iniobj"); /*iniobj dobj_515__OBNCLO_LEN*/ if (!/*_.VALDATA___V623*/ curfptr[622]) /*_.VALDATA___V623*/ curfptr[622] = (void*)&cdat->dobj_515__OBNCLO_LEN; basilys_assertmsg("iniobj checkdiscr dobj_515__OBNCLO_LEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_515__OBNCLO_LEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_515__OBNCLO_LEN.obj_num = 4; cdat->dobj_515__OBNCLO_LEN.obj_hash = 382379546; cdat->dobj_515__OBNCLO_LEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_515__OBNCLO_LEN)); /*inistring dstr_516__OBNCLO_LEN*/ /*_.VALSTR___V624*/ curfptr[623] = (void*)&cdat->dstr_516__OBNCLO_LEN; cdat->dstr_516__OBNCLO_LEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_516__OBNCLO_LEN.val, "OBNCLO_LEN", sizeof(cdat->dstr_516__OBNCLO_LEN.val)-1); /*iniobj dsym_517__CLASS_OBJPUTUPLE*/ if (!/*_.VALDATA___V632*/ curfptr[631]) /*_.VALDATA___V632*/ curfptr[631] = (void*)&cdat->dsym_517__CLASS_OBJPUTUPLE; basilys_assertmsg("iniobj checkdiscr dsym_517__CLASS_OBJPUTUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_517__CLASS_OBJPUTUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_517__CLASS_OBJPUTUPLE.obj_hash = 419131762; cdat->dsym_517__CLASS_OBJPUTUPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_517__CLASS_OBJPUTUPLE)); /*inistring dstr_518__CLASS_OBJPUTUPLE*/ /*_.VALSTR___V633*/ curfptr[632] = (void*)&cdat->dstr_518__CLASS_OBJPUTUPLE; cdat->dstr_518__CLASS_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_518__CLASS_OBJPUTUPLE.val, "CLASS_OBJPUTUPLE", sizeof(cdat->dstr_518__CLASS_OBJPUTUPLE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:348:/ iniobj"); /*iniobj dobj_519__CLASS_OBJPUTUPLE*/ if (!/*_.VALDATA___V634*/ curfptr[633]) /*_.VALDATA___V634*/ curfptr[633] = (void*)&cdat->dobj_519__CLASS_OBJPUTUPLE; basilys_assertmsg("iniobj checkdiscr dobj_519__CLASS_OBJPUTUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_519__CLASS_OBJPUTUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_519__CLASS_OBJPUTUPLE.obj_num = OBMAG_OBJECT; cdat->dobj_519__CLASS_OBJPUTUPLE.obj_hash = 694494606; cdat->dobj_519__CLASS_OBJPUTUPLE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_519__CLASS_OBJPUTUPLE)); /*inistring dstr_520__CLASS_OBJPUTUPLE*/ /*_.VALSTR___V635*/ curfptr[634] = (void*)&cdat->dstr_520__CLASS_OBJPUTUPLE; cdat->dstr_520__CLASS_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_520__CLASS_OBJPUTUPLE.val, "CLASS_OBJPUTUPLE", sizeof(cdat->dstr_520__CLASS_OBJPUTUPLE.val)-1); /*inimult dtup_521__CLASS_OBJPUTUPLE*/ /*_.VALTUP___V636*/ curfptr[635] = (void*)&cdat->dtup_521__CLASS_OBJPUTUPLE; cdat->dtup_521__CLASS_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_521__CLASS_OBJPUTUPLE.nbval = 3; /*inimult dtup_522__CLASS_OBJPUTUPLE*/ /*_.VALTUP___V643*/ curfptr[642] = (void*)&cdat->dtup_522__CLASS_OBJPUTUPLE; cdat->dtup_522__CLASS_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_522__CLASS_OBJPUTUPLE.nbval = 4; /*iniobj dsym_523__OPUTU_TUPLED*/ if (!/*_.VALDATA___V644*/ curfptr[643]) /*_.VALDATA___V644*/ curfptr[643] = (void*)&cdat->dsym_523__OPUTU_TUPLED; basilys_assertmsg("iniobj checkdiscr dsym_523__OPUTU_TUPLED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_523__OPUTU_TUPLED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_523__OPUTU_TUPLED.obj_hash = 1004801678; cdat->dsym_523__OPUTU_TUPLED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_523__OPUTU_TUPLED)); /*inistring dstr_524__OPUTU_TUPLED*/ /*_.VALSTR___V645*/ curfptr[644] = (void*)&cdat->dstr_524__OPUTU_TUPLED; cdat->dstr_524__OPUTU_TUPLED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_524__OPUTU_TUPLED.val, "OPUTU_TUPLED", sizeof(cdat->dstr_524__OPUTU_TUPLED.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:348:/ iniobj"); /*iniobj dobj_525__OPUTU_TUPLED*/ if (!/*_.VALDATA___V637*/ curfptr[636]) /*_.VALDATA___V637*/ curfptr[636] = (void*)&cdat->dobj_525__OPUTU_TUPLED; basilys_assertmsg("iniobj checkdiscr dobj_525__OPUTU_TUPLED", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_525__OPUTU_TUPLED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_525__OPUTU_TUPLED.obj_num = 1; cdat->dobj_525__OPUTU_TUPLED.obj_hash = 938899674; cdat->dobj_525__OPUTU_TUPLED.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_525__OPUTU_TUPLED)); /*inistring dstr_526__OPUTU_TUPLED*/ /*_.VALSTR___V638*/ curfptr[637] = (void*)&cdat->dstr_526__OPUTU_TUPLED; cdat->dstr_526__OPUTU_TUPLED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_526__OPUTU_TUPLED.val, "OPUTU_TUPLED", sizeof(cdat->dstr_526__OPUTU_TUPLED.val)-1); /*iniobj dsym_527__OPUTU_OFFSET*/ if (!/*_.VALDATA___V646*/ curfptr[645]) /*_.VALDATA___V646*/ curfptr[645] = (void*)&cdat->dsym_527__OPUTU_OFFSET; basilys_assertmsg("iniobj checkdiscr dsym_527__OPUTU_OFFSET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_527__OPUTU_OFFSET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_527__OPUTU_OFFSET.obj_hash = 213297802; cdat->dsym_527__OPUTU_OFFSET.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_527__OPUTU_OFFSET)); /*inistring dstr_528__OPUTU_OFFSET*/ /*_.VALSTR___V647*/ curfptr[646] = (void*)&cdat->dstr_528__OPUTU_OFFSET; cdat->dstr_528__OPUTU_OFFSET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_528__OPUTU_OFFSET.val, "OPUTU_OFFSET", sizeof(cdat->dstr_528__OPUTU_OFFSET.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:348:/ iniobj"); /*iniobj dobj_529__OPUTU_OFFSET*/ if (!/*_.VALDATA___V639*/ curfptr[638]) /*_.VALDATA___V639*/ curfptr[638] = (void*)&cdat->dobj_529__OPUTU_OFFSET; basilys_assertmsg("iniobj checkdiscr dobj_529__OPUTU_OFFSET", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_529__OPUTU_OFFSET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_529__OPUTU_OFFSET.obj_num = 2; cdat->dobj_529__OPUTU_OFFSET.obj_hash = 521007999; cdat->dobj_529__OPUTU_OFFSET.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_529__OPUTU_OFFSET)); /*inistring dstr_530__OPUTU_OFFSET*/ /*_.VALSTR___V640*/ curfptr[639] = (void*)&cdat->dstr_530__OPUTU_OFFSET; cdat->dstr_530__OPUTU_OFFSET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_530__OPUTU_OFFSET.val, "OPUTU_OFFSET", sizeof(cdat->dstr_530__OPUTU_OFFSET.val)-1); /*iniobj dsym_531__OPUTU_VALUE*/ if (!/*_.VALDATA___V648*/ curfptr[647]) /*_.VALDATA___V648*/ curfptr[647] = (void*)&cdat->dsym_531__OPUTU_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_531__OPUTU_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_531__OPUTU_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_531__OPUTU_VALUE.obj_hash = 106335513; cdat->dsym_531__OPUTU_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_531__OPUTU_VALUE)); /*inistring dstr_532__OPUTU_VALUE*/ /*_.VALSTR___V649*/ curfptr[648] = (void*)&cdat->dstr_532__OPUTU_VALUE; cdat->dstr_532__OPUTU_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_532__OPUTU_VALUE.val, "OPUTU_VALUE", sizeof(cdat->dstr_532__OPUTU_VALUE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:348:/ iniobj"); /*iniobj dobj_533__OPUTU_VALUE*/ if (!/*_.VALDATA___V641*/ curfptr[640]) /*_.VALDATA___V641*/ curfptr[640] = (void*)&cdat->dobj_533__OPUTU_VALUE; basilys_assertmsg("iniobj checkdiscr dobj_533__OPUTU_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_533__OPUTU_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_533__OPUTU_VALUE.obj_num = 3; cdat->dobj_533__OPUTU_VALUE.obj_hash = 277373717; cdat->dobj_533__OPUTU_VALUE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_533__OPUTU_VALUE)); /*inistring dstr_534__OPUTU_VALUE*/ /*_.VALSTR___V642*/ curfptr[641] = (void*)&cdat->dstr_534__OPUTU_VALUE; cdat->dstr_534__OPUTU_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_534__OPUTU_VALUE.val, "OPUTU_VALUE", sizeof(cdat->dstr_534__OPUTU_VALUE.val)-1); /*iniobj dsym_535__CLASS_OBJPUTSLOT*/ if (!/*_.VALDATA___V650*/ curfptr[649]) /*_.VALDATA___V650*/ curfptr[649] = (void*)&cdat->dsym_535__CLASS_OBJPUTSLOT; basilys_assertmsg("iniobj checkdiscr dsym_535__CLASS_OBJPUTSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_535__CLASS_OBJPUTSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_535__CLASS_OBJPUTSLOT.obj_hash = 382942903; cdat->dsym_535__CLASS_OBJPUTSLOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_535__CLASS_OBJPUTSLOT)); /*inistring dstr_536__CLASS_OBJPUTSLOT*/ /*_.VALSTR___V651*/ curfptr[650] = (void*)&cdat->dstr_536__CLASS_OBJPUTSLOT; cdat->dstr_536__CLASS_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_536__CLASS_OBJPUTSLOT.val, "CLASS_OBJPUTSLOT", sizeof(cdat->dstr_536__CLASS_OBJPUTSLOT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:356:/ iniobj"); /*iniobj dobj_537__CLASS_OBJPUTSLOT*/ if (!/*_.VALDATA___V652*/ curfptr[651]) /*_.VALDATA___V652*/ curfptr[651] = (void*)&cdat->dobj_537__CLASS_OBJPUTSLOT; basilys_assertmsg("iniobj checkdiscr dobj_537__CLASS_OBJPUTSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_537__CLASS_OBJPUTSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_537__CLASS_OBJPUTSLOT.obj_num = OBMAG_OBJECT; cdat->dobj_537__CLASS_OBJPUTSLOT.obj_hash = 944769898; cdat->dobj_537__CLASS_OBJPUTSLOT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_537__CLASS_OBJPUTSLOT)); /*inistring dstr_538__CLASS_OBJPUTSLOT*/ /*_.VALSTR___V653*/ curfptr[652] = (void*)&cdat->dstr_538__CLASS_OBJPUTSLOT; cdat->dstr_538__CLASS_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_538__CLASS_OBJPUTSLOT.val, "CLASS_OBJPUTSLOT", sizeof(cdat->dstr_538__CLASS_OBJPUTSLOT.val)-1); /*inimult dtup_539__CLASS_OBJPUTSLOT*/ /*_.VALTUP___V654*/ curfptr[653] = (void*)&cdat->dtup_539__CLASS_OBJPUTSLOT; cdat->dtup_539__CLASS_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_539__CLASS_OBJPUTSLOT.nbval = 3; /*inimult dtup_540__CLASS_OBJPUTSLOT*/ /*_.VALTUP___V663*/ curfptr[662] = (void*)&cdat->dtup_540__CLASS_OBJPUTSLOT; cdat->dtup_540__CLASS_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_540__CLASS_OBJPUTSLOT.nbval = 5; /*iniobj dsym_541__OSLOT_ODATA*/ if (!/*_.VALDATA___V664*/ curfptr[663]) /*_.VALDATA___V664*/ curfptr[663] = (void*)&cdat->dsym_541__OSLOT_ODATA; basilys_assertmsg("iniobj checkdiscr dsym_541__OSLOT_ODATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_541__OSLOT_ODATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_541__OSLOT_ODATA.obj_hash = 583613196; cdat->dsym_541__OSLOT_ODATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_541__OSLOT_ODATA)); /*inistring dstr_542__OSLOT_ODATA*/ /*_.VALSTR___V665*/ curfptr[664] = (void*)&cdat->dstr_542__OSLOT_ODATA; cdat->dstr_542__OSLOT_ODATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_542__OSLOT_ODATA.val, "OSLOT_ODATA", sizeof(cdat->dstr_542__OSLOT_ODATA.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:356:/ iniobj"); /*iniobj dobj_543__OSLOT_ODATA*/ if (!/*_.VALDATA___V655*/ curfptr[654]) /*_.VALDATA___V655*/ curfptr[654] = (void*)&cdat->dobj_543__OSLOT_ODATA; basilys_assertmsg("iniobj checkdiscr dobj_543__OSLOT_ODATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_543__OSLOT_ODATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_543__OSLOT_ODATA.obj_num = 1; cdat->dobj_543__OSLOT_ODATA.obj_hash = 756222643; cdat->dobj_543__OSLOT_ODATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_543__OSLOT_ODATA)); /*inistring dstr_544__OSLOT_ODATA*/ /*_.VALSTR___V656*/ curfptr[655] = (void*)&cdat->dstr_544__OSLOT_ODATA; cdat->dstr_544__OSLOT_ODATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_544__OSLOT_ODATA.val, "OSLOT_ODATA", sizeof(cdat->dstr_544__OSLOT_ODATA.val)-1); /*iniobj dsym_545__OSLOT_OFFSET*/ if (!/*_.VALDATA___V666*/ curfptr[665]) /*_.VALDATA___V666*/ curfptr[665] = (void*)&cdat->dsym_545__OSLOT_OFFSET; basilys_assertmsg("iniobj checkdiscr dsym_545__OSLOT_OFFSET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_545__OSLOT_OFFSET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_545__OSLOT_OFFSET.obj_hash = 210542424; cdat->dsym_545__OSLOT_OFFSET.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_545__OSLOT_OFFSET)); /*inistring dstr_546__OSLOT_OFFSET*/ /*_.VALSTR___V667*/ curfptr[666] = (void*)&cdat->dstr_546__OSLOT_OFFSET; cdat->dstr_546__OSLOT_OFFSET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_546__OSLOT_OFFSET.val, "OSLOT_OFFSET", sizeof(cdat->dstr_546__OSLOT_OFFSET.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:356:/ iniobj"); /*iniobj dobj_547__OSLOT_OFFSET*/ if (!/*_.VALDATA___V657*/ curfptr[656]) /*_.VALDATA___V657*/ curfptr[656] = (void*)&cdat->dobj_547__OSLOT_OFFSET; basilys_assertmsg("iniobj checkdiscr dobj_547__OSLOT_OFFSET", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_547__OSLOT_OFFSET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_547__OSLOT_OFFSET.obj_num = 2; cdat->dobj_547__OSLOT_OFFSET.obj_hash = 540445913; cdat->dobj_547__OSLOT_OFFSET.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_547__OSLOT_OFFSET)); /*inistring dstr_548__OSLOT_OFFSET*/ /*_.VALSTR___V658*/ curfptr[657] = (void*)&cdat->dstr_548__OSLOT_OFFSET; cdat->dstr_548__OSLOT_OFFSET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_548__OSLOT_OFFSET.val, "OSLOT_OFFSET", sizeof(cdat->dstr_548__OSLOT_OFFSET.val)-1); /*iniobj dsym_549__OSLOT_FIELD*/ if (!/*_.VALDATA___V668*/ curfptr[667]) /*_.VALDATA___V668*/ curfptr[667] = (void*)&cdat->dsym_549__OSLOT_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_549__OSLOT_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_549__OSLOT_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_549__OSLOT_FIELD.obj_hash = 59532467; cdat->dsym_549__OSLOT_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_549__OSLOT_FIELD)); /*inistring dstr_550__OSLOT_FIELD*/ /*_.VALSTR___V669*/ curfptr[668] = (void*)&cdat->dstr_550__OSLOT_FIELD; cdat->dstr_550__OSLOT_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_550__OSLOT_FIELD.val, "OSLOT_FIELD", sizeof(cdat->dstr_550__OSLOT_FIELD.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:356:/ iniobj"); /*iniobj dobj_551__OSLOT_FIELD*/ if (!/*_.VALDATA___V659*/ curfptr[658]) /*_.VALDATA___V659*/ curfptr[658] = (void*)&cdat->dobj_551__OSLOT_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_551__OSLOT_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_551__OSLOT_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_551__OSLOT_FIELD.obj_num = 3; cdat->dobj_551__OSLOT_FIELD.obj_hash = 217326129; cdat->dobj_551__OSLOT_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_551__OSLOT_FIELD)); /*inistring dstr_552__OSLOT_FIELD*/ /*_.VALSTR___V660*/ curfptr[659] = (void*)&cdat->dstr_552__OSLOT_FIELD; cdat->dstr_552__OSLOT_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_552__OSLOT_FIELD.val, "OSLOT_FIELD", sizeof(cdat->dstr_552__OSLOT_FIELD.val)-1); /*iniobj dsym_553__OSLOT_VALUE*/ if (!/*_.VALDATA___V670*/ curfptr[669]) /*_.VALDATA___V670*/ curfptr[669] = (void*)&cdat->dsym_553__OSLOT_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_553__OSLOT_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_553__OSLOT_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_553__OSLOT_VALUE.obj_hash = 544636827; cdat->dsym_553__OSLOT_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_553__OSLOT_VALUE)); /*inistring dstr_554__OSLOT_VALUE*/ /*_.VALSTR___V671*/ curfptr[670] = (void*)&cdat->dstr_554__OSLOT_VALUE; cdat->dstr_554__OSLOT_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_554__OSLOT_VALUE.val, "OSLOT_VALUE", sizeof(cdat->dstr_554__OSLOT_VALUE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:356:/ iniobj"); /*iniobj dobj_555__OSLOT_VALUE*/ if (!/*_.VALDATA___V661*/ curfptr[660]) /*_.VALDATA___V661*/ curfptr[660] = (void*)&cdat->dobj_555__OSLOT_VALUE; basilys_assertmsg("iniobj checkdiscr dobj_555__OSLOT_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_555__OSLOT_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_555__OSLOT_VALUE.obj_num = 4; cdat->dobj_555__OSLOT_VALUE.obj_hash = 969768629; cdat->dobj_555__OSLOT_VALUE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_555__OSLOT_VALUE)); /*inistring dstr_556__OSLOT_VALUE*/ /*_.VALSTR___V662*/ curfptr[661] = (void*)&cdat->dstr_556__OSLOT_VALUE; cdat->dstr_556__OSLOT_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_556__OSLOT_VALUE.val, "OSLOT_VALUE", sizeof(cdat->dstr_556__OSLOT_VALUE.val)-1); /*iniobj dsym_557__CLASS_OBJGETSLOT*/ if (!/*_.VALDATA___V672*/ curfptr[671]) /*_.VALDATA___V672*/ curfptr[671] = (void*)&cdat->dsym_557__CLASS_OBJGETSLOT; basilys_assertmsg("iniobj checkdiscr dsym_557__CLASS_OBJGETSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_557__CLASS_OBJGETSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_557__CLASS_OBJGETSLOT.obj_hash = 1004612742; cdat->dsym_557__CLASS_OBJGETSLOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_557__CLASS_OBJGETSLOT)); /*inistring dstr_558__CLASS_OBJGETSLOT*/ /*_.VALSTR___V673*/ curfptr[672] = (void*)&cdat->dstr_558__CLASS_OBJGETSLOT; cdat->dstr_558__CLASS_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_558__CLASS_OBJGETSLOT.val, "CLASS_OBJGETSLOT", sizeof(cdat->dstr_558__CLASS_OBJGETSLOT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:366:/ iniobj"); /*iniobj dobj_559__CLASS_OBJGETSLOT*/ if (!/*_.VALDATA___V674*/ curfptr[673]) /*_.VALDATA___V674*/ curfptr[673] = (void*)&cdat->dobj_559__CLASS_OBJGETSLOT; basilys_assertmsg("iniobj checkdiscr dobj_559__CLASS_OBJGETSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_559__CLASS_OBJGETSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_559__CLASS_OBJGETSLOT.obj_num = OBMAG_OBJECT; cdat->dobj_559__CLASS_OBJGETSLOT.obj_hash = 10623627; cdat->dobj_559__CLASS_OBJGETSLOT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_559__CLASS_OBJGETSLOT)); /*inistring dstr_560__CLASS_OBJGETSLOT*/ /*_.VALSTR___V675*/ curfptr[674] = (void*)&cdat->dstr_560__CLASS_OBJGETSLOT; cdat->dstr_560__CLASS_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_560__CLASS_OBJGETSLOT.val, "CLASS_OBJGETSLOT", sizeof(cdat->dstr_560__CLASS_OBJGETSLOT.val)-1); /*inimult dtup_561__CLASS_OBJGETSLOT*/ /*_.VALTUP___V676*/ curfptr[675] = (void*)&cdat->dtup_561__CLASS_OBJGETSLOT; cdat->dtup_561__CLASS_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_561__CLASS_OBJGETSLOT.nbval = 4; /*inimult dtup_562__CLASS_OBJGETSLOT*/ /*_.VALTUP___V681*/ curfptr[680] = (void*)&cdat->dtup_562__CLASS_OBJGETSLOT; cdat->dtup_562__CLASS_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_562__CLASS_OBJGETSLOT.nbval = 4; /*iniobj dsym_563__OGETSL_OBJ*/ if (!/*_.VALDATA___V682*/ curfptr[681]) /*_.VALDATA___V682*/ curfptr[681] = (void*)&cdat->dsym_563__OGETSL_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_563__OGETSL_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_563__OGETSL_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_563__OGETSL_OBJ.obj_hash = 312793848; cdat->dsym_563__OGETSL_OBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_563__OGETSL_OBJ)); /*inistring dstr_564__OGETSL_OBJ*/ /*_.VALSTR___V683*/ curfptr[682] = (void*)&cdat->dstr_564__OGETSL_OBJ; cdat->dstr_564__OGETSL_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_564__OGETSL_OBJ.val, "OGETSL_OBJ", sizeof(cdat->dstr_564__OGETSL_OBJ.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:366:/ iniobj"); /*iniobj dobj_565__OGETSL_OBJ*/ if (!/*_.VALDATA___V677*/ curfptr[676]) /*_.VALDATA___V677*/ curfptr[676] = (void*)&cdat->dobj_565__OGETSL_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_565__OGETSL_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_565__OGETSL_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_565__OGETSL_OBJ.obj_num = 2; cdat->dobj_565__OGETSL_OBJ.obj_hash = 484210840; cdat->dobj_565__OGETSL_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_565__OGETSL_OBJ)); /*inistring dstr_566__OGETSL_OBJ*/ /*_.VALSTR___V678*/ curfptr[677] = (void*)&cdat->dstr_566__OGETSL_OBJ; cdat->dstr_566__OGETSL_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_566__OGETSL_OBJ.val, "OGETSL_OBJ", sizeof(cdat->dstr_566__OGETSL_OBJ.val)-1); /*iniobj dsym_567__OGETSL_FIELD*/ if (!/*_.VALDATA___V684*/ curfptr[683]) /*_.VALDATA___V684*/ curfptr[683] = (void*)&cdat->dsym_567__OGETSL_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_567__OGETSL_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_567__OGETSL_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_567__OGETSL_FIELD.obj_hash = 148796144; cdat->dsym_567__OGETSL_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_567__OGETSL_FIELD)); /*inistring dstr_568__OGETSL_FIELD*/ /*_.VALSTR___V685*/ curfptr[684] = (void*)&cdat->dstr_568__OGETSL_FIELD; cdat->dstr_568__OGETSL_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_568__OGETSL_FIELD.val, "OGETSL_FIELD", sizeof(cdat->dstr_568__OGETSL_FIELD.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:366:/ iniobj"); /*iniobj dobj_569__OGETSL_FIELD*/ if (!/*_.VALDATA___V679*/ curfptr[678]) /*_.VALDATA___V679*/ curfptr[678] = (void*)&cdat->dobj_569__OGETSL_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_569__OGETSL_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_569__OGETSL_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_569__OGETSL_FIELD.obj_num = 3; cdat->dobj_569__OGETSL_FIELD.obj_hash = 1058336201; cdat->dobj_569__OGETSL_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_569__OGETSL_FIELD)); /*inistring dstr_570__OGETSL_FIELD*/ /*_.VALSTR___V680*/ curfptr[679] = (void*)&cdat->dstr_570__OGETSL_FIELD; cdat->dstr_570__OGETSL_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_570__OGETSL_FIELD.val, "OGETSL_FIELD", sizeof(cdat->dstr_570__OGETSL_FIELD.val)-1); /*iniobj dsym_571__CLASS_OBJPUTCLOSUROUT*/ if (!/*_.VALDATA___V686*/ curfptr[685]) /*_.VALDATA___V686*/ curfptr[685] = (void*)&cdat->dsym_571__CLASS_OBJPUTCLOSUROUT; basilys_assertmsg("iniobj checkdiscr dsym_571__CLASS_OBJPUTCLOSUROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_571__CLASS_OBJPUTCLOSUROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_571__CLASS_OBJPUTCLOSUROUT.obj_hash = 331144291; cdat->dsym_571__CLASS_OBJPUTCLOSUROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_571__CLASS_OBJPUTCLOSUROUT)); /*inistring dstr_572__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V687*/ curfptr[686] = (void*)&cdat->dstr_572__CLASS_OBJPUTCLOS; cdat->dstr_572__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_572__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSUROUT", sizeof(cdat->dstr_572__CLASS_OBJPUTCLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:373:/ iniobj"); /*iniobj dobj_573__CLASS_OBJPUTCLOSUROUT*/ if (!/*_.VALDATA___V688*/ curfptr[687]) /*_.VALDATA___V688*/ curfptr[687] = (void*)&cdat->dobj_573__CLASS_OBJPUTCLOSUROUT; basilys_assertmsg("iniobj checkdiscr dobj_573__CLASS_OBJPUTCLOSUROUT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_573__CLASS_OBJPUTCLOSUROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_573__CLASS_OBJPUTCLOSUROUT.obj_num = OBMAG_OBJECT; cdat->dobj_573__CLASS_OBJPUTCLOSUROUT.obj_hash = 293371646; cdat->dobj_573__CLASS_OBJPUTCLOSUROUT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_573__CLASS_OBJPUTCLOSUROUT)); /*inistring dstr_574__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V689*/ curfptr[688] = (void*)&cdat->dstr_574__CLASS_OBJPUTCLOS; cdat->dstr_574__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_574__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSUROUT", sizeof(cdat->dstr_574__CLASS_OBJPUTCLOS.val)-1); /*inimult dtup_575__CLASS_OBJPUTCLOSUROUT*/ /*_.VALTUP___V690*/ curfptr[689] = (void*)&cdat->dtup_575__CLASS_OBJPUTCLOSUROUT; cdat->dtup_575__CLASS_OBJPUTCLOSUROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_575__CLASS_OBJPUTCLOSUROUT.nbval = 3; /*inimult dtup_576__CLASS_OBJPUTCLOSUROUT*/ /*_.VALTUP___V695*/ curfptr[694] = (void*)&cdat->dtup_576__CLASS_OBJPUTCLOSUROUT; cdat->dtup_576__CLASS_OBJPUTCLOSUROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_576__CLASS_OBJPUTCLOSUROUT.nbval = 3; /*iniobj dsym_577__OPCLOR_CLOS*/ if (!/*_.VALDATA___V696*/ curfptr[695]) /*_.VALDATA___V696*/ curfptr[695] = (void*)&cdat->dsym_577__OPCLOR_CLOS; basilys_assertmsg("iniobj checkdiscr dsym_577__OPCLOR_CLOS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_577__OPCLOR_CLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_577__OPCLOR_CLOS.obj_hash = 100988035; cdat->dsym_577__OPCLOR_CLOS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_577__OPCLOR_CLOS)); /*inistring dstr_578__OPCLOR_CLOS*/ /*_.VALSTR___V697*/ curfptr[696] = (void*)&cdat->dstr_578__OPCLOR_CLOS; cdat->dstr_578__OPCLOR_CLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_578__OPCLOR_CLOS.val, "OPCLOR_CLOS", sizeof(cdat->dstr_578__OPCLOR_CLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:373:/ iniobj"); /*iniobj dobj_579__OPCLOR_CLOS*/ if (!/*_.VALDATA___V691*/ curfptr[690]) /*_.VALDATA___V691*/ curfptr[690] = (void*)&cdat->dobj_579__OPCLOR_CLOS; basilys_assertmsg("iniobj checkdiscr dobj_579__OPCLOR_CLOS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_579__OPCLOR_CLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_579__OPCLOR_CLOS.obj_num = 1; cdat->dobj_579__OPCLOR_CLOS.obj_hash = 1005269947; cdat->dobj_579__OPCLOR_CLOS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_579__OPCLOR_CLOS)); /*inistring dstr_580__OPCLOR_CLOS*/ /*_.VALSTR___V692*/ curfptr[691] = (void*)&cdat->dstr_580__OPCLOR_CLOS; cdat->dstr_580__OPCLOR_CLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_580__OPCLOR_CLOS.val, "OPCLOR_CLOS", sizeof(cdat->dstr_580__OPCLOR_CLOS.val)-1); /*iniobj dsym_581__OPCLOR_ROUT*/ if (!/*_.VALDATA___V698*/ curfptr[697]) /*_.VALDATA___V698*/ curfptr[697] = (void*)&cdat->dsym_581__OPCLOR_ROUT; basilys_assertmsg("iniobj checkdiscr dsym_581__OPCLOR_ROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_581__OPCLOR_ROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_581__OPCLOR_ROUT.obj_hash = 726732435; cdat->dsym_581__OPCLOR_ROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_581__OPCLOR_ROUT)); /*inistring dstr_582__OPCLOR_ROUT*/ /*_.VALSTR___V699*/ curfptr[698] = (void*)&cdat->dstr_582__OPCLOR_ROUT; cdat->dstr_582__OPCLOR_ROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_582__OPCLOR_ROUT.val, "OPCLOR_ROUT", sizeof(cdat->dstr_582__OPCLOR_ROUT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:373:/ iniobj"); /*iniobj dobj_583__OPCLOR_ROUT*/ if (!/*_.VALDATA___V693*/ curfptr[692]) /*_.VALDATA___V693*/ curfptr[692] = (void*)&cdat->dobj_583__OPCLOR_ROUT; basilys_assertmsg("iniobj checkdiscr dobj_583__OPCLOR_ROUT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_583__OPCLOR_ROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_583__OPCLOR_ROUT.obj_num = 2; cdat->dobj_583__OPCLOR_ROUT.obj_hash = 661342727; cdat->dobj_583__OPCLOR_ROUT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_583__OPCLOR_ROUT)); /*inistring dstr_584__OPCLOR_ROUT*/ /*_.VALSTR___V694*/ curfptr[693] = (void*)&cdat->dstr_584__OPCLOR_ROUT; cdat->dstr_584__OPCLOR_ROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_584__OPCLOR_ROUT.val, "OPCLOR_ROUT", sizeof(cdat->dstr_584__OPCLOR_ROUT.val)-1); /*iniobj dsym_585__CLASS_OBJPUTCLOSEDV*/ if (!/*_.VALDATA___V700*/ curfptr[699]) /*_.VALDATA___V700*/ curfptr[699] = (void*)&cdat->dsym_585__CLASS_OBJPUTCLOSEDV; basilys_assertmsg("iniobj checkdiscr dsym_585__CLASS_OBJPUTCLOSEDV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_585__CLASS_OBJPUTCLOSEDV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_585__CLASS_OBJPUTCLOSEDV.obj_hash = 870174829; cdat->dsym_585__CLASS_OBJPUTCLOSEDV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_585__CLASS_OBJPUTCLOSEDV)); /*inistring dstr_586__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V701*/ curfptr[700] = (void*)&cdat->dstr_586__CLASS_OBJPUTCLOS; cdat->dstr_586__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_586__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDV", sizeof(cdat->dstr_586__CLASS_OBJPUTCLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:380:/ iniobj"); /*iniobj dobj_587__CLASS_OBJPUTCLOSEDV*/ if (!/*_.VALDATA___V702*/ curfptr[701]) /*_.VALDATA___V702*/ curfptr[701] = (void*)&cdat->dobj_587__CLASS_OBJPUTCLOSEDV; basilys_assertmsg("iniobj checkdiscr dobj_587__CLASS_OBJPUTCLOSEDV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_587__CLASS_OBJPUTCLOSEDV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_587__CLASS_OBJPUTCLOSEDV.obj_num = OBMAG_OBJECT; cdat->dobj_587__CLASS_OBJPUTCLOSEDV.obj_hash = 160403552; cdat->dobj_587__CLASS_OBJPUTCLOSEDV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_587__CLASS_OBJPUTCLOSEDV)); /*inistring dstr_588__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V703*/ curfptr[702] = (void*)&cdat->dstr_588__CLASS_OBJPUTCLOS; cdat->dstr_588__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_588__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDV", sizeof(cdat->dstr_588__CLASS_OBJPUTCLOS.val)-1); /*inimult dtup_589__CLASS_OBJPUTCLOSEDV*/ /*_.VALTUP___V704*/ curfptr[703] = (void*)&cdat->dtup_589__CLASS_OBJPUTCLOSEDV; cdat->dtup_589__CLASS_OBJPUTCLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_589__CLASS_OBJPUTCLOSEDV.nbval = 3; /*inimult dtup_590__CLASS_OBJPUTCLOSEDV*/ /*_.VALTUP___V711*/ curfptr[710] = (void*)&cdat->dtup_590__CLASS_OBJPUTCLOSEDV; cdat->dtup_590__CLASS_OBJPUTCLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_590__CLASS_OBJPUTCLOSEDV.nbval = 4; /*iniobj dsym_591__OPCLOV_CLOS*/ if (!/*_.VALDATA___V712*/ curfptr[711]) /*_.VALDATA___V712*/ curfptr[711] = (void*)&cdat->dsym_591__OPCLOV_CLOS; basilys_assertmsg("iniobj checkdiscr dsym_591__OPCLOV_CLOS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_591__OPCLOV_CLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_591__OPCLOV_CLOS.obj_hash = 814017682; cdat->dsym_591__OPCLOV_CLOS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_591__OPCLOV_CLOS)); /*inistring dstr_592__OPCLOV_CLOS*/ /*_.VALSTR___V713*/ curfptr[712] = (void*)&cdat->dstr_592__OPCLOV_CLOS; cdat->dstr_592__OPCLOV_CLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_592__OPCLOV_CLOS.val, "OPCLOV_CLOS", sizeof(cdat->dstr_592__OPCLOV_CLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:380:/ iniobj"); /*iniobj dobj_593__OPCLOV_CLOS*/ if (!/*_.VALDATA___V705*/ curfptr[704]) /*_.VALDATA___V705*/ curfptr[704] = (void*)&cdat->dobj_593__OPCLOV_CLOS; basilys_assertmsg("iniobj checkdiscr dobj_593__OPCLOV_CLOS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_593__OPCLOV_CLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_593__OPCLOV_CLOS.obj_num = 1; cdat->dobj_593__OPCLOV_CLOS.obj_hash = 746152169; cdat->dobj_593__OPCLOV_CLOS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_593__OPCLOV_CLOS)); /*inistring dstr_594__OPCLOV_CLOS*/ /*_.VALSTR___V706*/ curfptr[705] = (void*)&cdat->dstr_594__OPCLOV_CLOS; cdat->dstr_594__OPCLOV_CLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_594__OPCLOV_CLOS.val, "OPCLOV_CLOS", sizeof(cdat->dstr_594__OPCLOV_CLOS.val)-1); /*iniobj dsym_595__OPCLOV_OFF*/ if (!/*_.VALDATA___V714*/ curfptr[713]) /*_.VALDATA___V714*/ curfptr[713] = (void*)&cdat->dsym_595__OPCLOV_OFF; basilys_assertmsg("iniobj checkdiscr dsym_595__OPCLOV_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_595__OPCLOV_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_595__OPCLOV_OFF.obj_hash = 914704130; cdat->dsym_595__OPCLOV_OFF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_595__OPCLOV_OFF)); /*inistring dstr_596__OPCLOV_OFF*/ /*_.VALSTR___V715*/ curfptr[714] = (void*)&cdat->dstr_596__OPCLOV_OFF; cdat->dstr_596__OPCLOV_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_596__OPCLOV_OFF.val, "OPCLOV_OFF", sizeof(cdat->dstr_596__OPCLOV_OFF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:380:/ iniobj"); /*iniobj dobj_597__OPCLOV_OFF*/ if (!/*_.VALDATA___V707*/ curfptr[706]) /*_.VALDATA___V707*/ curfptr[706] = (void*)&cdat->dobj_597__OPCLOV_OFF; basilys_assertmsg("iniobj checkdiscr dobj_597__OPCLOV_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_597__OPCLOV_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_597__OPCLOV_OFF.obj_num = 2; cdat->dobj_597__OPCLOV_OFF.obj_hash = 260987268; cdat->dobj_597__OPCLOV_OFF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_597__OPCLOV_OFF)); /*inistring dstr_598__OPCLOV_OFF*/ /*_.VALSTR___V708*/ curfptr[707] = (void*)&cdat->dstr_598__OPCLOV_OFF; cdat->dstr_598__OPCLOV_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_598__OPCLOV_OFF.val, "OPCLOV_OFF", sizeof(cdat->dstr_598__OPCLOV_OFF.val)-1); /*iniobj dsym_599__OPCLOV_CVAL*/ if (!/*_.VALDATA___V716*/ curfptr[715]) /*_.VALDATA___V716*/ curfptr[715] = (void*)&cdat->dsym_599__OPCLOV_CVAL; basilys_assertmsg("iniobj checkdiscr dsym_599__OPCLOV_CVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_599__OPCLOV_CVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_599__OPCLOV_CVAL.obj_hash = 453088809; cdat->dsym_599__OPCLOV_CVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_599__OPCLOV_CVAL)); /*inistring dstr_600__OPCLOV_CVAL*/ /*_.VALSTR___V717*/ curfptr[716] = (void*)&cdat->dstr_600__OPCLOV_CVAL; cdat->dstr_600__OPCLOV_CVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_600__OPCLOV_CVAL.val, "OPCLOV_CVAL", sizeof(cdat->dstr_600__OPCLOV_CVAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:380:/ iniobj"); /*iniobj dobj_601__OPCLOV_CVAL*/ if (!/*_.VALDATA___V709*/ curfptr[708]) /*_.VALDATA___V709*/ curfptr[708] = (void*)&cdat->dobj_601__OPCLOV_CVAL; basilys_assertmsg("iniobj checkdiscr dobj_601__OPCLOV_CVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_601__OPCLOV_CVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_601__OPCLOV_CVAL.obj_num = 3; cdat->dobj_601__OPCLOV_CVAL.obj_hash = 513588318; cdat->dobj_601__OPCLOV_CVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_601__OPCLOV_CVAL)); /*inistring dstr_602__OPCLOV_CVAL*/ /*_.VALSTR___V710*/ curfptr[709] = (void*)&cdat->dstr_602__OPCLOV_CVAL; cdat->dstr_602__OPCLOV_CVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_602__OPCLOV_CVAL.val, "OPCLOV_CVAL", sizeof(cdat->dstr_602__OPCLOV_CVAL.val)-1); /*iniobj dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV*/ if (!/*_.VALDATA___V718*/ curfptr[717]) /*_.VALDATA___V718*/ curfptr[717] = (void*)&cdat->dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV; basilys_assertmsg("iniobj checkdiscr dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 674443590; cdat->dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_603__CLASS_OBJPUTCLOSEDNOTNULLV)); /*inistring dstr_604__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V719*/ curfptr[718] = (void*)&cdat->dstr_604__CLASS_OBJPUTCLOS; cdat->dstr_604__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_604__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDNOTNULLV", sizeof(cdat->dstr_604__CLASS_OBJPUTCLOS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:388:/ iniobj"); /*iniobj dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV*/ if (!/*_.VALDATA___V720*/ curfptr[719]) /*_.VALDATA___V720*/ curfptr[719] = (void*)&cdat->dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV; basilys_assertmsg("iniobj checkdiscr dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV.obj_num = OBMAG_OBJECT; cdat->dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 399823609; cdat->dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_605__CLASS_OBJPUTCLOSEDNOTNULLV)); /*inistring dstr_606__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V721*/ curfptr[720] = (void*)&cdat->dstr_606__CLASS_OBJPUTCLOS; cdat->dstr_606__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_606__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDNOTNULLV", sizeof(cdat->dstr_606__CLASS_OBJPUTCLOS.val)-1); /*inimult dtup_607__CLASS_OBJPUTCLOSEDNOTNULLV*/ /*_.VALTUP___V722*/ curfptr[721] = (void*)&cdat->dtup_607__CLASS_OBJPUTCLOSEDNOTNULLV; cdat->dtup_607__CLASS_OBJPUTCLOSEDNOTNULLV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_607__CLASS_OBJPUTCLOSEDNOTNULLV.nbval = 4; /*inimult dtup_608__CLASS_OBJPUTCLOSEDNOTNULLV*/ /*_.VALTUP___V723*/ curfptr[722] = (void*)&cdat->dtup_608__CLASS_OBJPUTCLOSEDNOTNULLV; cdat->dtup_608__CLASS_OBJPUTCLOSEDNOTNULLV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_608__CLASS_OBJPUTCLOSEDNOTNULLV.nbval = 4; /*iniobj dsym_609__CLASS_OBJPUTROUTCONST*/ if (!/*_.VALDATA___V724*/ curfptr[723]) /*_.VALDATA___V724*/ curfptr[723] = (void*)&cdat->dsym_609__CLASS_OBJPUTROUTCONST; basilys_assertmsg("iniobj checkdiscr dsym_609__CLASS_OBJPUTROUTCONST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_609__CLASS_OBJPUTROUTCONST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_609__CLASS_OBJPUTROUTCONST.obj_hash = 815485494; cdat->dsym_609__CLASS_OBJPUTROUTCONST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_609__CLASS_OBJPUTROUTCONST)); /*inistring dstr_610__CLASS_OBJPUTROUT*/ /*_.VALSTR___V725*/ curfptr[724] = (void*)&cdat->dstr_610__CLASS_OBJPUTROUT; cdat->dstr_610__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_610__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONST", sizeof(cdat->dstr_610__CLASS_OBJPUTROUT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:394:/ iniobj"); /*iniobj dobj_611__CLASS_OBJPUTROUTCONST*/ if (!/*_.VALDATA___V726*/ curfptr[725]) /*_.VALDATA___V726*/ curfptr[725] = (void*)&cdat->dobj_611__CLASS_OBJPUTROUTCONST; basilys_assertmsg("iniobj checkdiscr dobj_611__CLASS_OBJPUTROUTCONST", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_611__CLASS_OBJPUTROUTCONST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_611__CLASS_OBJPUTROUTCONST.obj_num = OBMAG_OBJECT; cdat->dobj_611__CLASS_OBJPUTROUTCONST.obj_hash = 123818584; cdat->dobj_611__CLASS_OBJPUTROUTCONST.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_611__CLASS_OBJPUTROUTCONST)); /*inistring dstr_612__CLASS_OBJPUTROUT*/ /*_.VALSTR___V727*/ curfptr[726] = (void*)&cdat->dstr_612__CLASS_OBJPUTROUT; cdat->dstr_612__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_612__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONST", sizeof(cdat->dstr_612__CLASS_OBJPUTROUT.val)-1); /*inimult dtup_613__CLASS_OBJPUTROUTCONST*/ /*_.VALTUP___V728*/ curfptr[727] = (void*)&cdat->dtup_613__CLASS_OBJPUTROUTCONST; cdat->dtup_613__CLASS_OBJPUTROUTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_613__CLASS_OBJPUTROUTCONST.nbval = 3; /*inimult dtup_614__CLASS_OBJPUTROUTCONST*/ /*_.VALTUP___V735*/ curfptr[734] = (void*)&cdat->dtup_614__CLASS_OBJPUTROUTCONST; cdat->dtup_614__CLASS_OBJPUTROUTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_614__CLASS_OBJPUTROUTCONST.nbval = 4; /*iniobj dsym_615__OPRCONST_ROUT*/ if (!/*_.VALDATA___V736*/ curfptr[735]) /*_.VALDATA___V736*/ curfptr[735] = (void*)&cdat->dsym_615__OPRCONST_ROUT; basilys_assertmsg("iniobj checkdiscr dsym_615__OPRCONST_ROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_615__OPRCONST_ROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_615__OPRCONST_ROUT.obj_hash = 511449421; cdat->dsym_615__OPRCONST_ROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_615__OPRCONST_ROUT)); /*inistring dstr_616__OPRCONST_ROUT*/ /*_.VALSTR___V737*/ curfptr[736] = (void*)&cdat->dstr_616__OPRCONST_ROUT; cdat->dstr_616__OPRCONST_ROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_616__OPRCONST_ROUT.val, "OPRCONST_ROUT", sizeof(cdat->dstr_616__OPRCONST_ROUT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:394:/ iniobj"); /*iniobj dobj_617__OPRCONST_ROUT*/ if (!/*_.VALDATA___V729*/ curfptr[728]) /*_.VALDATA___V729*/ curfptr[728] = (void*)&cdat->dobj_617__OPRCONST_ROUT; basilys_assertmsg("iniobj checkdiscr dobj_617__OPRCONST_ROUT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_617__OPRCONST_ROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_617__OPRCONST_ROUT.obj_num = 1; cdat->dobj_617__OPRCONST_ROUT.obj_hash = 862241138; cdat->dobj_617__OPRCONST_ROUT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_617__OPRCONST_ROUT)); /*inistring dstr_618__OPRCONST_ROUT*/ /*_.VALSTR___V730*/ curfptr[729] = (void*)&cdat->dstr_618__OPRCONST_ROUT; cdat->dstr_618__OPRCONST_ROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_618__OPRCONST_ROUT.val, "OPRCONST_ROUT", sizeof(cdat->dstr_618__OPRCONST_ROUT.val)-1); /*iniobj dsym_619__OPRCONST_OFF*/ if (!/*_.VALDATA___V738*/ curfptr[737]) /*_.VALDATA___V738*/ curfptr[737] = (void*)&cdat->dsym_619__OPRCONST_OFF; basilys_assertmsg("iniobj checkdiscr dsym_619__OPRCONST_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_619__OPRCONST_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_619__OPRCONST_OFF.obj_hash = 732701010; cdat->dsym_619__OPRCONST_OFF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_619__OPRCONST_OFF)); /*inistring dstr_620__OPRCONST_OFF*/ /*_.VALSTR___V739*/ curfptr[738] = (void*)&cdat->dstr_620__OPRCONST_OFF; cdat->dstr_620__OPRCONST_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_620__OPRCONST_OFF.val, "OPRCONST_OFF", sizeof(cdat->dstr_620__OPRCONST_OFF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:394:/ iniobj"); /*iniobj dobj_621__OPRCONST_OFF*/ if (!/*_.VALDATA___V731*/ curfptr[730]) /*_.VALDATA___V731*/ curfptr[730] = (void*)&cdat->dobj_621__OPRCONST_OFF; basilys_assertmsg("iniobj checkdiscr dobj_621__OPRCONST_OFF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_621__OPRCONST_OFF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_621__OPRCONST_OFF.obj_num = 2; cdat->dobj_621__OPRCONST_OFF.obj_hash = 837309192; cdat->dobj_621__OPRCONST_OFF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_621__OPRCONST_OFF)); /*inistring dstr_622__OPRCONST_OFF*/ /*_.VALSTR___V732*/ curfptr[731] = (void*)&cdat->dstr_622__OPRCONST_OFF; cdat->dstr_622__OPRCONST_OFF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_622__OPRCONST_OFF.val, "OPRCONST_OFF", sizeof(cdat->dstr_622__OPRCONST_OFF.val)-1); /*iniobj dsym_623__OPRCONST_CVAL*/ if (!/*_.VALDATA___V740*/ curfptr[739]) /*_.VALDATA___V740*/ curfptr[739] = (void*)&cdat->dsym_623__OPRCONST_CVAL; basilys_assertmsg("iniobj checkdiscr dsym_623__OPRCONST_CVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_623__OPRCONST_CVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_623__OPRCONST_CVAL.obj_hash = 509800729; cdat->dsym_623__OPRCONST_CVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_623__OPRCONST_CVAL)); /*inistring dstr_624__OPRCONST_CVAL*/ /*_.VALSTR___V741*/ curfptr[740] = (void*)&cdat->dstr_624__OPRCONST_CVAL; cdat->dstr_624__OPRCONST_CVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_624__OPRCONST_CVAL.val, "OPRCONST_CVAL", sizeof(cdat->dstr_624__OPRCONST_CVAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:394:/ iniobj"); /*iniobj dobj_625__OPRCONST_CVAL*/ if (!/*_.VALDATA___V733*/ curfptr[732]) /*_.VALDATA___V733*/ curfptr[732] = (void*)&cdat->dobj_625__OPRCONST_CVAL; basilys_assertmsg("iniobj checkdiscr dobj_625__OPRCONST_CVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_625__OPRCONST_CVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_625__OPRCONST_CVAL.obj_num = 3; cdat->dobj_625__OPRCONST_CVAL.obj_hash = 594847445; cdat->dobj_625__OPRCONST_CVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_625__OPRCONST_CVAL)); /*inistring dstr_626__OPRCONST_CVAL*/ /*_.VALSTR___V734*/ curfptr[733] = (void*)&cdat->dstr_626__OPRCONST_CVAL; cdat->dstr_626__OPRCONST_CVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_626__OPRCONST_CVAL.val, "OPRCONST_CVAL", sizeof(cdat->dstr_626__OPRCONST_CVAL.val)-1); /*iniobj dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL*/ if (!/*_.VALDATA___V742*/ curfptr[741]) /*_.VALDATA___V742*/ curfptr[741] = (void*)&cdat->dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL; basilys_assertmsg("iniobj checkdiscr dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 698971949; cdat->dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_627__CLASS_OBJPUTROUTCONSTNOTNULL)); /*inistring dstr_628__CLASS_OBJPUTROUT*/ /*_.VALSTR___V743*/ curfptr[742] = (void*)&cdat->dstr_628__CLASS_OBJPUTROUT; cdat->dstr_628__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_628__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONSTNOTNULL", sizeof(cdat->dstr_628__CLASS_OBJPUTROUT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:402:/ iniobj"); /*iniobj dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL*/ if (!/*_.VALDATA___V744*/ curfptr[743]) /*_.VALDATA___V744*/ curfptr[743] = (void*)&cdat->dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL; basilys_assertmsg("iniobj checkdiscr dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL.obj_num = OBMAG_OBJECT; cdat->dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 21443542; cdat->dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_629__CLASS_OBJPUTROUTCONSTNOTNULL)); /*inistring dstr_630__CLASS_OBJPUTROUT*/ /*_.VALSTR___V745*/ curfptr[744] = (void*)&cdat->dstr_630__CLASS_OBJPUTROUT; cdat->dstr_630__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_630__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONSTNOTNULL", sizeof(cdat->dstr_630__CLASS_OBJPUTROUT.val)-1); /*inimult dtup_631__CLASS_OBJPUTROUTCONSTNOTNULL*/ /*_.VALTUP___V746*/ curfptr[745] = (void*)&cdat->dtup_631__CLASS_OBJPUTROUTCONSTNOTNULL; cdat->dtup_631__CLASS_OBJPUTROUTCONSTNOTNULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_631__CLASS_OBJPUTROUTCONSTNOTNULL.nbval = 4; /*inimult dtup_632__CLASS_OBJPUTROUTCONSTNOTNULL*/ /*_.VALTUP___V747*/ curfptr[746] = (void*)&cdat->dtup_632__CLASS_OBJPUTROUTCONSTNOTNULL; cdat->dtup_632__CLASS_OBJPUTROUTCONSTNOTNULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_632__CLASS_OBJPUTROUTCONSTNOTNULL.nbval = 4; /*iniobj dsym_633__CLASS_OBJTOUCH*/ if (!/*_.VALDATA___V748*/ curfptr[747]) /*_.VALDATA___V748*/ curfptr[747] = (void*)&cdat->dsym_633__CLASS_OBJTOUCH; basilys_assertmsg("iniobj checkdiscr dsym_633__CLASS_OBJTOUCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_633__CLASS_OBJTOUCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_633__CLASS_OBJTOUCH.obj_hash = 643155770; cdat->dsym_633__CLASS_OBJTOUCH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_633__CLASS_OBJTOUCH)); /*inistring dstr_634__CLASS_OBJTOUCH*/ /*_.VALSTR___V749*/ curfptr[748] = (void*)&cdat->dstr_634__CLASS_OBJTOUCH; cdat->dstr_634__CLASS_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_634__CLASS_OBJTOUCH.val, "CLASS_OBJTOUCH", sizeof(cdat->dstr_634__CLASS_OBJTOUCH.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:408:/ iniobj"); /*iniobj dobj_635__CLASS_OBJTOUCH*/ if (!/*_.VALDATA___V750*/ curfptr[749]) /*_.VALDATA___V750*/ curfptr[749] = (void*)&cdat->dobj_635__CLASS_OBJTOUCH; basilys_assertmsg("iniobj checkdiscr dobj_635__CLASS_OBJTOUCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_635__CLASS_OBJTOUCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_635__CLASS_OBJTOUCH.obj_num = OBMAG_OBJECT; cdat->dobj_635__CLASS_OBJTOUCH.obj_hash = 437037311; cdat->dobj_635__CLASS_OBJTOUCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_635__CLASS_OBJTOUCH)); /*inistring dstr_636__CLASS_OBJTOUCH*/ /*_.VALSTR___V751*/ curfptr[750] = (void*)&cdat->dstr_636__CLASS_OBJTOUCH; cdat->dstr_636__CLASS_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_636__CLASS_OBJTOUCH.val, "CLASS_OBJTOUCH", sizeof(cdat->dstr_636__CLASS_OBJTOUCH.val)-1); /*inimult dtup_637__CLASS_OBJTOUCH*/ /*_.VALTUP___V752*/ curfptr[751] = (void*)&cdat->dtup_637__CLASS_OBJTOUCH; cdat->dtup_637__CLASS_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_637__CLASS_OBJTOUCH.nbval = 3; /*inimult dtup_638__CLASS_OBJTOUCH*/ /*_.VALTUP___V757*/ curfptr[756] = (void*)&cdat->dtup_638__CLASS_OBJTOUCH; cdat->dtup_638__CLASS_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_638__CLASS_OBJTOUCH.nbval = 3; /*iniobj dsym_639__OTOUCH_VAL*/ if (!/*_.VALDATA___V758*/ curfptr[757]) /*_.VALDATA___V758*/ curfptr[757] = (void*)&cdat->dsym_639__OTOUCH_VAL; basilys_assertmsg("iniobj checkdiscr dsym_639__OTOUCH_VAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_639__OTOUCH_VAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_639__OTOUCH_VAL.obj_hash = 756535232; cdat->dsym_639__OTOUCH_VAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_639__OTOUCH_VAL)); /*inistring dstr_640__OTOUCH_VAL*/ /*_.VALSTR___V759*/ curfptr[758] = (void*)&cdat->dstr_640__OTOUCH_VAL; cdat->dstr_640__OTOUCH_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_640__OTOUCH_VAL.val, "OTOUCH_VAL", sizeof(cdat->dstr_640__OTOUCH_VAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:408:/ iniobj"); /*iniobj dobj_641__OTOUCH_VAL*/ if (!/*_.VALDATA___V753*/ curfptr[752]) /*_.VALDATA___V753*/ curfptr[752] = (void*)&cdat->dobj_641__OTOUCH_VAL; basilys_assertmsg("iniobj checkdiscr dobj_641__OTOUCH_VAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_641__OTOUCH_VAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_641__OTOUCH_VAL.obj_num = 1; cdat->dobj_641__OTOUCH_VAL.obj_hash = 350784628; cdat->dobj_641__OTOUCH_VAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_641__OTOUCH_VAL)); /*inistring dstr_642__OTOUCH_VAL*/ /*_.VALSTR___V754*/ curfptr[753] = (void*)&cdat->dstr_642__OTOUCH_VAL; cdat->dstr_642__OTOUCH_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_642__OTOUCH_VAL.val, "OTOUCH_VAL", sizeof(cdat->dstr_642__OTOUCH_VAL.val)-1); /*iniobj dsym_643__OTOUCH_COMMENT*/ if (!/*_.VALDATA___V760*/ curfptr[759]) /*_.VALDATA___V760*/ curfptr[759] = (void*)&cdat->dsym_643__OTOUCH_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_643__OTOUCH_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_643__OTOUCH_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_643__OTOUCH_COMMENT.obj_hash = 649717129; cdat->dsym_643__OTOUCH_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_643__OTOUCH_COMMENT)); /*inistring dstr_644__OTOUCH_COMMENT*/ /*_.VALSTR___V761*/ curfptr[760] = (void*)&cdat->dstr_644__OTOUCH_COMMENT; cdat->dstr_644__OTOUCH_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_644__OTOUCH_COMMENT.val, "OTOUCH_COMMENT", sizeof(cdat->dstr_644__OTOUCH_COMMENT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:408:/ iniobj"); /*iniobj dobj_645__OTOUCH_COMMENT*/ if (!/*_.VALDATA___V755*/ curfptr[754]) /*_.VALDATA___V755*/ curfptr[754] = (void*)&cdat->dobj_645__OTOUCH_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_645__OTOUCH_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_645__OTOUCH_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_645__OTOUCH_COMMENT.obj_num = 2; cdat->dobj_645__OTOUCH_COMMENT.obj_hash = 849548947; cdat->dobj_645__OTOUCH_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_645__OTOUCH_COMMENT)); /*inistring dstr_646__OTOUCH_COMMENT*/ /*_.VALSTR___V756*/ curfptr[755] = (void*)&cdat->dstr_646__OTOUCH_COMMENT; cdat->dstr_646__OTOUCH_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_646__OTOUCH_COMMENT.val, "OTOUCH_COMMENT", sizeof(cdat->dstr_646__OTOUCH_COMMENT.val)-1); /*iniobj dsym_647__CLASS_OBJSETPREDEF*/ if (!/*_.VALDATA___V762*/ curfptr[761]) /*_.VALDATA___V762*/ curfptr[761] = (void*)&cdat->dsym_647__CLASS_OBJSETPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_647__CLASS_OBJSETPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_647__CLASS_OBJSETPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_647__CLASS_OBJSETPREDEF.obj_hash = 287625349; cdat->dsym_647__CLASS_OBJSETPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_647__CLASS_OBJSETPREDEF)); /*inistring dstr_648__CLASS_OBJSETPRED*/ /*_.VALSTR___V763*/ curfptr[762] = (void*)&cdat->dstr_648__CLASS_OBJSETPRED; cdat->dstr_648__CLASS_OBJSETPRED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_648__CLASS_OBJSETPRED.val, "CLASS_OBJSETPREDEF", sizeof(cdat->dstr_648__CLASS_OBJSETPRED.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:415:/ iniobj"); /*iniobj dobj_649__CLASS_OBJSETPREDEF*/ if (!/*_.VALDATA___V764*/ curfptr[763]) /*_.VALDATA___V764*/ curfptr[763] = (void*)&cdat->dobj_649__CLASS_OBJSETPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_649__CLASS_OBJSETPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_649__CLASS_OBJSETPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_649__CLASS_OBJSETPREDEF.obj_num = OBMAG_OBJECT; cdat->dobj_649__CLASS_OBJSETPREDEF.obj_hash = 370569099; cdat->dobj_649__CLASS_OBJSETPREDEF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_649__CLASS_OBJSETPREDEF)); /*inistring dstr_650__CLASS_OBJSETPRED*/ /*_.VALSTR___V765*/ curfptr[764] = (void*)&cdat->dstr_650__CLASS_OBJSETPRED; cdat->dstr_650__CLASS_OBJSETPRED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_650__CLASS_OBJSETPRED.val, "CLASS_OBJSETPREDEF", sizeof(cdat->dstr_650__CLASS_OBJSETPRED.val)-1); /*inimult dtup_651__CLASS_OBJSETPREDEF*/ /*_.VALTUP___V766*/ curfptr[765] = (void*)&cdat->dtup_651__CLASS_OBJSETPREDEF; cdat->dtup_651__CLASS_OBJSETPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_651__CLASS_OBJSETPREDEF.nbval = 3; /*inimult dtup_652__CLASS_OBJSETPREDEF*/ /*_.VALTUP___V771*/ curfptr[770] = (void*)&cdat->dtup_652__CLASS_OBJSETPREDEF; cdat->dtup_652__CLASS_OBJSETPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_652__CLASS_OBJSETPREDEF.nbval = 3; /*iniobj dsym_653__OSPR_OBJECT*/ if (!/*_.VALDATA___V772*/ curfptr[771]) /*_.VALDATA___V772*/ curfptr[771] = (void*)&cdat->dsym_653__OSPR_OBJECT; basilys_assertmsg("iniobj checkdiscr dsym_653__OSPR_OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_653__OSPR_OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_653__OSPR_OBJECT.obj_hash = 410793032; cdat->dsym_653__OSPR_OBJECT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_653__OSPR_OBJECT)); /*inistring dstr_654__OSPR_OBJECT*/ /*_.VALSTR___V773*/ curfptr[772] = (void*)&cdat->dstr_654__OSPR_OBJECT; cdat->dstr_654__OSPR_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_654__OSPR_OBJECT.val, "OSPR_OBJECT", sizeof(cdat->dstr_654__OSPR_OBJECT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:415:/ iniobj"); /*iniobj dobj_655__OSPR_OBJECT*/ if (!/*_.VALDATA___V767*/ curfptr[766]) /*_.VALDATA___V767*/ curfptr[766] = (void*)&cdat->dobj_655__OSPR_OBJECT; basilys_assertmsg("iniobj checkdiscr dobj_655__OSPR_OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_655__OSPR_OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_655__OSPR_OBJECT.obj_num = 1; cdat->dobj_655__OSPR_OBJECT.obj_hash = 1013699899; cdat->dobj_655__OSPR_OBJECT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_655__OSPR_OBJECT)); /*inistring dstr_656__OSPR_OBJECT*/ /*_.VALSTR___V768*/ curfptr[767] = (void*)&cdat->dstr_656__OSPR_OBJECT; cdat->dstr_656__OSPR_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_656__OSPR_OBJECT.val, "OSPR_OBJECT", sizeof(cdat->dstr_656__OSPR_OBJECT.val)-1); /*iniobj dsym_657__OSPR_PREDEF*/ if (!/*_.VALDATA___V774*/ curfptr[773]) /*_.VALDATA___V774*/ curfptr[773] = (void*)&cdat->dsym_657__OSPR_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_657__OSPR_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_657__OSPR_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_657__OSPR_PREDEF.obj_hash = 674986323; cdat->dsym_657__OSPR_PREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_657__OSPR_PREDEF)); /*inistring dstr_658__OSPR_PREDEF*/ /*_.VALSTR___V775*/ curfptr[774] = (void*)&cdat->dstr_658__OSPR_PREDEF; cdat->dstr_658__OSPR_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_658__OSPR_PREDEF.val, "OSPR_PREDEF", sizeof(cdat->dstr_658__OSPR_PREDEF.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:415:/ iniobj"); /*iniobj dobj_659__OSPR_PREDEF*/ if (!/*_.VALDATA___V769*/ curfptr[768]) /*_.VALDATA___V769*/ curfptr[768] = (void*)&cdat->dobj_659__OSPR_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_659__OSPR_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_659__OSPR_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_659__OSPR_PREDEF.obj_num = 2; cdat->dobj_659__OSPR_PREDEF.obj_hash = 1065641437; cdat->dobj_659__OSPR_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_659__OSPR_PREDEF)); /*inistring dstr_660__OSPR_PREDEF*/ /*_.VALSTR___V770*/ curfptr[769] = (void*)&cdat->dstr_660__OSPR_PREDEF; cdat->dstr_660__OSPR_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_660__OSPR_PREDEF.val, "OSPR_PREDEF", sizeof(cdat->dstr_660__OSPR_PREDEF.val)-1); /*iniobj dsym_661__CLASS_ROUTINEOBJ*/ if (!/*_.VALDATA___V776*/ curfptr[775]) /*_.VALDATA___V776*/ curfptr[775] = (void*)&cdat->dsym_661__CLASS_ROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dsym_661__CLASS_ROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_661__CLASS_ROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_661__CLASS_ROUTINEOBJ.obj_hash = 302625151; cdat->dsym_661__CLASS_ROUTINEOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_661__CLASS_ROUTINEOBJ)); /*inistring dstr_662__CLASS_ROUTINEOBJ*/ /*_.VALSTR___V777*/ curfptr[776] = (void*)&cdat->dstr_662__CLASS_ROUTINEOBJ; cdat->dstr_662__CLASS_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_662__CLASS_ROUTINEOBJ.val, "CLASS_ROUTINEOBJ", sizeof(cdat->dstr_662__CLASS_ROUTINEOBJ.val)-1); /*iniobj dsym_663__CLASS_NAMED*/ if (!/*_.VALDATA___V778*/ curfptr[777]) /*_.VALDATA___V778*/ curfptr[777] = (void*)&cdat->dsym_663__CLASS_NAMED; basilys_assertmsg("iniobj checkdiscr dsym_663__CLASS_NAMED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_663__CLASS_NAMED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_663__CLASS_NAMED.obj_hash = 60407004; cdat->dsym_663__CLASS_NAMED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_663__CLASS_NAMED)); /*inistring dstr_664__CLASS_NAMED*/ /*_.VALSTR___V779*/ curfptr[778] = (void*)&cdat->dstr_664__CLASS_NAMED; cdat->dstr_664__CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_664__CLASS_NAMED.val, "CLASS_NAMED", sizeof(cdat->dstr_664__CLASS_NAMED.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_665__CLASS_ROUTINEOBJ*/ if (!/*_.VALDATA___V780*/ curfptr[779]) /*_.VALDATA___V780*/ curfptr[779] = (void*)&cdat->dobj_665__CLASS_ROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dobj_665__CLASS_ROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_665__CLASS_ROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_665__CLASS_ROUTINEOBJ.obj_num = OBMAG_OBJECT; cdat->dobj_665__CLASS_ROUTINEOBJ.obj_hash = 1023971237; cdat->dobj_665__CLASS_ROUTINEOBJ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_665__CLASS_ROUTINEOBJ)); /*inistring dstr_666__CLASS_ROUTINEOBJ*/ /*_.VALSTR___V781*/ curfptr[780] = (void*)&cdat->dstr_666__CLASS_ROUTINEOBJ; cdat->dstr_666__CLASS_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_666__CLASS_ROUTINEOBJ.val, "CLASS_ROUTINEOBJ", sizeof(cdat->dstr_666__CLASS_ROUTINEOBJ.val)-1); /*inimult dtup_667__CLASS_ROUTINEOBJ*/ /*_.VALTUP___V782*/ curfptr[781] = (void*)&cdat->dtup_667__CLASS_ROUTINEOBJ; cdat->dtup_667__CLASS_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_667__CLASS_ROUTINEOBJ.nbval = 3; /*inimult dtup_668__CLASS_ROUTINEOBJ*/ /*_.VALTUP___V797*/ curfptr[796] = (void*)&cdat->dtup_668__CLASS_ROUTINEOBJ; cdat->dtup_668__CLASS_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_668__CLASS_ROUTINEOBJ.nbval = 9; /*iniobj dsym_669__OBROUT_PROC*/ if (!/*_.VALDATA___V798*/ curfptr[797]) /*_.VALDATA___V798*/ curfptr[797] = (void*)&cdat->dsym_669__OBROUT_PROC; basilys_assertmsg("iniobj checkdiscr dsym_669__OBROUT_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_669__OBROUT_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_669__OBROUT_PROC.obj_hash = 407621219; cdat->dsym_669__OBROUT_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_669__OBROUT_PROC)); /*inistring dstr_670__OBROUT_PROC*/ /*_.VALSTR___V799*/ curfptr[798] = (void*)&cdat->dstr_670__OBROUT_PROC; cdat->dstr_670__OBROUT_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_670__OBROUT_PROC.val, "OBROUT_PROC", sizeof(cdat->dstr_670__OBROUT_PROC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_671__OBROUT_PROC*/ if (!/*_.VALDATA___V783*/ curfptr[782]) /*_.VALDATA___V783*/ curfptr[782] = (void*)&cdat->dobj_671__OBROUT_PROC; basilys_assertmsg("iniobj checkdiscr dobj_671__OBROUT_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_671__OBROUT_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_671__OBROUT_PROC.obj_num = 2; cdat->dobj_671__OBROUT_PROC.obj_hash = 250309069; cdat->dobj_671__OBROUT_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_671__OBROUT_PROC)); /*inistring dstr_672__OBROUT_PROC*/ /*_.VALSTR___V784*/ curfptr[783] = (void*)&cdat->dstr_672__OBROUT_PROC; cdat->dstr_672__OBROUT_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_672__OBROUT_PROC.val, "OBROUT_PROC", sizeof(cdat->dstr_672__OBROUT_PROC.val)-1); /*iniobj dsym_673__OBROUT_BODY*/ if (!/*_.VALDATA___V800*/ curfptr[799]) /*_.VALDATA___V800*/ curfptr[799] = (void*)&cdat->dsym_673__OBROUT_BODY; basilys_assertmsg("iniobj checkdiscr dsym_673__OBROUT_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_673__OBROUT_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_673__OBROUT_BODY.obj_hash = 271133814; cdat->dsym_673__OBROUT_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_673__OBROUT_BODY)); /*inistring dstr_674__OBROUT_BODY*/ /*_.VALSTR___V801*/ curfptr[800] = (void*)&cdat->dstr_674__OBROUT_BODY; cdat->dstr_674__OBROUT_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_674__OBROUT_BODY.val, "OBROUT_BODY", sizeof(cdat->dstr_674__OBROUT_BODY.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_675__OBROUT_BODY*/ if (!/*_.VALDATA___V785*/ curfptr[784]) /*_.VALDATA___V785*/ curfptr[784] = (void*)&cdat->dobj_675__OBROUT_BODY; basilys_assertmsg("iniobj checkdiscr dobj_675__OBROUT_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_675__OBROUT_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_675__OBROUT_BODY.obj_num = 3; cdat->dobj_675__OBROUT_BODY.obj_hash = 855028125; cdat->dobj_675__OBROUT_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_675__OBROUT_BODY)); /*inistring dstr_676__OBROUT_BODY*/ /*_.VALSTR___V786*/ curfptr[785] = (void*)&cdat->dstr_676__OBROUT_BODY; cdat->dstr_676__OBROUT_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_676__OBROUT_BODY.val, "OBROUT_BODY", sizeof(cdat->dstr_676__OBROUT_BODY.val)-1); /*iniobj dsym_677__OBROUT_NBVAL*/ if (!/*_.VALDATA___V802*/ curfptr[801]) /*_.VALDATA___V802*/ curfptr[801] = (void*)&cdat->dsym_677__OBROUT_NBVAL; basilys_assertmsg("iniobj checkdiscr dsym_677__OBROUT_NBVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_677__OBROUT_NBVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_677__OBROUT_NBVAL.obj_hash = 275635470; cdat->dsym_677__OBROUT_NBVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_677__OBROUT_NBVAL)); /*inistring dstr_678__OBROUT_NBVAL*/ /*_.VALSTR___V803*/ curfptr[802] = (void*)&cdat->dstr_678__OBROUT_NBVAL; cdat->dstr_678__OBROUT_NBVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_678__OBROUT_NBVAL.val, "OBROUT_NBVAL", sizeof(cdat->dstr_678__OBROUT_NBVAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_679__OBROUT_NBVAL*/ if (!/*_.VALDATA___V787*/ curfptr[786]) /*_.VALDATA___V787*/ curfptr[786] = (void*)&cdat->dobj_679__OBROUT_NBVAL; basilys_assertmsg("iniobj checkdiscr dobj_679__OBROUT_NBVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_679__OBROUT_NBVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_679__OBROUT_NBVAL.obj_num = 4; cdat->dobj_679__OBROUT_NBVAL.obj_hash = 299117278; cdat->dobj_679__OBROUT_NBVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_679__OBROUT_NBVAL)); /*inistring dstr_680__OBROUT_NBVAL*/ /*_.VALSTR___V788*/ curfptr[787] = (void*)&cdat->dstr_680__OBROUT_NBVAL; cdat->dstr_680__OBROUT_NBVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_680__OBROUT_NBVAL.val, "OBROUT_NBVAL", sizeof(cdat->dstr_680__OBROUT_NBVAL.val)-1); /*iniobj dsym_681__OBROUT_NBLONG*/ if (!/*_.VALDATA___V804*/ curfptr[803]) /*_.VALDATA___V804*/ curfptr[803] = (void*)&cdat->dsym_681__OBROUT_NBLONG; basilys_assertmsg("iniobj checkdiscr dsym_681__OBROUT_NBLONG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_681__OBROUT_NBLONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_681__OBROUT_NBLONG.obj_hash = 873816186; cdat->dsym_681__OBROUT_NBLONG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_681__OBROUT_NBLONG)); /*inistring dstr_682__OBROUT_NBLONG*/ /*_.VALSTR___V805*/ curfptr[804] = (void*)&cdat->dstr_682__OBROUT_NBLONG; cdat->dstr_682__OBROUT_NBLONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_682__OBROUT_NBLONG.val, "OBROUT_NBLONG", sizeof(cdat->dstr_682__OBROUT_NBLONG.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_683__OBROUT_NBLONG*/ if (!/*_.VALDATA___V789*/ curfptr[788]) /*_.VALDATA___V789*/ curfptr[788] = (void*)&cdat->dobj_683__OBROUT_NBLONG; basilys_assertmsg("iniobj checkdiscr dobj_683__OBROUT_NBLONG", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_683__OBROUT_NBLONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_683__OBROUT_NBLONG.obj_num = 5; cdat->dobj_683__OBROUT_NBLONG.obj_hash = 81688321; cdat->dobj_683__OBROUT_NBLONG.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_683__OBROUT_NBLONG)); /*inistring dstr_684__OBROUT_NBLONG*/ /*_.VALSTR___V790*/ curfptr[789] = (void*)&cdat->dstr_684__OBROUT_NBLONG; cdat->dstr_684__OBROUT_NBLONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_684__OBROUT_NBLONG.val, "OBROUT_NBLONG", sizeof(cdat->dstr_684__OBROUT_NBLONG.val)-1); /*iniobj dsym_685__OBROUT_OTHERS*/ if (!/*_.VALDATA___V806*/ curfptr[805]) /*_.VALDATA___V806*/ curfptr[805] = (void*)&cdat->dsym_685__OBROUT_OTHERS; basilys_assertmsg("iniobj checkdiscr dsym_685__OBROUT_OTHERS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_685__OBROUT_OTHERS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_685__OBROUT_OTHERS.obj_hash = 83520399; cdat->dsym_685__OBROUT_OTHERS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_685__OBROUT_OTHERS)); /*inistring dstr_686__OBROUT_OTHERS*/ /*_.VALSTR___V807*/ curfptr[806] = (void*)&cdat->dstr_686__OBROUT_OTHERS; cdat->dstr_686__OBROUT_OTHERS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_686__OBROUT_OTHERS.val, "OBROUT_OTHERS", sizeof(cdat->dstr_686__OBROUT_OTHERS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_687__OBROUT_OTHERS*/ if (!/*_.VALDATA___V791*/ curfptr[790]) /*_.VALDATA___V791*/ curfptr[790] = (void*)&cdat->dobj_687__OBROUT_OTHERS; basilys_assertmsg("iniobj checkdiscr dobj_687__OBROUT_OTHERS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_687__OBROUT_OTHERS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_687__OBROUT_OTHERS.obj_num = 6; cdat->dobj_687__OBROUT_OTHERS.obj_hash = 557610666; cdat->dobj_687__OBROUT_OTHERS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_687__OBROUT_OTHERS)); /*inistring dstr_688__OBROUT_OTHERS*/ /*_.VALSTR___V792*/ curfptr[791] = (void*)&cdat->dstr_688__OBROUT_OTHERS; cdat->dstr_688__OBROUT_OTHERS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_688__OBROUT_OTHERS.val, "OBROUT_OTHERS", sizeof(cdat->dstr_688__OBROUT_OTHERS.val)-1); /*iniobj dsym_689__OBROUT_RETVAL*/ if (!/*_.VALDATA___V808*/ curfptr[807]) /*_.VALDATA___V808*/ curfptr[807] = (void*)&cdat->dsym_689__OBROUT_RETVAL; basilys_assertmsg("iniobj checkdiscr dsym_689__OBROUT_RETVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_689__OBROUT_RETVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_689__OBROUT_RETVAL.obj_hash = 354531664; cdat->dsym_689__OBROUT_RETVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_689__OBROUT_RETVAL)); /*inistring dstr_690__OBROUT_RETVAL*/ /*_.VALSTR___V809*/ curfptr[808] = (void*)&cdat->dstr_690__OBROUT_RETVAL; cdat->dstr_690__OBROUT_RETVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_690__OBROUT_RETVAL.val, "OBROUT_RETVAL", sizeof(cdat->dstr_690__OBROUT_RETVAL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_691__OBROUT_RETVAL*/ if (!/*_.VALDATA___V793*/ curfptr[792]) /*_.VALDATA___V793*/ curfptr[792] = (void*)&cdat->dobj_691__OBROUT_RETVAL; basilys_assertmsg("iniobj checkdiscr dobj_691__OBROUT_RETVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_691__OBROUT_RETVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_691__OBROUT_RETVAL.obj_num = 7; cdat->dobj_691__OBROUT_RETVAL.obj_hash = 494510826; cdat->dobj_691__OBROUT_RETVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_691__OBROUT_RETVAL)); /*inistring dstr_692__OBROUT_RETVAL*/ /*_.VALSTR___V794*/ curfptr[793] = (void*)&cdat->dstr_692__OBROUT_RETVAL; cdat->dstr_692__OBROUT_RETVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_692__OBROUT_RETVAL.val, "OBROUT_RETVAL", sizeof(cdat->dstr_692__OBROUT_RETVAL.val)-1); /*iniobj dsym_693__OBROUT_CNTCITER*/ if (!/*_.VALDATA___V810*/ curfptr[809]) /*_.VALDATA___V810*/ curfptr[809] = (void*)&cdat->dsym_693__OBROUT_CNTCITER; basilys_assertmsg("iniobj checkdiscr dsym_693__OBROUT_CNTCITER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_693__OBROUT_CNTCITER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_693__OBROUT_CNTCITER.obj_hash = 288722674; cdat->dsym_693__OBROUT_CNTCITER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_693__OBROUT_CNTCITER)); /*inistring dstr_694__OBROUT_CNTCITER*/ /*_.VALSTR___V811*/ curfptr[810] = (void*)&cdat->dstr_694__OBROUT_CNTCITER; cdat->dstr_694__OBROUT_CNTCITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_694__OBROUT_CNTCITER.val, "OBROUT_CNTCITER", sizeof(cdat->dstr_694__OBROUT_CNTCITER.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:423:/ iniobj"); /*iniobj dobj_695__OBROUT_CNTCITER*/ if (!/*_.VALDATA___V795*/ curfptr[794]) /*_.VALDATA___V795*/ curfptr[794] = (void*)&cdat->dobj_695__OBROUT_CNTCITER; basilys_assertmsg("iniobj checkdiscr dobj_695__OBROUT_CNTCITER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_695__OBROUT_CNTCITER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_695__OBROUT_CNTCITER.obj_num = 8; cdat->dobj_695__OBROUT_CNTCITER.obj_hash = 62721160; cdat->dobj_695__OBROUT_CNTCITER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_695__OBROUT_CNTCITER)); /*inistring dstr_696__OBROUT_CNTCITER*/ /*_.VALSTR___V796*/ curfptr[795] = (void*)&cdat->dstr_696__OBROUT_CNTCITER; cdat->dstr_696__OBROUT_CNTCITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_696__OBROUT_CNTCITER.val, "OBROUT_CNTCITER", sizeof(cdat->dstr_696__OBROUT_CNTCITER.val)-1); /*iniobj dsym_697__CLASS_PROCROUTINEOBJ*/ if (!/*_.VALDATA___V812*/ curfptr[811]) /*_.VALDATA___V812*/ curfptr[811] = (void*)&cdat->dsym_697__CLASS_PROCROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dsym_697__CLASS_PROCROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_697__CLASS_PROCROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_697__CLASS_PROCROUTINEOBJ.obj_hash = 171301749; cdat->dsym_697__CLASS_PROCROUTINEOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_697__CLASS_PROCROUTINEOBJ)); /*inistring dstr_698__CLASS_PROCROUTIN*/ /*_.VALSTR___V813*/ curfptr[812] = (void*)&cdat->dstr_698__CLASS_PROCROUTIN; cdat->dstr_698__CLASS_PROCROUTIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_698__CLASS_PROCROUTIN.val, "CLASS_PROCROUTINEOBJ", sizeof(cdat->dstr_698__CLASS_PROCROUTIN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:438:/ iniobj"); /*iniobj dobj_699__CLASS_PROCROUTINEOBJ*/ if (!/*_.VALDATA___V814*/ curfptr[813]) /*_.VALDATA___V814*/ curfptr[813] = (void*)&cdat->dobj_699__CLASS_PROCROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dobj_699__CLASS_PROCROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_699__CLASS_PROCROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_699__CLASS_PROCROUTINEOBJ.obj_num = OBMAG_OBJECT; cdat->dobj_699__CLASS_PROCROUTINEOBJ.obj_hash = 613412840; cdat->dobj_699__CLASS_PROCROUTINEOBJ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_699__CLASS_PROCROUTINEOBJ)); /*inistring dstr_700__CLASS_PROCROUTIN*/ /*_.VALSTR___V815*/ curfptr[814] = (void*)&cdat->dstr_700__CLASS_PROCROUTIN; cdat->dstr_700__CLASS_PROCROUTIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_700__CLASS_PROCROUTIN.val, "CLASS_PROCROUTINEOBJ", sizeof(cdat->dstr_700__CLASS_PROCROUTIN.val)-1); /*inimult dtup_701__CLASS_PROCROUTINEOBJ*/ /*_.VALTUP___V816*/ curfptr[815] = (void*)&cdat->dtup_701__CLASS_PROCROUTINEOBJ; cdat->dtup_701__CLASS_PROCROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_701__CLASS_PROCROUTINEOBJ.nbval = 4; /*inimult dtup_702__CLASS_PROCROUTINEOBJ*/ /*_.VALTUP___V823*/ curfptr[822] = (void*)&cdat->dtup_702__CLASS_PROCROUTINEOBJ; cdat->dtup_702__CLASS_PROCROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_702__CLASS_PROCROUTINEOBJ.nbval = 12; /*iniobj dsym_703__OPROUT_GETARGS*/ if (!/*_.VALDATA___V824*/ curfptr[823]) /*_.VALDATA___V824*/ curfptr[823] = (void*)&cdat->dsym_703__OPROUT_GETARGS; basilys_assertmsg("iniobj checkdiscr dsym_703__OPROUT_GETARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_703__OPROUT_GETARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_703__OPROUT_GETARGS.obj_hash = 508312057; cdat->dsym_703__OPROUT_GETARGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_703__OPROUT_GETARGS)); /*inistring dstr_704__OPROUT_GETARGS*/ /*_.VALSTR___V825*/ curfptr[824] = (void*)&cdat->dstr_704__OPROUT_GETARGS; cdat->dstr_704__OPROUT_GETARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_704__OPROUT_GETARGS.val, "OPROUT_GETARGS", sizeof(cdat->dstr_704__OPROUT_GETARGS.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:438:/ iniobj"); /*iniobj dobj_705__OPROUT_GETARGS*/ if (!/*_.VALDATA___V817*/ curfptr[816]) /*_.VALDATA___V817*/ curfptr[816] = (void*)&cdat->dobj_705__OPROUT_GETARGS; basilys_assertmsg("iniobj checkdiscr dobj_705__OPROUT_GETARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_705__OPROUT_GETARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_705__OPROUT_GETARGS.obj_num = 9; cdat->dobj_705__OPROUT_GETARGS.obj_hash = 633854709; cdat->dobj_705__OPROUT_GETARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_705__OPROUT_GETARGS)); /*inistring dstr_706__OPROUT_GETARGS*/ /*_.VALSTR___V818*/ curfptr[817] = (void*)&cdat->dstr_706__OPROUT_GETARGS; cdat->dstr_706__OPROUT_GETARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_706__OPROUT_GETARGS.val, "OPROUT_GETARGS", sizeof(cdat->dstr_706__OPROUT_GETARGS.val)-1); /*iniobj dsym_707__OPROUT_LOC*/ if (!/*_.VALDATA___V826*/ curfptr[825]) /*_.VALDATA___V826*/ curfptr[825] = (void*)&cdat->dsym_707__OPROUT_LOC; basilys_assertmsg("iniobj checkdiscr dsym_707__OPROUT_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_707__OPROUT_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_707__OPROUT_LOC.obj_hash = 1041994650; cdat->dsym_707__OPROUT_LOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_707__OPROUT_LOC)); /*inistring dstr_708__OPROUT_LOC*/ /*_.VALSTR___V827*/ curfptr[826] = (void*)&cdat->dstr_708__OPROUT_LOC; cdat->dstr_708__OPROUT_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_708__OPROUT_LOC.val, "OPROUT_LOC", sizeof(cdat->dstr_708__OPROUT_LOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:438:/ iniobj"); /*iniobj dobj_709__OPROUT_LOC*/ if (!/*_.VALDATA___V819*/ curfptr[818]) /*_.VALDATA___V819*/ curfptr[818] = (void*)&cdat->dobj_709__OPROUT_LOC; basilys_assertmsg("iniobj checkdiscr dobj_709__OPROUT_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_709__OPROUT_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_709__OPROUT_LOC.obj_num = 10; cdat->dobj_709__OPROUT_LOC.obj_hash = 428682237; cdat->dobj_709__OPROUT_LOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_709__OPROUT_LOC)); /*inistring dstr_710__OPROUT_LOC*/ /*_.VALSTR___V820*/ curfptr[819] = (void*)&cdat->dstr_710__OPROUT_LOC; cdat->dstr_710__OPROUT_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_710__OPROUT_LOC.val, "OPROUT_LOC", sizeof(cdat->dstr_710__OPROUT_LOC.val)-1); /*iniobj dsym_711__OPROUT_FUNAM*/ if (!/*_.VALDATA___V828*/ curfptr[827]) /*_.VALDATA___V828*/ curfptr[827] = (void*)&cdat->dsym_711__OPROUT_FUNAM; basilys_assertmsg("iniobj checkdiscr dsym_711__OPROUT_FUNAM", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_711__OPROUT_FUNAM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_711__OPROUT_FUNAM.obj_hash = 829875206; cdat->dsym_711__OPROUT_FUNAM.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_711__OPROUT_FUNAM)); /*inistring dstr_712__OPROUT_FUNAM*/ /*_.VALSTR___V829*/ curfptr[828] = (void*)&cdat->dstr_712__OPROUT_FUNAM; cdat->dstr_712__OPROUT_FUNAM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_712__OPROUT_FUNAM.val, "OPROUT_FUNAM", sizeof(cdat->dstr_712__OPROUT_FUNAM.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:438:/ iniobj"); /*iniobj dobj_713__OPROUT_FUNAM*/ if (!/*_.VALDATA___V821*/ curfptr[820]) /*_.VALDATA___V821*/ curfptr[820] = (void*)&cdat->dobj_713__OPROUT_FUNAM; basilys_assertmsg("iniobj checkdiscr dobj_713__OPROUT_FUNAM", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_713__OPROUT_FUNAM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_713__OPROUT_FUNAM.obj_num = 11; cdat->dobj_713__OPROUT_FUNAM.obj_hash = 23966521; cdat->dobj_713__OPROUT_FUNAM.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_713__OPROUT_FUNAM)); /*inistring dstr_714__OPROUT_FUNAM*/ /*_.VALSTR___V822*/ curfptr[821] = (void*)&cdat->dstr_714__OPROUT_FUNAM; cdat->dstr_714__OPROUT_FUNAM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_714__OPROUT_FUNAM.val, "OPROUT_FUNAM", sizeof(cdat->dstr_714__OPROUT_FUNAM.val)-1); /*iniobj dsym_715__CLASS_INITIALROUTINEOBJ*/ if (!/*_.VALDATA___V830*/ curfptr[829]) /*_.VALDATA___V830*/ curfptr[829] = (void*)&cdat->dsym_715__CLASS_INITIALROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dsym_715__CLASS_INITIALROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_715__CLASS_INITIALROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_715__CLASS_INITIALROUTINEOBJ.obj_hash = 149718249; cdat->dsym_715__CLASS_INITIALROUTINEOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_715__CLASS_INITIALROUTINEOBJ)); /*inistring dstr_716__CLASS_INITIALROU*/ /*_.VALSTR___V831*/ curfptr[830] = (void*)&cdat->dstr_716__CLASS_INITIALROU; cdat->dstr_716__CLASS_INITIALROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_716__CLASS_INITIALROU.val, "CLASS_INITIALROUTINEOBJ", sizeof(cdat->dstr_716__CLASS_INITIALROU.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:446:/ iniobj"); /*iniobj dobj_717__CLASS_INITIALROUTINEOBJ*/ if (!/*_.VALDATA___V832*/ curfptr[831]) /*_.VALDATA___V832*/ curfptr[831] = (void*)&cdat->dobj_717__CLASS_INITIALROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dobj_717__CLASS_INITIALROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_717__CLASS_INITIALROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_717__CLASS_INITIALROUTINEOBJ.obj_num = OBMAG_OBJECT; cdat->dobj_717__CLASS_INITIALROUTINEOBJ.obj_hash = 409184982; cdat->dobj_717__CLASS_INITIALROUTINEOBJ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_717__CLASS_INITIALROUTINEOBJ)); /*inistring dstr_718__CLASS_INITIALROU*/ /*_.VALSTR___V833*/ curfptr[832] = (void*)&cdat->dstr_718__CLASS_INITIALROU; cdat->dstr_718__CLASS_INITIALROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_718__CLASS_INITIALROU.val, "CLASS_INITIALROUTINEOBJ", sizeof(cdat->dstr_718__CLASS_INITIALROU.val)-1); /*inimult dtup_719__CLASS_INITIALROUTINEOBJ*/ /*_.VALTUP___V834*/ curfptr[833] = (void*)&cdat->dtup_719__CLASS_INITIALROUTINEOBJ; cdat->dtup_719__CLASS_INITIALROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_719__CLASS_INITIALROUTINEOBJ.nbval = 4; /*inimult dtup_720__CLASS_INITIALROUTINEOBJ*/ /*_.VALTUP___V841*/ curfptr[840] = (void*)&cdat->dtup_720__CLASS_INITIALROUTINEOBJ; cdat->dtup_720__CLASS_INITIALROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_720__CLASS_INITIALROUTINEOBJ.nbval = 12; /*iniobj dsym_721__OIROUT_DATA*/ if (!/*_.VALDATA___V842*/ curfptr[841]) /*_.VALDATA___V842*/ curfptr[841] = (void*)&cdat->dsym_721__OIROUT_DATA; basilys_assertmsg("iniobj checkdiscr dsym_721__OIROUT_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_721__OIROUT_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_721__OIROUT_DATA.obj_hash = 518220617; cdat->dsym_721__OIROUT_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_721__OIROUT_DATA)); /*inistring dstr_722__OIROUT_DATA*/ /*_.VALSTR___V843*/ curfptr[842] = (void*)&cdat->dstr_722__OIROUT_DATA; cdat->dstr_722__OIROUT_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_722__OIROUT_DATA.val, "OIROUT_DATA", sizeof(cdat->dstr_722__OIROUT_DATA.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:446:/ iniobj"); /*iniobj dobj_723__OIROUT_DATA*/ if (!/*_.VALDATA___V835*/ curfptr[834]) /*_.VALDATA___V835*/ curfptr[834] = (void*)&cdat->dobj_723__OIROUT_DATA; basilys_assertmsg("iniobj checkdiscr dobj_723__OIROUT_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_723__OIROUT_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_723__OIROUT_DATA.obj_num = 9; cdat->dobj_723__OIROUT_DATA.obj_hash = 1058857517; cdat->dobj_723__OIROUT_DATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_723__OIROUT_DATA)); /*inistring dstr_724__OIROUT_DATA*/ /*_.VALSTR___V836*/ curfptr[835] = (void*)&cdat->dstr_724__OIROUT_DATA; cdat->dstr_724__OIROUT_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_724__OIROUT_DATA.val, "OIROUT_DATA", sizeof(cdat->dstr_724__OIROUT_DATA.val)-1); /*iniobj dsym_725__OIROUT_PROLOG*/ if (!/*_.VALDATA___V844*/ curfptr[843]) /*_.VALDATA___V844*/ curfptr[843] = (void*)&cdat->dsym_725__OIROUT_PROLOG; basilys_assertmsg("iniobj checkdiscr dsym_725__OIROUT_PROLOG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_725__OIROUT_PROLOG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_725__OIROUT_PROLOG.obj_hash = 441114313; cdat->dsym_725__OIROUT_PROLOG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_725__OIROUT_PROLOG)); /*inistring dstr_726__OIROUT_PROLOG*/ /*_.VALSTR___V845*/ curfptr[844] = (void*)&cdat->dstr_726__OIROUT_PROLOG; cdat->dstr_726__OIROUT_PROLOG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_726__OIROUT_PROLOG.val, "OIROUT_PROLOG", sizeof(cdat->dstr_726__OIROUT_PROLOG.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:446:/ iniobj"); /*iniobj dobj_727__OIROUT_PROLOG*/ if (!/*_.VALDATA___V837*/ curfptr[836]) /*_.VALDATA___V837*/ curfptr[836] = (void*)&cdat->dobj_727__OIROUT_PROLOG; basilys_assertmsg("iniobj checkdiscr dobj_727__OIROUT_PROLOG", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_727__OIROUT_PROLOG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_727__OIROUT_PROLOG.obj_num = 10; cdat->dobj_727__OIROUT_PROLOG.obj_hash = 69464192; cdat->dobj_727__OIROUT_PROLOG.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_727__OIROUT_PROLOG)); /*inistring dstr_728__OIROUT_PROLOG*/ /*_.VALSTR___V838*/ curfptr[837] = (void*)&cdat->dstr_728__OIROUT_PROLOG; cdat->dstr_728__OIROUT_PROLOG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_728__OIROUT_PROLOG.val, "OIROUT_PROLOG", sizeof(cdat->dstr_728__OIROUT_PROLOG.val)-1); /*iniobj dsym_729__OIROUT_FILL*/ if (!/*_.VALDATA___V846*/ curfptr[845]) /*_.VALDATA___V846*/ curfptr[845] = (void*)&cdat->dsym_729__OIROUT_FILL; basilys_assertmsg("iniobj checkdiscr dsym_729__OIROUT_FILL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_729__OIROUT_FILL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_729__OIROUT_FILL.obj_hash = 857346910; cdat->dsym_729__OIROUT_FILL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_729__OIROUT_FILL)); /*inistring dstr_730__OIROUT_FILL*/ /*_.VALSTR___V847*/ curfptr[846] = (void*)&cdat->dstr_730__OIROUT_FILL; cdat->dstr_730__OIROUT_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_730__OIROUT_FILL.val, "OIROUT_FILL", sizeof(cdat->dstr_730__OIROUT_FILL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:446:/ iniobj"); /*iniobj dobj_731__OIROUT_FILL*/ if (!/*_.VALDATA___V839*/ curfptr[838]) /*_.VALDATA___V839*/ curfptr[838] = (void*)&cdat->dobj_731__OIROUT_FILL; basilys_assertmsg("iniobj checkdiscr dobj_731__OIROUT_FILL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_731__OIROUT_FILL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_731__OIROUT_FILL.obj_num = 11; cdat->dobj_731__OIROUT_FILL.obj_hash = 1051610618; cdat->dobj_731__OIROUT_FILL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_731__OIROUT_FILL)); /*inistring dstr_732__OIROUT_FILL*/ /*_.VALSTR___V840*/ curfptr[839] = (void*)&cdat->dstr_732__OIROUT_FILL; cdat->dstr_732__OIROUT_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_732__OIROUT_FILL.val, "OIROUT_FILL", sizeof(cdat->dstr_732__OIROUT_FILL.val)-1); /*iniobj dsym_733__OUTPUT_C_DECLINIT*/ if (!/*_.VALDATA___V848*/ curfptr[847]) /*_.VALDATA___V848*/ curfptr[847] = (void*)&cdat->dsym_733__OUTPUT_C_DECLINIT; basilys_assertmsg("iniobj checkdiscr dsym_733__OUTPUT_C_DECLINIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_733__OUTPUT_C_DECLINIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_733__OUTPUT_C_DECLINIT.obj_hash = 1046624755; cdat->dsym_733__OUTPUT_C_DECLINIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_733__OUTPUT_C_DECLINIT)); /*inistring dstr_734__OUTPUT_C_DECLINI*/ /*_.VALSTR___V849*/ curfptr[848] = (void*)&cdat->dstr_734__OUTPUT_C_DECLINI; cdat->dstr_734__OUTPUT_C_DECLINI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_734__OUTPUT_C_DECLINI.val, "OUTPUT_C_DECLINIT", sizeof(cdat->dstr_734__OUTPUT_C_DECLINI.val)-1); /*iniobj dsym_735__CLASS_SELECTOR*/ if (!/*_.VALDATA___V850*/ curfptr[849]) /*_.VALDATA___V850*/ curfptr[849] = (void*)&cdat->dsym_735__CLASS_SELECTOR; basilys_assertmsg("iniobj checkdiscr dsym_735__CLASS_SELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_735__CLASS_SELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_735__CLASS_SELECTOR.obj_hash = 100646971; cdat->dsym_735__CLASS_SELECTOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_735__CLASS_SELECTOR)); /*inistring dstr_736__CLASS_SELECTOR*/ /*_.VALSTR___V851*/ curfptr[850] = (void*)&cdat->dstr_736__CLASS_SELECTOR; cdat->dstr_736__CLASS_SELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_736__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof(cdat->dstr_736__CLASS_SELECTOR.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:520:/ iniobj"); /*iniobj dobj_737__OUTPUT_C_DECLINIT*/ if (!/*_.VALDATA___V852*/ curfptr[851]) /*_.VALDATA___V852*/ curfptr[851] = (void*)&cdat->dobj_737__OUTPUT_C_DECLINIT; basilys_assertmsg("iniobj checkdiscr dobj_737__OUTPUT_C_DECLINIT", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_737__OUTPUT_C_DECLINIT.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_737__OUTPUT_C_DECLINIT.obj_hash = 1006422100; cdat->dobj_737__OUTPUT_C_DECLINIT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_737__OUTPUT_C_DECLINIT)); /*inistring dstr_738__OUTPUT_C_DECLINI*/ /*_.VALSTR___V853*/ curfptr[852] = (void*)&cdat->dstr_738__OUTPUT_C_DECLINI; cdat->dstr_738__OUTPUT_C_DECLINI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_738__OUTPUT_C_DECLINI.val, "OUTPUT_C_DECLINIT", sizeof(cdat->dstr_738__OUTPUT_C_DECLINI.val)-1); /*iniobj dsym_739__PUT_OBJDEST*/ if (!/*_.VALDATA___V854*/ curfptr[853]) /*_.VALDATA___V854*/ curfptr[853] = (void*)&cdat->dsym_739__PUT_OBJDEST; basilys_assertmsg("iniobj checkdiscr dsym_739__PUT_OBJDEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_739__PUT_OBJDEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_739__PUT_OBJDEST.obj_hash = 830731085; cdat->dsym_739__PUT_OBJDEST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_739__PUT_OBJDEST)); /*inistring dstr_740__PUT_OBJDEST*/ /*_.VALSTR___V855*/ curfptr[854] = (void*)&cdat->dstr_740__PUT_OBJDEST; cdat->dstr_740__PUT_OBJDEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_740__PUT_OBJDEST.val, "PUT_OBJDEST", sizeof(cdat->dstr_740__PUT_OBJDEST.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:527:/ iniobj"); /*iniobj dobj_741__PUT_OBJDEST*/ if (!/*_.VALDATA___V856*/ curfptr[855]) /*_.VALDATA___V856*/ curfptr[855] = (void*)&cdat->dobj_741__PUT_OBJDEST; basilys_assertmsg("iniobj checkdiscr dobj_741__PUT_OBJDEST", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_741__PUT_OBJDEST.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_741__PUT_OBJDEST.obj_hash = 735577011; cdat->dobj_741__PUT_OBJDEST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_741__PUT_OBJDEST)); /*inistring dstr_742__PUT_OBJDEST*/ /*_.VALSTR___V857*/ curfptr[856] = (void*)&cdat->dstr_742__PUT_OBJDEST; cdat->dstr_742__PUT_OBJDEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_742__PUT_OBJDEST.val, "PUT_OBJDEST", sizeof(cdat->dstr_742__PUT_OBJDEST.val)-1); /*iniobj dsym_743__OUTPUT_C_CODE*/ if (!/*_.VALDATA___V858*/ curfptr[857]) /*_.VALDATA___V858*/ curfptr[857] = (void*)&cdat->dsym_743__OUTPUT_C_CODE; basilys_assertmsg("iniobj checkdiscr dsym_743__OUTPUT_C_CODE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_743__OUTPUT_C_CODE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_743__OUTPUT_C_CODE.obj_hash = 137415526; cdat->dsym_743__OUTPUT_C_CODE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_743__OUTPUT_C_CODE)); /*inistring dstr_744__OUTPUT_C_CODE*/ /*_.VALSTR___V859*/ curfptr[858] = (void*)&cdat->dstr_744__OUTPUT_C_CODE; cdat->dstr_744__OUTPUT_C_CODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_744__OUTPUT_C_CODE.val, "OUTPUT_C_CODE", sizeof(cdat->dstr_744__OUTPUT_C_CODE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:538:/ iniobj"); /*iniobj dobj_745__OUTPUT_C_CODE*/ if (!/*_.VALDATA___V860*/ curfptr[859]) /*_.VALDATA___V860*/ curfptr[859] = (void*)&cdat->dobj_745__OUTPUT_C_CODE; basilys_assertmsg("iniobj checkdiscr dobj_745__OUTPUT_C_CODE", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_745__OUTPUT_C_CODE.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_745__OUTPUT_C_CODE.obj_hash = 664690748; cdat->dobj_745__OUTPUT_C_CODE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_745__OUTPUT_C_CODE)); /*inistring dstr_746__OUTPUT_C_CODE*/ /*_.VALSTR___V861*/ curfptr[860] = (void*)&cdat->dstr_746__OUTPUT_C_CODE; cdat->dstr_746__OUTPUT_C_CODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_746__OUTPUT_C_CODE.val, "OUTPUT_C_CODE", sizeof(cdat->dstr_746__OUTPUT_C_CODE.val)-1); /*iniobj dsym_747__OUTPUT_C_INITFILL*/ if (!/*_.VALDATA___V862*/ curfptr[861]) /*_.VALDATA___V862*/ curfptr[861] = (void*)&cdat->dsym_747__OUTPUT_C_INITFILL; basilys_assertmsg("iniobj checkdiscr dsym_747__OUTPUT_C_INITFILL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_747__OUTPUT_C_INITFILL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_747__OUTPUT_C_INITFILL.obj_hash = 553878238; cdat->dsym_747__OUTPUT_C_INITFILL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_747__OUTPUT_C_INITFILL)); /*inistring dstr_748__OUTPUT_C_INITFIL*/ /*_.VALSTR___V863*/ curfptr[862] = (void*)&cdat->dstr_748__OUTPUT_C_INITFIL; cdat->dstr_748__OUTPUT_C_INITFIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_748__OUTPUT_C_INITFIL.val, "OUTPUT_C_INITFILL", sizeof(cdat->dstr_748__OUTPUT_C_INITFIL.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:544:/ iniobj"); /*iniobj dobj_749__OUTPUT_C_INITFILL*/ if (!/*_.VALDATA___V864*/ curfptr[863]) /*_.VALDATA___V864*/ curfptr[863] = (void*)&cdat->dobj_749__OUTPUT_C_INITFILL; basilys_assertmsg("iniobj checkdiscr dobj_749__OUTPUT_C_INITFILL", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_749__OUTPUT_C_INITFILL.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_749__OUTPUT_C_INITFILL.obj_hash = 173003942; cdat->dobj_749__OUTPUT_C_INITFILL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_749__OUTPUT_C_INITFILL)); /*inistring dstr_750__OUTPUT_C_INITFIL*/ /*_.VALSTR___V865*/ curfptr[864] = (void*)&cdat->dstr_750__OUTPUT_C_INITFIL; cdat->dstr_750__OUTPUT_C_INITFIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_750__OUTPUT_C_INITFIL.val, "OUTPUT_C_INITFILL", sizeof(cdat->dstr_750__OUTPUT_C_INITFIL.val)-1); /*iniobj dsym_751__OUTPUT_C_INITPREDEF*/ if (!/*_.VALDATA___V866*/ curfptr[865]) /*_.VALDATA___V866*/ curfptr[865] = (void*)&cdat->dsym_751__OUTPUT_C_INITPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_751__OUTPUT_C_INITPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_751__OUTPUT_C_INITPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_751__OUTPUT_C_INITPREDEF.obj_hash = 963494394; cdat->dsym_751__OUTPUT_C_INITPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_751__OUTPUT_C_INITPREDEF)); /*inistring dstr_752__OUTPUT_C_INITPRE*/ /*_.VALSTR___V867*/ curfptr[866] = (void*)&cdat->dstr_752__OUTPUT_C_INITPRE; cdat->dstr_752__OUTPUT_C_INITPRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_752__OUTPUT_C_INITPRE.val, "OUTPUT_C_INITPREDEF", sizeof(cdat->dstr_752__OUTPUT_C_INITPRE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:550:/ iniobj"); /*iniobj dobj_753__OUTPUT_C_INITPREDEF*/ if (!/*_.VALDATA___V868*/ curfptr[867]) /*_.VALDATA___V868*/ curfptr[867] = (void*)&cdat->dobj_753__OUTPUT_C_INITPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_753__OUTPUT_C_INITPREDEF", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_753__OUTPUT_C_INITPREDEF.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_753__OUTPUT_C_INITPREDEF.obj_hash = 439592726; cdat->dobj_753__OUTPUT_C_INITPREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_753__OUTPUT_C_INITPREDEF)); /*inistring dstr_754__OUTPUT_C_INITPRE*/ /*_.VALSTR___V869*/ curfptr[868] = (void*)&cdat->dstr_754__OUTPUT_C_INITPRE; cdat->dstr_754__OUTPUT_C_INITPRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_754__OUTPUT_C_INITPRE.val, "OUTPUT_C_INITPREDEF", sizeof(cdat->dstr_754__OUTPUT_C_INITPRE.val)-1); /*inirout drout_755__COMPILOBJ_CATCHALL_NREP*/ /*_.VALROUT___V870*/ curfptr[869] = (void*)&cdat->drout_755__COMPILOBJ_CATCHALL_NREP; cdat->drout_755__COMPILOBJ_CATCHALL_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_755__COMPILOBJ_CATCHALL_NREP.routdescr, "COMPILOBJ_CATCHALL_NREP @warmelt-genobj.melt:564", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_755__COMPILOBJ_CATCHALL_NREP.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_755__COMPILOBJ_CATCHALL_NREP, rout_1_COMPILOBJ_CATCHALL_NREP); /*iniclos dclo_756__COMPILOBJ_CATCHALL_NREP*/ /*_.VALCLO___V871*/ curfptr[870] = (void*)&cdat->dclo_756__COMPILOBJ_CATCHALL_NREP; cdat->dclo_756__COMPILOBJ_CATCHALL_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_756__COMPILOBJ_CATCHALL_NREP.nbval = 0; /*iniobj dsym_757__DEBUG_MSG_FUN*/ if (!/*_.VALDATA___V872*/ curfptr[871]) /*_.VALDATA___V872*/ curfptr[871] = (void*)&cdat->dsym_757__DEBUG_MSG_FUN; basilys_assertmsg("iniobj checkdiscr dsym_757__DEBUG_MSG_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_757__DEBUG_MSG_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_757__DEBUG_MSG_FUN.obj_hash = 938829072; cdat->dsym_757__DEBUG_MSG_FUN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_757__DEBUG_MSG_FUN)); /*inistring dstr_758__DEBUG_MSG_FUN*/ /*_.VALSTR___V873*/ curfptr[872] = (void*)&cdat->dstr_758__DEBUG_MSG_FUN; cdat->dstr_758__DEBUG_MSG_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_758__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof(cdat->dstr_758__DEBUG_MSG_FUN.val)-1); /*iniobj dsym_759__DISPLAYDEBUGMSG*/ if (!/*_.VALDATA___V874*/ curfptr[873]) /*_.VALDATA___V874*/ curfptr[873] = (void*)&cdat->dsym_759__DISPLAYDEBUGMSG; basilys_assertmsg("iniobj checkdiscr dsym_759__DISPLAYDEBUGMSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_759__DISPLAYDEBUGMSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_759__DISPLAYDEBUGMSG.obj_hash = 784680112; cdat->dsym_759__DISPLAYDEBUGMSG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_759__DISPLAYDEBUGMSG)); /*inistring dstr_760__DISPLAYDEBUGMSG*/ /*_.VALSTR___V875*/ curfptr[874] = (void*)&cdat->dstr_760__DISPLAYDEBUGMSG; cdat->dstr_760__DISPLAYDEBUGMSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_760__DISPLAYDEBUGMSG.val, "DISPLAYDEBUGMSG", sizeof(cdat->dstr_760__DISPLAYDEBUGMSG.val)-1); /*iniobj dsym_761__INSTALL_METHOD*/ if (!/*_.VALDATA___V876*/ curfptr[875]) /*_.VALDATA___V876*/ curfptr[875] = (void*)&cdat->dsym_761__INSTALL_METHOD; basilys_assertmsg("iniobj checkdiscr dsym_761__INSTALL_METHOD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_761__INSTALL_METHOD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_761__INSTALL_METHOD.obj_hash = 680699224; cdat->dsym_761__INSTALL_METHOD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_761__INSTALL_METHOD)); /*inistring dstr_762__INSTALL_METHOD*/ /*_.VALSTR___V877*/ curfptr[876] = (void*)&cdat->dstr_762__INSTALL_METHOD; cdat->dstr_762__INSTALL_METHOD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_762__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof(cdat->dstr_762__INSTALL_METHOD.val)-1); /*iniobj dsym_763__CLASS_NREP*/ if (!/*_.VALDATA___V878*/ curfptr[877]) /*_.VALDATA___V878*/ curfptr[877] = (void*)&cdat->dsym_763__CLASS_NREP; basilys_assertmsg("iniobj checkdiscr dsym_763__CLASS_NREP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_763__CLASS_NREP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_763__CLASS_NREP.obj_hash = 704846736; cdat->dsym_763__CLASS_NREP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_763__CLASS_NREP)); /*inistring dstr_764__CLASS_NREP*/ /*_.VALSTR___V879*/ curfptr[878] = (void*)&cdat->dstr_764__CLASS_NREP; cdat->dstr_764__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_764__CLASS_NREP.val, "CLASS_NREP", sizeof(cdat->dstr_764__CLASS_NREP.val)-1); /*iniobj dsym_765__COMPILE_OBJ*/ if (!/*_.VALDATA___V880*/ curfptr[879]) /*_.VALDATA___V880*/ curfptr[879] = (void*)&cdat->dsym_765__COMPILE_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_765__COMPILE_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_765__COMPILE_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_765__COMPILE_OBJ.obj_hash = 749017560; cdat->dsym_765__COMPILE_OBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_765__COMPILE_OBJ)); /*inistring dstr_766__COMPILE_OBJ*/ /*_.VALSTR___V881*/ curfptr[880] = (void*)&cdat->dstr_766__COMPILE_OBJ; cdat->dstr_766__COMPILE_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_766__COMPILE_OBJ.val, "COMPILE_OBJ", sizeof(cdat->dstr_766__COMPILE_OBJ.val)-1); /*inirout drout_767__PUTOBJDEST_CATCHALL_OBJCODE*/ /*_.VALROUT___V882*/ curfptr[881] = (void*)&cdat->drout_767__PUTOBJDEST_CATCHALL_OBJCODE; cdat->drout_767__PUTOBJDEST_CATCHALL_OBJCODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_767__PUTOBJDEST_CATCHALL_OBJCODE.routdescr, "PUTOBJDEST_CATCHALL_OBJCODE @warmelt-genobj.melt:574", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_767__PUTOBJDEST_CATCHALL_OBJCODE.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_767__PUTOBJDEST_CATCHALL_OBJCODE, rout_2_PUTOBJDEST_CATCHALL_OBJCODE); /*iniclos dclo_768__PUTOBJDEST_CATCHALL_OBJCODE*/ /*_.VALCLO___V883*/ curfptr[882] = (void*)&cdat->dclo_768__PUTOBJDEST_CATCHALL_OBJCODE; cdat->dclo_768__PUTOBJDEST_CATCHALL_OBJCODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_768__PUTOBJDEST_CATCHALL_OBJCODE.nbval = 0; /*inirout drout_769__PUTOBJDEST_CATCHALL_ANYDISCR*/ /*_.VALROUT___V884*/ curfptr[883] = (void*)&cdat->drout_769__PUTOBJDEST_CATCHALL_ANYDISCR; cdat->drout_769__PUTOBJDEST_CATCHALL_ANYDISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_769__PUTOBJDEST_CATCHALL_ANYDISCR.routdescr, "PUTOBJDEST_CATCHALL_ANYDISCR @warmelt-genobj.melt:584", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_769__PUTOBJDEST_CATCHALL_ANYDISCR.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_769__PUTOBJDEST_CATCHALL_ANYDISCR, rout_3_PUTOBJDEST_CATCHALL_ANYDISCR); /*iniclos dclo_770__PUTOBJDEST_CATCHALL_ANYDISCR*/ /*_.VALCLO___V885*/ curfptr[884] = (void*)&cdat->dclo_770__PUTOBJDEST_CATCHALL_ANYDISCR; cdat->dclo_770__PUTOBJDEST_CATCHALL_ANYDISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_770__PUTOBJDEST_CATCHALL_ANYDISCR.nbval = 0; /*iniobj dsym_771__DISCR_ANYRECV*/ if (!/*_.VALDATA___V886*/ curfptr[885]) /*_.VALDATA___V886*/ curfptr[885] = (void*)&cdat->dsym_771__DISCR_ANYRECV; basilys_assertmsg("iniobj checkdiscr dsym_771__DISCR_ANYRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_771__DISCR_ANYRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_771__DISCR_ANYRECV.obj_hash = 88765237; cdat->dsym_771__DISCR_ANYRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_771__DISCR_ANYRECV)); /*inistring dstr_772__DISCR_ANYRECV*/ /*_.VALSTR___V887*/ curfptr[886] = (void*)&cdat->dstr_772__DISCR_ANYRECV; cdat->dstr_772__DISCR_ANYRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_772__DISCR_ANYRECV.val, "DISCR_ANYRECV", sizeof(cdat->dstr_772__DISCR_ANYRECV.val)-1); /*inirout drout_773__GETCTYPE_OBJVALUE*/ /*_.VALROUT___V888*/ curfptr[887] = (void*)&cdat->drout_773__GETCTYPE_OBJVALUE; cdat->drout_773__GETCTYPE_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_773__GETCTYPE_OBJVALUE.routdescr, "GETCTYPE_OBJVALUE @warmelt-genobj.melt:595", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_773__GETCTYPE_OBJVALUE.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_773__GETCTYPE_OBJVALUE, rout_4_GETCTYPE_OBJVALUE); /*iniclos dclo_774__GETCTYPE_OBJVALUE*/ /*_.VALCLO___V889*/ curfptr[888] = (void*)&cdat->dclo_774__GETCTYPE_OBJVALUE; cdat->dclo_774__GETCTYPE_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_774__GETCTYPE_OBJVALUE.nbval = 0; /*iniobj dsym_775__GET_CTYPE*/ if (!/*_.VALDATA___V890*/ curfptr[889]) /*_.VALDATA___V890*/ curfptr[889] = (void*)&cdat->dsym_775__GET_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_775__GET_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_775__GET_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_775__GET_CTYPE.obj_hash = 747649571; cdat->dsym_775__GET_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_775__GET_CTYPE)); /*inistring dstr_776__GET_CTYPE*/ /*_.VALSTR___V891*/ curfptr[890] = (void*)&cdat->dstr_776__GET_CTYPE; cdat->dstr_776__GET_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_776__GET_CTYPE.val, "GET_CTYPE", sizeof(cdat->dstr_776__GET_CTYPE.val)-1); /*inirout drout_777__GECTYP_OBJNIL*/ /*_.VALROUT___V892*/ curfptr[891] = (void*)&cdat->drout_777__GECTYP_OBJNIL; cdat->drout_777__GECTYP_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_777__GECTYP_OBJNIL.routdescr, "GECTYP_OBJNIL @warmelt-genobj.melt:605", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_777__GECTYP_OBJNIL.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_777__GECTYP_OBJNIL, rout_5_GECTYP_OBJNIL); /*iniclos dclo_778__GECTYP_OBJNIL*/ /*_.VALCLO___V893*/ curfptr[892] = (void*)&cdat->dclo_778__GECTYP_OBJNIL; cdat->dclo_778__GECTYP_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_778__GECTYP_OBJNIL.nbval = 0; /*iniobj dsym_779__CTYPE_VALUE*/ if (!/*_.VALDATA___V894*/ curfptr[893]) /*_.VALDATA___V894*/ curfptr[893] = (void*)&cdat->dsym_779__CTYPE_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_779__CTYPE_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_779__CTYPE_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_779__CTYPE_VALUE.obj_hash = 11062864; cdat->dsym_779__CTYPE_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_779__CTYPE_VALUE)); /*inistring dstr_780__CTYPE_VALUE*/ /*_.VALSTR___V895*/ curfptr[894] = (void*)&cdat->dstr_780__CTYPE_VALUE; cdat->dstr_780__CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_780__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof(cdat->dstr_780__CTYPE_VALUE.val)-1); /*inirout drout_781__DBGOUT_ROUTINEOBJ*/ /*_.VALROUT___V896*/ curfptr[895] = (void*)&cdat->drout_781__DBGOUT_ROUTINEOBJ; cdat->drout_781__DBGOUT_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_781__DBGOUT_ROUTINEOBJ.routdescr, "DBGOUT_ROUTINEOBJ @warmelt-genobj.melt:612", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_781__DBGOUT_ROUTINEOBJ.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_781__DBGOUT_ROUTINEOBJ, rout_6_DBGOUT_ROUTINEOBJ); /*iniclos dclo_782__DBGOUT_ROUTINEOBJ*/ /*_.VALCLO___V897*/ curfptr[896] = (void*)&cdat->dclo_782__DBGOUT_ROUTINEOBJ; cdat->dclo_782__DBGOUT_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_782__DBGOUT_ROUTINEOBJ.nbval = 0; /*iniobj dsym_783__DBGOUT_NAMEDOBJECT_METHOD*/ if (!/*_.VALDATA___V898*/ curfptr[897]) /*_.VALDATA___V898*/ curfptr[897] = (void*)&cdat->dsym_783__DBGOUT_NAMEDOBJECT_METHOD; basilys_assertmsg("iniobj checkdiscr dsym_783__DBGOUT_NAMEDOBJECT_METHOD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_783__DBGOUT_NAMEDOBJECT_METHOD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_783__DBGOUT_NAMEDOBJECT_METHOD.obj_hash = 359355803; cdat->dsym_783__DBGOUT_NAMEDOBJECT_METHOD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_783__DBGOUT_NAMEDOBJECT_METHOD)); /*inistring dstr_784__DBGOUT_NAMEDOBJE*/ /*_.VALSTR___V899*/ curfptr[898] = (void*)&cdat->dstr_784__DBGOUT_NAMEDOBJE; cdat->dstr_784__DBGOUT_NAMEDOBJE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_784__DBGOUT_NAMEDOBJE.val, "DBGOUT_NAMEDOBJECT_METHOD", sizeof(cdat->dstr_784__DBGOUT_NAMEDOBJE.val)-1); /*iniobj dsym_785__DBG_OUTPUT*/ if (!/*_.VALDATA___V900*/ curfptr[899]) /*_.VALDATA___V900*/ curfptr[899] = (void*)&cdat->dsym_785__DBG_OUTPUT; basilys_assertmsg("iniobj checkdiscr dsym_785__DBG_OUTPUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_785__DBG_OUTPUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_785__DBG_OUTPUT.obj_hash = 225394304; cdat->dsym_785__DBG_OUTPUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_785__DBG_OUTPUT)); /*inistring dstr_786__DBG_OUTPUT*/ /*_.VALSTR___V901*/ curfptr[900] = (void*)&cdat->dstr_786__DBG_OUTPUT; cdat->dstr_786__DBG_OUTPUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_786__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof(cdat->dstr_786__DBG_OUTPUT.val)-1); /*inirout drout_787__PUTOBJDEST_OBJDESTINSTR*/ /*_.VALROUT___V902*/ curfptr[901] = (void*)&cdat->drout_787__PUTOBJDEST_OBJDESTINSTR; cdat->drout_787__PUTOBJDEST_OBJDESTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_787__PUTOBJDEST_OBJDESTINSTR.routdescr, "PUTOBJDEST_OBJDESTINSTR @warmelt-genobj.melt:620", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_787__PUTOBJDEST_OBJDESTINSTR.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_787__PUTOBJDEST_OBJDESTINSTR, rout_7_PUTOBJDEST_OBJDESTINSTR); /*iniclos dclo_788__PUTOBJDEST_OBJDESTINSTR*/ /*_.VALCLO___V903*/ curfptr[902] = (void*)&cdat->dclo_788__PUTOBJDEST_OBJDESTINSTR; cdat->dclo_788__PUTOBJDEST_OBJDESTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_788__PUTOBJDEST_OBJDESTINSTR.nbval = 0; /*iniobj dsym_789__DISCR_LIST*/ if (!/*_.VALDATA___V904*/ curfptr[903]) /*_.VALDATA___V904*/ curfptr[903] = (void*)&cdat->dsym_789__DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dsym_789__DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_789__DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_789__DISCR_LIST.obj_hash = 98407634; cdat->dsym_789__DISCR_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_789__DISCR_LIST)); /*inistring dstr_790__DISCR_LIST*/ /*_.VALSTR___V905*/ curfptr[904] = (void*)&cdat->dstr_790__DISCR_LIST; cdat->dstr_790__DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_790__DISCR_LIST.val, "DISCR_LIST", sizeof(cdat->dstr_790__DISCR_LIST.val)-1); /*inirout drout_791__PUTOBJDEST_OBJFINALRETURN*/ /*_.VALROUT___V906*/ curfptr[905] = (void*)&cdat->drout_791__PUTOBJDEST_OBJFINALRETURN; cdat->drout_791__PUTOBJDEST_OBJFINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_791__PUTOBJDEST_OBJFINALRETURN.routdescr, "PUTOBJDEST_OBJFINALRETURN @warmelt-genobj.melt:657", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_791__PUTOBJDEST_OBJFINALRETURN.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_791__PUTOBJDEST_OBJFINALRETURN, rout_8_PUTOBJDEST_OBJFINALRETURN); /*iniclos dclo_792__PUTOBJDEST_OBJFINALRETURN*/ /*_.VALCLO___V907*/ curfptr[906] = (void*)&cdat->dclo_792__PUTOBJDEST_OBJFINALRETURN; cdat->dclo_792__PUTOBJDEST_OBJFINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_792__PUTOBJDEST_OBJFINALRETURN.nbval = 0; /*inirout drout_793__COMPILE2OBJ_PROCEDURE*/ /*_.VALROUT___V908*/ curfptr[907] = (void*)&cdat->drout_793__COMPILE2OBJ_PROCEDURE; cdat->drout_793__COMPILE2OBJ_PROCEDURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_793__COMPILE2OBJ_PROCEDURE.routdescr, "COMPILE2OBJ_PROCEDURE @warmelt-genobj.melt:668", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_793__COMPILE2OBJ_PROCEDURE.nbval = 27; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_793__COMPILE2OBJ_PROCEDURE, rout_9_COMPILE2OBJ_PROCEDURE); /*iniclos dclo_794__COMPILE2OBJ_PROCEDURE*/ /*_.VALCLO___V919*/ curfptr[918] = (void*)&cdat->dclo_794__COMPILE2OBJ_PROCEDURE; cdat->dclo_794__COMPILE2OBJ_PROCEDURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_794__COMPILE2OBJ_PROCEDURE.nbval = 0; /*iniobj dsym_795__CLASS_NREP_ROUTPROC*/ if (!/*_.VALDATA___V920*/ curfptr[919]) /*_.VALDATA___V920*/ curfptr[919] = (void*)&cdat->dsym_795__CLASS_NREP_ROUTPROC; basilys_assertmsg("iniobj checkdiscr dsym_795__CLASS_NREP_ROUTPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_795__CLASS_NREP_ROUTPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_795__CLASS_NREP_ROUTPROC.obj_hash = 959677762; cdat->dsym_795__CLASS_NREP_ROUTPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_795__CLASS_NREP_ROUTPROC)); /*inistring dstr_796__CLASS_NREP_ROUTP*/ /*_.VALSTR___V921*/ curfptr[920] = (void*)&cdat->dstr_796__CLASS_NREP_ROUTP; cdat->dstr_796__CLASS_NREP_ROUTP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_796__CLASS_NREP_ROUTP.val, "CLASS_NREP_ROUTPROC", sizeof(cdat->dstr_796__CLASS_NREP_ROUTP.val)-1); /*iniobj dsym_797__CLASS_MODULCONTEXT*/ if (!/*_.VALDATA___V922*/ curfptr[921]) /*_.VALDATA___V922*/ curfptr[921] = (void*)&cdat->dsym_797__CLASS_MODULCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_797__CLASS_MODULCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_797__CLASS_MODULCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_797__CLASS_MODULCONTEXT.obj_hash = 827706478; cdat->dsym_797__CLASS_MODULCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_797__CLASS_MODULCONTEXT)); /*inistring dstr_798__CLASS_MODULCONTE*/ /*_.VALSTR___V923*/ curfptr[922] = (void*)&cdat->dstr_798__CLASS_MODULCONTE; cdat->dstr_798__CLASS_MODULCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_798__CLASS_MODULCONTE.val, "CLASS_MODULCONTEXT", sizeof(cdat->dstr_798__CLASS_MODULCONTE.val)-1); /*iniobj dsym_799__DISCR_STRBUF*/ if (!/*_.VALDATA___V924*/ curfptr[923]) /*_.VALDATA___V924*/ curfptr[923] = (void*)&cdat->dsym_799__DISCR_STRBUF; basilys_assertmsg("iniobj checkdiscr dsym_799__DISCR_STRBUF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_799__DISCR_STRBUF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_799__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_799__DISCR_STRBUF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_799__DISCR_STRBUF)); /*inistring dstr_800__DISCR_STRBUF*/ /*_.VALSTR___V925*/ curfptr[924] = (void*)&cdat->dstr_800__DISCR_STRBUF; cdat->dstr_800__DISCR_STRBUF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_800__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof(cdat->dstr_800__DISCR_STRBUF.val)-1); /*iniobj dsym_801__DISCR_STRING*/ if (!/*_.VALDATA___V926*/ curfptr[925]) /*_.VALDATA___V926*/ curfptr[925] = (void*)&cdat->dsym_801__DISCR_STRING; basilys_assertmsg("iniobj checkdiscr dsym_801__DISCR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_801__DISCR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_801__DISCR_STRING.obj_hash = 100436219; cdat->dsym_801__DISCR_STRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_801__DISCR_STRING)); /*inistring dstr_802__DISCR_STRING*/ /*_.VALSTR___V927*/ curfptr[926] = (void*)&cdat->dstr_802__DISCR_STRING; cdat->dstr_802__DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_802__DISCR_STRING.val, "DISCR_STRING", sizeof(cdat->dstr_802__DISCR_STRING.val)-1); /*iniobj dsym_803__DISCR_INTEGER*/ if (!/*_.VALDATA___V928*/ curfptr[927]) /*_.VALDATA___V928*/ curfptr[927] = (void*)&cdat->dsym_803__DISCR_INTEGER; basilys_assertmsg("iniobj checkdiscr dsym_803__DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_803__DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_803__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_803__DISCR_INTEGER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_803__DISCR_INTEGER)); /*inistring dstr_804__DISCR_INTEGER*/ /*_.VALSTR___V929*/ curfptr[928] = (void*)&cdat->dstr_804__DISCR_INTEGER; cdat->dstr_804__DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_804__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof(cdat->dstr_804__DISCR_INTEGER.val)-1); /*iniobj dsym_805__DISCR_MAPOBJECTS*/ if (!/*_.VALDATA___V930*/ curfptr[929]) /*_.VALDATA___V930*/ curfptr[929] = (void*)&cdat->dsym_805__DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dsym_805__DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_805__DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_805__DISCR_MAPOBJECTS.obj_hash = 95669218; cdat->dsym_805__DISCR_MAPOBJECTS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_805__DISCR_MAPOBJECTS)); /*inistring dstr_806__DISCR_MAPOBJECTS*/ /*_.VALSTR___V931*/ curfptr[930] = (void*)&cdat->dstr_806__DISCR_MAPOBJECTS; cdat->dstr_806__DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_806__DISCR_MAPOBJECTS.val, "DISCR_MAPOBJECTS", sizeof(cdat->dstr_806__DISCR_MAPOBJECTS.val)-1); /*iniobj dsym_807__CLASS_GENERCONTEXT*/ if (!/*_.VALDATA___V932*/ curfptr[931]) /*_.VALDATA___V932*/ curfptr[931] = (void*)&cdat->dsym_807__CLASS_GENERCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_807__CLASS_GENERCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_807__CLASS_GENERCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_807__CLASS_GENERCONTEXT.obj_hash = 970384742; cdat->dsym_807__CLASS_GENERCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_807__CLASS_GENERCONTEXT)); /*inistring dstr_808__CLASS_GENERCONTE*/ /*_.VALSTR___V933*/ curfptr[932] = (void*)&cdat->dstr_808__CLASS_GENERCONTE; cdat->dstr_808__CLASS_GENERCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_808__CLASS_GENERCONTE.val, "CLASS_GENERCONTEXT", sizeof(cdat->dstr_808__CLASS_GENERCONTE.val)-1); /*iniobj dsym_809__RETVAL_*/ if (!/*_.VALDATA___V911*/ curfptr[910]) /*_.VALDATA___V911*/ curfptr[910] = (void*)&cdat->dsym_809__RETVAL_; basilys_assertmsg("iniobj checkdiscr dsym_809__RETVAL_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_809__RETVAL_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_809__RETVAL_.obj_hash = 101078457; cdat->dsym_809__RETVAL_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_809__RETVAL_)); /*inistring dstr_810__RETVAL_*/ /*_.VALSTR___V912*/ curfptr[911] = (void*)&cdat->dstr_810__RETVAL_; cdat->dstr_810__RETVAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_810__RETVAL_.val, "_RETVAL_", sizeof(cdat->dstr_810__RETVAL_.val)-1); /*iniobj dsym_811__MULTIPLE_MAP*/ if (!/*_.VALDATA___V934*/ curfptr[933]) /*_.VALDATA___V934*/ curfptr[933] = (void*)&cdat->dsym_811__MULTIPLE_MAP; basilys_assertmsg("iniobj checkdiscr dsym_811__MULTIPLE_MAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_811__MULTIPLE_MAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_811__MULTIPLE_MAP.obj_hash = 218301686; cdat->dsym_811__MULTIPLE_MAP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_811__MULTIPLE_MAP)); /*inistring dstr_812__MULTIPLE_MAP*/ /*_.VALSTR___V935*/ curfptr[934] = (void*)&cdat->dstr_812__MULTIPLE_MAP; cdat->dstr_812__MULTIPLE_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_812__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof(cdat->dstr_812__MULTIPLE_MAP.val)-1); /*inirout drout_813__LAMBDA_*/ /*_.VALROUT___V917*/ curfptr[916] = (void*)&cdat->drout_813__LAMBDA_; cdat->drout_813__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_813__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:722", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_813__LAMBDA_.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_813__LAMBDA_, rout_10_LAMBDA_); /*iniobj dsym_814__CLASS_FORMAL_BINDING*/ if (!/*_.VALDATA___V936*/ curfptr[935]) /*_.VALDATA___V936*/ curfptr[935] = (void*)&cdat->dsym_814__CLASS_FORMAL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_814__CLASS_FORMAL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_814__CLASS_FORMAL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_814__CLASS_FORMAL_BINDING.obj_hash = 3733780; cdat->dsym_814__CLASS_FORMAL_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_814__CLASS_FORMAL_BINDING)); /*inistring dstr_815__CLASS_FORMAL_BIN*/ /*_.VALSTR___V937*/ curfptr[936] = (void*)&cdat->dstr_815__CLASS_FORMAL_BIN; cdat->dstr_815__CLASS_FORMAL_BIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_815__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof(cdat->dstr_815__CLASS_FORMAL_BIN.val)-1); /*iniobj dsym_816__CTYPE_LONG*/ if (!/*_.VALDATA___V938*/ curfptr[937]) /*_.VALDATA___V938*/ curfptr[937] = (void*)&cdat->dsym_816__CTYPE_LONG; basilys_assertmsg("iniobj checkdiscr dsym_816__CTYPE_LONG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_816__CTYPE_LONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_816__CTYPE_LONG.obj_hash = 64180850; cdat->dsym_816__CTYPE_LONG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_816__CTYPE_LONG)); /*inistring dstr_817__CTYPE_LONG*/ /*_.VALSTR___V939*/ curfptr[938] = (void*)&cdat->dstr_817__CTYPE_LONG; cdat->dstr_817__CTYPE_LONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_817__CTYPE_LONG.val, "CTYPE_LONG", sizeof(cdat->dstr_817__CTYPE_LONG.val)-1); /*iniobj dsym_818__LIST_EVERY*/ if (!/*_.VALDATA___V940*/ curfptr[939]) /*_.VALDATA___V940*/ curfptr[939] = (void*)&cdat->dsym_818__LIST_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_818__LIST_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_818__LIST_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_818__LIST_EVERY.obj_hash = 942863429; cdat->dsym_818__LIST_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_818__LIST_EVERY)); /*inistring dstr_819__LIST_EVERY*/ /*_.VALSTR___V941*/ curfptr[940] = (void*)&cdat->dstr_819__LIST_EVERY; cdat->dstr_819__LIST_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_819__LIST_EVERY.val, "LIST_EVERY", sizeof(cdat->dstr_819__LIST_EVERY.val)-1); /*inirout drout_820__LAMBDA_*/ /*_.VALROUT___V918*/ curfptr[917] = (void*)&cdat->drout_820__LAMBDA_; cdat->drout_820__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_820__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:759", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_820__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_820__LAMBDA_, rout_11_LAMBDA_); /*iniobj dsym_821__INITIALSYSTEMDATA_OBJPREDEF*/ if (!/*_.VALDATA___V942*/ curfptr[941]) /*_.VALDATA___V942*/ curfptr[941] = (void*)&cdat->dsym_821__INITIALSYSTEMDATA_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_821__INITIALSYSTEMDATA_OBJPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_821__INITIALSYSTEMDATA_OBJPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_821__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 358147021; cdat->dsym_821__INITIALSYSTEMDATA_OBJPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_821__INITIALSYSTEMDATA_OBJPREDEF)); /*inistring dstr_822__INITIALSYSTEMDAT*/ /*_.VALSTR___V943*/ curfptr[942] = (void*)&cdat->dstr_822__INITIALSYSTEMDAT; cdat->dstr_822__INITIALSYSTEMDAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_822__INITIALSYSTEMDAT.val, "INITIALSYSTEMDATA_OBJPREDEF", sizeof(cdat->dstr_822__INITIALSYSTEMDAT.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:778:/ iniobj"); /*iniobj dobj_823__INITIALSYSTEMDATA_OBJPREDEF*/ if (!/*_.VALDATA___V944*/ curfptr[943]) /*_.VALDATA___V944*/ curfptr[943] = (void*)&cdat->dobj_823__INITIALSYSTEMDATA_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_823__INITIALSYSTEMDATA_OBJPREDEF", NULL != (void*)/*_.VALDATA___V178*/ curfptr[177]); cdat->dobj_823__INITIALSYSTEMDATA_OBJPREDEF.obj_class = (basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]); cdat->dobj_823__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 513085973; cdat->dobj_823__INITIALSYSTEMDATA_OBJPREDEF.obj_len = 2; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_823__INITIALSYSTEMDATA_OBJPREDEF)); /*iniobj dsym_824__INITIAL_SYSTEM_DATA*/ if (!/*_.VALDATA___V945*/ curfptr[944]) /*_.VALDATA___V945*/ curfptr[944] = (void*)&cdat->dsym_824__INITIAL_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_824__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_824__INITIAL_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_824__INITIAL_SYSTEM_DATA.obj_hash = 771349808; cdat->dsym_824__INITIAL_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_824__INITIAL_SYSTEM_DATA)); /*inistring dstr_825__INITIAL_SYSTEM_D*/ /*_.VALSTR___V946*/ curfptr[945] = (void*)&cdat->dstr_825__INITIAL_SYSTEM_D; cdat->dstr_825__INITIAL_SYSTEM_D.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_825__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_825__INITIAL_SYSTEM_D.val)-1); /*inirout drout_826__APPEND_COMMENT*/ /*_.VALROUT___V947*/ curfptr[946] = (void*)&cdat->drout_826__APPEND_COMMENT; cdat->drout_826__APPEND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_826__APPEND_COMMENT.routdescr, "APPEND_COMMENT @warmelt-genobj.melt:783", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_826__APPEND_COMMENT.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_826__APPEND_COMMENT, rout_12_APPEND_COMMENT); /*iniclos dclo_827__APPEND_COMMENT*/ /*_.VALCLO___V948*/ curfptr[947] = (void*)&cdat->dclo_827__APPEND_COMMENT; cdat->dclo_827__APPEND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_827__APPEND_COMMENT.nbval = 0; /*inirout drout_828__APPEND_COMMENTCONST*/ /*_.VALROUT___V949*/ curfptr[948] = (void*)&cdat->drout_828__APPEND_COMMENTCONST; cdat->drout_828__APPEND_COMMENTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_828__APPEND_COMMENTCONST.routdescr, "APPEND_COMMENTCONST @warmelt-genobj.melt:785", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_828__APPEND_COMMENTCONST.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_828__APPEND_COMMENTCONST, rout_13_APPEND_COMMENTCONST); /*iniclos dclo_829__APPEND_COMMENTCONST*/ /*_.VALCLO___V950*/ curfptr[949] = (void*)&cdat->dclo_829__APPEND_COMMENTCONST; cdat->dclo_829__APPEND_COMMENTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_829__APPEND_COMMENTCONST.nbval = 0; /*inirout drout_830__COMPILE2OBJ_INITPROC*/ /*_.VALROUT___V951*/ curfptr[950] = (void*)&cdat->drout_830__COMPILE2OBJ_INITPROC; cdat->drout_830__COMPILE2OBJ_INITPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_830__COMPILE2OBJ_INITPROC.routdescr, "COMPILE2OBJ_INITPROC @warmelt-genobj.melt:789", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_830__COMPILE2OBJ_INITPROC.nbval = 67; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_830__COMPILE2OBJ_INITPROC, rout_14_COMPILE2OBJ_INITPROC); /*iniclos dclo_831__COMPILE2OBJ_INITPROC*/ /*_.VALCLO___V972*/ curfptr[971] = (void*)&cdat->dclo_831__COMPILE2OBJ_INITPROC; cdat->dclo_831__COMPILE2OBJ_INITPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_831__COMPILE2OBJ_INITPROC.nbval = 0; /*iniobj dsym_832__CLASS_NREP_INITPROC*/ if (!/*_.VALDATA___V973*/ curfptr[972]) /*_.VALDATA___V973*/ curfptr[972] = (void*)&cdat->dsym_832__CLASS_NREP_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_832__CLASS_NREP_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_832__CLASS_NREP_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_832__CLASS_NREP_INITPROC.obj_hash = 915122709; cdat->dsym_832__CLASS_NREP_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_832__CLASS_NREP_INITPROC)); /*inistring dstr_833__CLASS_NREP_INITP*/ /*_.VALSTR___V974*/ curfptr[973] = (void*)&cdat->dstr_833__CLASS_NREP_INITP; cdat->dstr_833__CLASS_NREP_INITP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_833__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC", sizeof(cdat->dstr_833__CLASS_NREP_INITP.val)-1); /*iniobj dsym_834__CLASS_INITGENERCONTEXT*/ if (!/*_.VALDATA___V975*/ curfptr[974]) /*_.VALDATA___V975*/ curfptr[974] = (void*)&cdat->dsym_834__CLASS_INITGENERCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_834__CLASS_INITGENERCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_834__CLASS_INITGENERCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_834__CLASS_INITGENERCONTEXT.obj_hash = 813082126; cdat->dsym_834__CLASS_INITGENERCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_834__CLASS_INITGENERCONTEXT)); /*inistring dstr_835__CLASS_INITGENERC*/ /*_.VALSTR___V976*/ curfptr[975] = (void*)&cdat->dstr_835__CLASS_INITGENERC; cdat->dstr_835__CLASS_INITGENERC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_835__CLASS_INITGENERC.val, "CLASS_INITGENERCONTEXT", sizeof(cdat->dstr_835__CLASS_INITGENERC.val)-1); /*iniobj dsym_836__LIST_MAP*/ if (!/*_.VALDATA___V977*/ curfptr[976]) /*_.VALDATA___V977*/ curfptr[976] = (void*)&cdat->dsym_836__LIST_MAP; basilys_assertmsg("iniobj checkdiscr dsym_836__LIST_MAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_836__LIST_MAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_836__LIST_MAP.obj_hash = 941133477; cdat->dsym_836__LIST_MAP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_836__LIST_MAP)); /*inistring dstr_837__LIST_MAP*/ /*_.VALSTR___V978*/ curfptr[977] = (void*)&cdat->dstr_837__LIST_MAP; cdat->dstr_837__LIST_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_837__LIST_MAP.val, "LIST_MAP", sizeof(cdat->dstr_837__LIST_MAP.val)-1); /*inirout drout_838__LAMBDA_*/ /*_.VALROUT___V952*/ curfptr[951] = (void*)&cdat->drout_838__LAMBDA_; cdat->drout_838__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_838__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:828", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_838__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_838__LAMBDA_, rout_15_LAMBDA_); /*iniobj dsym_839__RETINIT_*/ if (!/*_.VALDATA___V953*/ curfptr[952]) /*_.VALDATA___V953*/ curfptr[952] = (void*)&cdat->dsym_839__RETINIT_; basilys_assertmsg("iniobj checkdiscr dsym_839__RETINIT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_839__RETINIT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_839__RETINIT_.obj_hash = 103322274; cdat->dsym_839__RETINIT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_839__RETINIT_)); /*inistring dstr_840__RETINIT_*/ /*_.VALSTR___V954*/ curfptr[953] = (void*)&cdat->dstr_840__RETINIT_; cdat->dstr_840__RETINIT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_840__RETINIT_.val, "_RETINIT_", sizeof(cdat->dstr_840__RETINIT_.val)-1); /*iniobj dsym_841__CONTENV_*/ if (!/*_.VALDATA___V955*/ curfptr[954]) /*_.VALDATA___V955*/ curfptr[954] = (void*)&cdat->dsym_841__CONTENV_; basilys_assertmsg("iniobj checkdiscr dsym_841__CONTENV_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_841__CONTENV_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_841__CONTENV_.obj_hash = 332262066; cdat->dsym_841__CONTENV_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_841__CONTENV_)); /*inistring dstr_842__CONTENV_*/ /*_.VALSTR___V956*/ curfptr[955] = (void*)&cdat->dstr_842__CONTENV_; cdat->dstr_842__CONTENV_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_842__CONTENV_.val, "_CONTENV_", sizeof(cdat->dstr_842__CONTENV_.val)-1); /*iniobj dsym_843__FRESHENV_*/ if (!/*_.VALDATA___V957*/ curfptr[956]) /*_.VALDATA___V957*/ curfptr[956] = (void*)&cdat->dsym_843__FRESHENV_; basilys_assertmsg("iniobj checkdiscr dsym_843__FRESHENV_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_843__FRESHENV_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_843__FRESHENV_.obj_hash = 796121246; cdat->dsym_843__FRESHENV_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_843__FRESHENV_)); /*inistring dstr_844__FRESHENV_*/ /*_.VALSTR___V958*/ curfptr[957] = (void*)&cdat->dstr_844__FRESHENV_; cdat->dstr_844__FRESHENV_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_844__FRESHENV_.val, "_FRESHENV_", sizeof(cdat->dstr_844__FRESHENV_.val)-1); /*iniobj dsym_845__PREVENV_*/ if (!/*_.VALDATA___V959*/ curfptr[958]) /*_.VALDATA___V959*/ curfptr[958] = (void*)&cdat->dsym_845__PREVENV_; basilys_assertmsg("iniobj checkdiscr dsym_845__PREVENV_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_845__PREVENV_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_845__PREVENV_.obj_hash = 72124100; cdat->dsym_845__PREVENV_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_845__PREVENV_)); /*inistring dstr_846__PREVENV_*/ /*_.VALSTR___V960*/ curfptr[959] = (void*)&cdat->dstr_846__PREVENV_; cdat->dstr_846__PREVENV_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_846__PREVENV_.val, "_PREVENV_", sizeof(cdat->dstr_846__PREVENV_.val)-1); /*iniobj dsym_847__VALEXPORT_*/ if (!/*_.VALDATA___V961*/ curfptr[960]) /*_.VALDATA___V961*/ curfptr[960] = (void*)&cdat->dsym_847__VALEXPORT_; basilys_assertmsg("iniobj checkdiscr dsym_847__VALEXPORT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_847__VALEXPORT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_847__VALEXPORT_.obj_hash = 587366079; cdat->dsym_847__VALEXPORT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_847__VALEXPORT_)); /*inistring dstr_848__VALEXPORT_*/ /*_.VALSTR___V962*/ curfptr[961] = (void*)&cdat->dstr_848__VALEXPORT_; cdat->dstr_848__VALEXPORT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_848__VALEXPORT_.val, "_VALEXPORT_", sizeof(cdat->dstr_848__VALEXPORT_.val)-1); /*iniobj dsym_849__VALIMPORT_*/ if (!/*_.VALDATA___V963*/ curfptr[962]) /*_.VALDATA___V963*/ curfptr[962] = (void*)&cdat->dsym_849__VALIMPORT_; basilys_assertmsg("iniobj checkdiscr dsym_849__VALIMPORT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_849__VALIMPORT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_849__VALIMPORT_.obj_hash = 1009523468; cdat->dsym_849__VALIMPORT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_849__VALIMPORT_)); /*inistring dstr_850__VALIMPORT_*/ /*_.VALSTR___V964*/ curfptr[963] = (void*)&cdat->dstr_850__VALIMPORT_; cdat->dstr_850__VALIMPORT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_850__VALIMPORT_.val, "_VALIMPORT_", sizeof(cdat->dstr_850__VALIMPORT_.val)-1); /*iniobj dsym_851__LIST1*/ if (!/*_.VALDATA___V979*/ curfptr[978]) /*_.VALDATA___V979*/ curfptr[978] = (void*)&cdat->dsym_851__LIST1; basilys_assertmsg("iniobj checkdiscr dsym_851__LIST1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_851__LIST1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_851__LIST1.obj_hash = 547472310; cdat->dsym_851__LIST1.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_851__LIST1)); /*inistring dstr_852__LIST1*/ /*_.VALSTR___V980*/ curfptr[979] = (void*)&cdat->dstr_852__LIST1; cdat->dstr_852__LIST1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_852__LIST1.val, "LIST1", sizeof(cdat->dstr_852__LIST1.val)-1); /*iniobj dsym_853__SYSDATA_CONT_FRESH_ENV*/ if (!/*_.VALDATA___V981*/ curfptr[980]) /*_.VALDATA___V981*/ curfptr[980] = (void*)&cdat->dsym_853__SYSDATA_CONT_FRESH_ENV; basilys_assertmsg("iniobj checkdiscr dsym_853__SYSDATA_CONT_FRESH_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_853__SYSDATA_CONT_FRESH_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_853__SYSDATA_CONT_FRESH_ENV.obj_hash = 628092944; cdat->dsym_853__SYSDATA_CONT_FRESH_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_853__SYSDATA_CONT_FRESH_ENV)); /*inistring dstr_854__SYSDATA_CONT_FRE*/ /*_.VALSTR___V982*/ curfptr[981] = (void*)&cdat->dstr_854__SYSDATA_CONT_FRE; cdat->dstr_854__SYSDATA_CONT_FRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_854__SYSDATA_CONT_FRE.val, "SYSDATA_CONT_FRESH_ENV", sizeof(cdat->dstr_854__SYSDATA_CONT_FRE.val)-1); /*iniobj dsym_855__DISCR_MULTIPLE*/ if (!/*_.VALDATA___V983*/ curfptr[982]) /*_.VALDATA___V983*/ curfptr[982] = (void*)&cdat->dsym_855__DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_855__DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_855__DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_855__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_855__DISCR_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_855__DISCR_MULTIPLE)); /*inistring dstr_856__DISCR_MULTIPLE*/ /*_.VALSTR___V984*/ curfptr[983] = (void*)&cdat->dstr_856__DISCR_MULTIPLE; cdat->dstr_856__DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_856__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof(cdat->dstr_856__DISCR_MULTIPLE.val)-1); /*iniobj dsym_857__DISCR_VERBATIMSTRING*/ if (!/*_.VALDATA___V985*/ curfptr[984]) /*_.VALDATA___V985*/ curfptr[984] = (void*)&cdat->dsym_857__DISCR_VERBATIMSTRING; basilys_assertmsg("iniobj checkdiscr dsym_857__DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_857__DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_857__DISCR_VERBATIMSTRING.obj_hash = 6759605; cdat->dsym_857__DISCR_VERBATIMSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_857__DISCR_VERBATIMSTRING)); /*inistring dstr_858__DISCR_VERBATIMST*/ /*_.VALSTR___V986*/ curfptr[985] = (void*)&cdat->dstr_858__DISCR_VERBATIMST; cdat->dstr_858__DISCR_VERBATIMST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_858__DISCR_VERBATIMST.val, "DISCR_VERBATIMSTRING", sizeof(cdat->dstr_858__DISCR_VERBATIMST.val)-1); /*inirout drout_859__LAMBDA_*/ /*_.VALROUT___V965*/ curfptr[964] = (void*)&cdat->drout_859__LAMBDA_; cdat->drout_859__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_859__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:917", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_859__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_859__LAMBDA_, rout_16_LAMBDA_); /*iniobj dsym_860__CLASS_NREP_IMPORTEDVAL*/ if (!/*_.VALDATA___V987*/ curfptr[986]) /*_.VALDATA___V987*/ curfptr[986] = (void*)&cdat->dsym_860__CLASS_NREP_IMPORTEDVAL; basilys_assertmsg("iniobj checkdiscr dsym_860__CLASS_NREP_IMPORTEDVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_860__CLASS_NREP_IMPORTEDVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_860__CLASS_NREP_IMPORTEDVAL.obj_hash = 143332453; cdat->dsym_860__CLASS_NREP_IMPORTEDVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_860__CLASS_NREP_IMPORTEDVAL)); /*inistring dstr_861__CLASS_NREP_IMPOR*/ /*_.VALSTR___V988*/ curfptr[987] = (void*)&cdat->dstr_861__CLASS_NREP_IMPOR; cdat->dstr_861__CLASS_NREP_IMPOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_861__CLASS_NREP_IMPOR.val, "CLASS_NREP_IMPORTEDVAL", sizeof(cdat->dstr_861__CLASS_NREP_IMPOR.val)-1); /*iniobj dsym_862__LIST_TO_MULTIPLE*/ if (!/*_.VALDATA___V989*/ curfptr[988]) /*_.VALDATA___V989*/ curfptr[988] = (void*)&cdat->dsym_862__LIST_TO_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_862__LIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_862__LIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_862__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_862__LIST_TO_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_862__LIST_TO_MULTIPLE)); /*inistring dstr_863__LIST_TO_MULTIPLE*/ /*_.VALSTR___V990*/ curfptr[989] = (void*)&cdat->dstr_863__LIST_TO_MULTIPLE; cdat->dstr_863__LIST_TO_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_863__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof(cdat->dstr_863__LIST_TO_MULTIPLE.val)-1); /*inirout drout_864__LAMBDA_*/ /*_.VALROUT___V966*/ curfptr[965] = (void*)&cdat->drout_864__LAMBDA_; cdat->drout_864__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_864__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:948", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_864__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_864__LAMBDA_, rout_17_LAMBDA_); /*iniobj dsym_865__CLASS_NREP_DATA*/ if (!/*_.VALDATA___V991*/ curfptr[990]) /*_.VALDATA___V991*/ curfptr[990] = (void*)&cdat->dsym_865__CLASS_NREP_DATA; basilys_assertmsg("iniobj checkdiscr dsym_865__CLASS_NREP_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_865__CLASS_NREP_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_865__CLASS_NREP_DATA.obj_hash = 746568035; cdat->dsym_865__CLASS_NREP_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_865__CLASS_NREP_DATA)); /*inistring dstr_866__CLASS_NREP_DATA*/ /*_.VALSTR___V992*/ curfptr[991] = (void*)&cdat->dstr_866__CLASS_NREP_DATA; cdat->dstr_866__CLASS_NREP_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_866__CLASS_NREP_DATA.val, "CLASS_NREP_DATA", sizeof(cdat->dstr_866__CLASS_NREP_DATA.val)-1); /*inirout drout_867__LAMBDA_*/ /*_.VALROUT___V967*/ curfptr[966] = (void*)&cdat->drout_867__LAMBDA_; cdat->drout_867__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_867__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:963", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_867__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_867__LAMBDA_, rout_18_LAMBDA_); /*iniobj dsym_868__MULTIPLE_EVERY*/ if (!/*_.VALDATA___V993*/ curfptr[992]) /*_.VALDATA___V993*/ curfptr[992] = (void*)&cdat->dsym_868__MULTIPLE_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_868__MULTIPLE_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_868__MULTIPLE_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_868__MULTIPLE_EVERY.obj_hash = 130098745; cdat->dsym_868__MULTIPLE_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_868__MULTIPLE_EVERY)); /*inistring dstr_869__MULTIPLE_EVERY*/ /*_.VALSTR___V994*/ curfptr[993] = (void*)&cdat->dstr_869__MULTIPLE_EVERY; cdat->dstr_869__MULTIPLE_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_869__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof(cdat->dstr_869__MULTIPLE_EVERY.val)-1); /*inirout drout_870__LAMBDA_*/ /*_.VALROUT___V968*/ curfptr[967] = (void*)&cdat->drout_870__LAMBDA_; cdat->drout_870__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_870__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:972", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_870__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_870__LAMBDA_, rout_19_LAMBDA_); /*iniobj dsym_871__CLASS_NREP_DATAKEYWORD*/ if (!/*_.VALDATA___V995*/ curfptr[994]) /*_.VALDATA___V995*/ curfptr[994] = (void*)&cdat->dsym_871__CLASS_NREP_DATAKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_871__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_871__CLASS_NREP_DATAKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_871__CLASS_NREP_DATAKEYWORD.obj_hash = 755124591; cdat->dsym_871__CLASS_NREP_DATAKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_871__CLASS_NREP_DATAKEYWORD)); /*inistring dstr_872__CLASS_NREP_DATAK*/ /*_.VALSTR___V996*/ curfptr[995] = (void*)&cdat->dstr_872__CLASS_NREP_DATAK; cdat->dstr_872__CLASS_NREP_DATAK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_872__CLASS_NREP_DATAK.val, "CLASS_NREP_DATAKEYWORD", sizeof(cdat->dstr_872__CLASS_NREP_DATAK.val)-1); /*iniobj dsym_873__CLASS_NREP_DATASYMBOL*/ if (!/*_.VALDATA___V997*/ curfptr[996]) /*_.VALDATA___V997*/ curfptr[996] = (void*)&cdat->dsym_873__CLASS_NREP_DATASYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_873__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_873__CLASS_NREP_DATASYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_873__CLASS_NREP_DATASYMBOL.obj_hash = 55902456; cdat->dsym_873__CLASS_NREP_DATASYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_873__CLASS_NREP_DATASYMBOL)); /*inistring dstr_874__CLASS_NREP_DATAS*/ /*_.VALSTR___V998*/ curfptr[997] = (void*)&cdat->dstr_874__CLASS_NREP_DATAS; cdat->dstr_874__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_874__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASYMBOL", sizeof(cdat->dstr_874__CLASS_NREP_DATAS.val)-1); /*iniobj dsym_875__SYSDATA_VALUE_IMPORTER*/ if (!/*_.VALDATA___V999*/ curfptr[998]) /*_.VALDATA___V999*/ curfptr[998] = (void*)&cdat->dsym_875__SYSDATA_VALUE_IMPORTER; basilys_assertmsg("iniobj checkdiscr dsym_875__SYSDATA_VALUE_IMPORTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_875__SYSDATA_VALUE_IMPORTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_875__SYSDATA_VALUE_IMPORTER.obj_hash = 705328400; cdat->dsym_875__SYSDATA_VALUE_IMPORTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_875__SYSDATA_VALUE_IMPORTER)); /*inistring dstr_876__SYSDATA_VALUE_IM*/ /*_.VALSTR___V1000*/ curfptr[999] = (void*)&cdat->dstr_876__SYSDATA_VALUE_IM; cdat->dstr_876__SYSDATA_VALUE_IM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_876__SYSDATA_VALUE_IM.val, "SYSDATA_VALUE_IMPORTER", sizeof(cdat->dstr_876__SYSDATA_VALUE_IM.val)-1); /*inirout drout_877__LAMBDA_*/ /*_.VALROUT___V969*/ curfptr[968] = (void*)&cdat->drout_877__LAMBDA_; cdat->drout_877__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_877__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1010", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_877__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_877__LAMBDA_, rout_20_LAMBDA_); /*inirout drout_878__LAMBDA_*/ /*_.VALROUT___V970*/ curfptr[969] = (void*)&cdat->drout_878__LAMBDA_; cdat->drout_878__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_878__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1030", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_878__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_878__LAMBDA_, rout_21_LAMBDA_); /*inirout drout_879__LAMBDA_*/ /*_.VALROUT___V971*/ curfptr[970] = (void*)&cdat->drout_879__LAMBDA_; cdat->drout_879__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_879__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1040", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_879__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_879__LAMBDA_, rout_22_LAMBDA_); /*iniobj dsym_880__COMPILE2OBJ_INITPROC*/ if (!/*_.VALDATA___V1001*/ curfptr[1000]) /*_.VALDATA___V1001*/ curfptr[1000] = (void*)&cdat->dsym_880__COMPILE2OBJ_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_880__COMPILE2OBJ_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_880__COMPILE2OBJ_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_880__COMPILE2OBJ_INITPROC.obj_hash = 795051323; cdat->dsym_880__COMPILE2OBJ_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_880__COMPILE2OBJ_INITPROC)); /*inistring dstr_881__COMPILE2OBJ_INIT*/ /*_.VALSTR___V1002*/ curfptr[1001] = (void*)&cdat->dstr_881__COMPILE2OBJ_INIT; cdat->dstr_881__COMPILE2OBJ_INIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_881__COMPILE2OBJ_INIT.val, "COMPILE2OBJ_INITPROC", sizeof(cdat->dstr_881__COMPILE2OBJ_INIT.val)-1); /*iniobj dsym_882__COMPILE2OBJ_PROCEDURE*/ if (!/*_.VALDATA___V1003*/ curfptr[1002]) /*_.VALDATA___V1003*/ curfptr[1002] = (void*)&cdat->dsym_882__COMPILE2OBJ_PROCEDURE; basilys_assertmsg("iniobj checkdiscr dsym_882__COMPILE2OBJ_PROCEDURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_882__COMPILE2OBJ_PROCEDURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_882__COMPILE2OBJ_PROCEDURE.obj_hash = 315972622; cdat->dsym_882__COMPILE2OBJ_PROCEDURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_882__COMPILE2OBJ_PROCEDURE)); /*inistring dstr_883__COMPILE2OBJ_PROC*/ /*_.VALSTR___V1004*/ curfptr[1003] = (void*)&cdat->dstr_883__COMPILE2OBJ_PROC; cdat->dstr_883__COMPILE2OBJ_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_883__COMPILE2OBJ_PROC.val, "COMPILE2OBJ_PROCEDURE", sizeof(cdat->dstr_883__COMPILE2OBJ_PROC.val)-1); /*inirout drout_884__GET_FREE_OBJLOCPTR*/ /*_.VALROUT___V910*/ curfptr[909] = (void*)&cdat->drout_884__GET_FREE_OBJLOCPTR; cdat->drout_884__GET_FREE_OBJLOCPTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_884__GET_FREE_OBJLOCPTR.routdescr, "GET_FREE_OBJLOCPTR @warmelt-genobj.melt:1097", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_884__GET_FREE_OBJLOCPTR.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_884__GET_FREE_OBJLOCPTR, rout_23_GET_FREE_OBJLOCPTR); /*iniclos dclo_885__GET_FREE_OBJLOCPTR*/ /*_.VALCLO___V909*/ curfptr[908] = (void*)&cdat->dclo_885__GET_FREE_OBJLOCPTR; cdat->dclo_885__GET_FREE_OBJLOCPTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_885__GET_FREE_OBJLOCPTR.nbval = 0; /*inirout drout_886__GET_FREE_OBJLOCLONG*/ /*_.VALROUT___V914*/ curfptr[913] = (void*)&cdat->drout_886__GET_FREE_OBJLOCLONG; cdat->drout_886__GET_FREE_OBJLOCLONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_886__GET_FREE_OBJLOCLONG.routdescr, "GET_FREE_OBJLOCLONG @warmelt-genobj.melt:1148", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_886__GET_FREE_OBJLOCLONG.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_886__GET_FREE_OBJLOCLONG, rout_24_GET_FREE_OBJLOCLONG); /*iniclos dclo_887__GET_FREE_OBJLOCLONG*/ /*_.VALCLO___V913*/ curfptr[912] = (void*)&cdat->dclo_887__GET_FREE_OBJLOCLONG; cdat->dclo_887__GET_FREE_OBJLOCLONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_887__GET_FREE_OBJLOCLONG.nbval = 0; /*inirout drout_888__GET_FREE_OBJLOCTYPED*/ /*_.VALROUT___V916*/ curfptr[915] = (void*)&cdat->drout_888__GET_FREE_OBJLOCTYPED; cdat->drout_888__GET_FREE_OBJLOCTYPED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_888__GET_FREE_OBJLOCTYPED.routdescr, "GET_FREE_OBJLOCTYPED @warmelt-genobj.melt:1189", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_888__GET_FREE_OBJLOCTYPED.nbval = 14; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_888__GET_FREE_OBJLOCTYPED, rout_25_GET_FREE_OBJLOCTYPED); /*iniclos dclo_889__GET_FREE_OBJLOCTYPED*/ /*_.VALCLO___V915*/ curfptr[914] = (void*)&cdat->dclo_889__GET_FREE_OBJLOCTYPED; cdat->dclo_889__GET_FREE_OBJLOCTYPED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_889__GET_FREE_OBJLOCTYPED.nbval = 0; /*iniobj dsym_890__CLASS_CTYPE*/ if (!/*_.VALDATA___V1005*/ curfptr[1004]) /*_.VALDATA___V1005*/ curfptr[1004] = (void*)&cdat->dsym_890__CLASS_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_890__CLASS_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_890__CLASS_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_890__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_890__CLASS_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_890__CLASS_CTYPE)); /*inistring dstr_891__CLASS_CTYPE*/ /*_.VALSTR___V1006*/ curfptr[1005] = (void*)&cdat->dstr_891__CLASS_CTYPE; cdat->dstr_891__CLASS_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_891__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof(cdat->dstr_891__CLASS_CTYPE.val)-1); /*iniobj dsym_892__CTYPE_VOID*/ if (!/*_.VALDATA___V1007*/ curfptr[1006]) /*_.VALDATA___V1007*/ curfptr[1006] = (void*)&cdat->dsym_892__CTYPE_VOID; basilys_assertmsg("iniobj checkdiscr dsym_892__CTYPE_VOID", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_892__CTYPE_VOID.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_892__CTYPE_VOID.obj_hash = 94242002; cdat->dsym_892__CTYPE_VOID.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_892__CTYPE_VOID)); /*inistring dstr_893__CTYPE_VOID*/ /*_.VALSTR___V1008*/ curfptr[1007] = (void*)&cdat->dstr_893__CTYPE_VOID; cdat->dstr_893__CTYPE_VOID.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_893__CTYPE_VOID.val, "CTYPE_VOID", sizeof(cdat->dstr_893__CTYPE_VOID.val)-1); /*inirout drout_894__DISPOSE_OBJLOC*/ /*_.VALROUT___V1009*/ curfptr[1008] = (void*)&cdat->drout_894__DISPOSE_OBJLOC; cdat->drout_894__DISPOSE_OBJLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_894__DISPOSE_OBJLOC.routdescr, "DISPOSE_OBJLOC @warmelt-genobj.melt:1248", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_894__DISPOSE_OBJLOC.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_894__DISPOSE_OBJLOC, rout_26_DISPOSE_OBJLOC); /*iniclos dclo_895__DISPOSE_OBJLOC*/ /*_.VALCLO___V1010*/ curfptr[1009] = (void*)&cdat->dclo_895__DISPOSE_OBJLOC; cdat->dclo_895__DISPOSE_OBJLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_895__DISPOSE_OBJLOC.nbval = 0; /*inirout drout_896__DISPOSE_BND_OBJ*/ /*_.VALROUT___V1011*/ curfptr[1010] = (void*)&cdat->drout_896__DISPOSE_BND_OBJ; cdat->drout_896__DISPOSE_BND_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_896__DISPOSE_BND_OBJ.routdescr, "DISPOSE_BND_OBJ @warmelt-genobj.melt:1277", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_896__DISPOSE_BND_OBJ.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_896__DISPOSE_BND_OBJ, rout_27_DISPOSE_BND_OBJ); /*iniclos dclo_897__DISPOSE_BND_OBJ*/ /*_.VALCLO___V1012*/ curfptr[1011] = (void*)&cdat->dclo_897__DISPOSE_BND_OBJ; cdat->dclo_897__DISPOSE_BND_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_897__DISPOSE_BND_OBJ.nbval = 0; /*iniobj dsym_898__CLASS_ANY_BINDING*/ if (!/*_.VALDATA___V1013*/ curfptr[1012]) /*_.VALDATA___V1013*/ curfptr[1012] = (void*)&cdat->dsym_898__CLASS_ANY_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_898__CLASS_ANY_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_898__CLASS_ANY_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_898__CLASS_ANY_BINDING.obj_hash = 935770; cdat->dsym_898__CLASS_ANY_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_898__CLASS_ANY_BINDING)); /*inistring dstr_899__CLASS_ANY_BINDIN*/ /*_.VALSTR___V1014*/ curfptr[1013] = (void*)&cdat->dstr_899__CLASS_ANY_BINDIN; cdat->dstr_899__CLASS_ANY_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_899__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof(cdat->dstr_899__CLASS_ANY_BINDIN.val)-1); /*iniobj dsym_900__CLASS_LET_BINDING*/ if (!/*_.VALDATA___V1015*/ curfptr[1014]) /*_.VALDATA___V1015*/ curfptr[1014] = (void*)&cdat->dsym_900__CLASS_LET_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_900__CLASS_LET_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_900__CLASS_LET_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_900__CLASS_LET_BINDING.obj_hash = 373730517; cdat->dsym_900__CLASS_LET_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_900__CLASS_LET_BINDING)); /*inistring dstr_901__CLASS_LET_BINDIN*/ /*_.VALSTR___V1016*/ curfptr[1015] = (void*)&cdat->dstr_901__CLASS_LET_BINDIN; cdat->dstr_901__CLASS_LET_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_901__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING", sizeof(cdat->dstr_901__CLASS_LET_BINDIN.val)-1); /*inirout drout_902__COMPILOBJ_NREP_CHUNK*/ /*_.VALROUT___V1017*/ curfptr[1016] = (void*)&cdat->drout_902__COMPILOBJ_NREP_CHUNK; cdat->drout_902__COMPILOBJ_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_902__COMPILOBJ_NREP_CHUNK.routdescr, "COMPILOBJ_NREP_CHUNK @warmelt-genobj.melt:1300", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_902__COMPILOBJ_NREP_CHUNK.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_902__COMPILOBJ_NREP_CHUNK, rout_28_COMPILOBJ_NREP_CHUNK); /*iniclos dclo_903__COMPILOBJ_NREP_CHUNK*/ /*_.VALCLO___V1019*/ curfptr[1018] = (void*)&cdat->dclo_903__COMPILOBJ_NREP_CHUNK; cdat->dclo_903__COMPILOBJ_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_903__COMPILOBJ_NREP_CHUNK.nbval = 0; /*iniobj dsym_904__CLASS_NREP_CHUNK*/ if (!/*_.VALDATA___V1020*/ curfptr[1019]) /*_.VALDATA___V1020*/ curfptr[1019] = (void*)&cdat->dsym_904__CLASS_NREP_CHUNK; basilys_assertmsg("iniobj checkdiscr dsym_904__CLASS_NREP_CHUNK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_904__CLASS_NREP_CHUNK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_904__CLASS_NREP_CHUNK.obj_hash = 877025959; cdat->dsym_904__CLASS_NREP_CHUNK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_904__CLASS_NREP_CHUNK)); /*inistring dstr_905__CLASS_NREP_CHUNK*/ /*_.VALSTR___V1021*/ curfptr[1020] = (void*)&cdat->dstr_905__CLASS_NREP_CHUNK; cdat->dstr_905__CLASS_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_905__CLASS_NREP_CHUNK.val, "CLASS_NREP_CHUNK", sizeof(cdat->dstr_905__CLASS_NREP_CHUNK.val)-1); /*inirout drout_906__LAMBDA_*/ /*_.VALROUT___V1018*/ curfptr[1017] = (void*)&cdat->drout_906__LAMBDA_; cdat->drout_906__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_906__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1314", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_906__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_906__LAMBDA_, rout_29_LAMBDA_); /*inirout drout_907__GETCTYPE_TYPEXPR*/ /*_.VALROUT___V1022*/ curfptr[1021] = (void*)&cdat->drout_907__GETCTYPE_TYPEXPR; cdat->drout_907__GETCTYPE_TYPEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_907__GETCTYPE_TYPEXPR.routdescr, "GETCTYPE_TYPEXPR @warmelt-genobj.melt:1339", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_907__GETCTYPE_TYPEXPR.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_907__GETCTYPE_TYPEXPR, rout_30_GETCTYPE_TYPEXPR); /*iniclos dclo_908__GETCTYPE_TYPEXPR*/ /*_.VALCLO___V1023*/ curfptr[1022] = (void*)&cdat->dclo_908__GETCTYPE_TYPEXPR; cdat->dclo_908__GETCTYPE_TYPEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_908__GETCTYPE_TYPEXPR.nbval = 0; /*iniobj dsym_909__CLASS_NREP_TYPEXPR*/ if (!/*_.VALDATA___V1024*/ curfptr[1023]) /*_.VALDATA___V1024*/ curfptr[1023] = (void*)&cdat->dsym_909__CLASS_NREP_TYPEXPR; basilys_assertmsg("iniobj checkdiscr dsym_909__CLASS_NREP_TYPEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_909__CLASS_NREP_TYPEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_909__CLASS_NREP_TYPEXPR.obj_hash = 874739025; cdat->dsym_909__CLASS_NREP_TYPEXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_909__CLASS_NREP_TYPEXPR)); /*inistring dstr_910__CLASS_NREP_TYPEX*/ /*_.VALSTR___V1025*/ curfptr[1024] = (void*)&cdat->dstr_910__CLASS_NREP_TYPEX; cdat->dstr_910__CLASS_NREP_TYPEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_910__CLASS_NREP_TYPEX.val, "CLASS_NREP_TYPEXPR", sizeof(cdat->dstr_910__CLASS_NREP_TYPEX.val)-1); /*inirout drout_911__COMPILOBJ_NREP_NIL*/ /*_.VALROUT___V1026*/ curfptr[1025] = (void*)&cdat->drout_911__COMPILOBJ_NREP_NIL; cdat->drout_911__COMPILOBJ_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_911__COMPILOBJ_NREP_NIL.routdescr, "COMPILOBJ_NREP_NIL @warmelt-genobj.melt:1345", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_911__COMPILOBJ_NREP_NIL.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_911__COMPILOBJ_NREP_NIL, rout_31_COMPILOBJ_NREP_NIL); /*iniclos dclo_912__COMPILOBJ_NREP_NIL*/ /*_.VALCLO___V1027*/ curfptr[1026] = (void*)&cdat->dclo_912__COMPILOBJ_NREP_NIL; cdat->dclo_912__COMPILOBJ_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_912__COMPILOBJ_NREP_NIL.nbval = 0; /*iniobj dsym_913__CLASS_NREP_NIL*/ if (!/*_.VALDATA___V1028*/ curfptr[1027]) /*_.VALDATA___V1028*/ curfptr[1027] = (void*)&cdat->dsym_913__CLASS_NREP_NIL; basilys_assertmsg("iniobj checkdiscr dsym_913__CLASS_NREP_NIL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_913__CLASS_NREP_NIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_913__CLASS_NREP_NIL.obj_hash = 607452589; cdat->dsym_913__CLASS_NREP_NIL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_913__CLASS_NREP_NIL)); /*inistring dstr_914__CLASS_NREP_NIL*/ /*_.VALSTR___V1029*/ curfptr[1028] = (void*)&cdat->dstr_914__CLASS_NREP_NIL; cdat->dstr_914__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_914__CLASS_NREP_NIL.val, "CLASS_NREP_NIL", sizeof(cdat->dstr_914__CLASS_NREP_NIL.val)-1); /*inirout drout_915__COMPILOBJ_NREP_COMMENT*/ /*_.VALROUT___V1030*/ curfptr[1029] = (void*)&cdat->drout_915__COMPILOBJ_NREP_COMMENT; cdat->drout_915__COMPILOBJ_NREP_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_915__COMPILOBJ_NREP_COMMENT.routdescr, "COMPILOBJ_NREP_COMMENT @warmelt-genobj.melt:1357", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_915__COMPILOBJ_NREP_COMMENT.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_915__COMPILOBJ_NREP_COMMENT, rout_32_COMPILOBJ_NREP_COMMENT); /*iniclos dclo_916__COMPILOBJ_NREP_COMMENT*/ /*_.VALCLO___V1031*/ curfptr[1030] = (void*)&cdat->dclo_916__COMPILOBJ_NREP_COMMENT; cdat->dclo_916__COMPILOBJ_NREP_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_916__COMPILOBJ_NREP_COMMENT.nbval = 0; /*iniobj dsym_917__CLASS_NREP_COMMENT*/ if (!/*_.VALDATA___V1032*/ curfptr[1031]) /*_.VALDATA___V1032*/ curfptr[1031] = (void*)&cdat->dsym_917__CLASS_NREP_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_917__CLASS_NREP_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_917__CLASS_NREP_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_917__CLASS_NREP_COMMENT.obj_hash = 351814368; cdat->dsym_917__CLASS_NREP_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_917__CLASS_NREP_COMMENT)); /*inistring dstr_918__CLASS_NREP_COMME*/ /*_.VALSTR___V1033*/ curfptr[1032] = (void*)&cdat->dstr_918__CLASS_NREP_COMME; cdat->dstr_918__CLASS_NREP_COMME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_918__CLASS_NREP_COMME.val, "CLASS_NREP_COMMENT", sizeof(cdat->dstr_918__CLASS_NREP_COMME.val)-1); /*inirout drout_919__COMPILOBJ_NREP_LOCSYMOCC*/ /*_.VALROUT___V1034*/ curfptr[1033] = (void*)&cdat->drout_919__COMPILOBJ_NREP_LOCSYMOCC; cdat->drout_919__COMPILOBJ_NREP_LOCSYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_919__COMPILOBJ_NREP_LOCSYMOCC.routdescr, "COMPILOBJ_NREP_LOCSYMOCC @warmelt-genobj.melt:1381", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_919__COMPILOBJ_NREP_LOCSYMOCC.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_919__COMPILOBJ_NREP_LOCSYMOCC, rout_33_COMPILOBJ_NREP_LOCSYMOCC); /*iniclos dclo_920__COMPILOBJ_NREP_LOCSYMOCC*/ /*_.VALCLO___V1035*/ curfptr[1034] = (void*)&cdat->dclo_920__COMPILOBJ_NREP_LOCSYMOCC; cdat->dclo_920__COMPILOBJ_NREP_LOCSYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_920__COMPILOBJ_NREP_LOCSYMOCC.nbval = 0; /*iniobj dsym_921__CLASS_NREP_LOCSYMOCC*/ if (!/*_.VALDATA___V1036*/ curfptr[1035]) /*_.VALDATA___V1036*/ curfptr[1035] = (void*)&cdat->dsym_921__CLASS_NREP_LOCSYMOCC; basilys_assertmsg("iniobj checkdiscr dsym_921__CLASS_NREP_LOCSYMOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_921__CLASS_NREP_LOCSYMOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_921__CLASS_NREP_LOCSYMOCC.obj_hash = 614887922; cdat->dsym_921__CLASS_NREP_LOCSYMOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_921__CLASS_NREP_LOCSYMOCC)); /*inistring dstr_922__CLASS_NREP_LOCSY*/ /*_.VALSTR___V1037*/ curfptr[1036] = (void*)&cdat->dstr_922__CLASS_NREP_LOCSY; cdat->dstr_922__CLASS_NREP_LOCSY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_922__CLASS_NREP_LOCSY.val, "CLASS_NREP_LOCSYMOCC", sizeof(cdat->dstr_922__CLASS_NREP_LOCSY.val)-1); /*inirout drout_923__COMPILOBJ_NREP_CLOSEDOCC*/ /*_.VALROUT___V1038*/ curfptr[1037] = (void*)&cdat->drout_923__COMPILOBJ_NREP_CLOSEDOCC; cdat->drout_923__COMPILOBJ_NREP_CLOSEDOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_923__COMPILOBJ_NREP_CLOSEDOCC.routdescr, "COMPILOBJ_NREP_CLOSEDOCC @warmelt-genobj.melt:1418", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_923__COMPILOBJ_NREP_CLOSEDOCC.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_923__COMPILOBJ_NREP_CLOSEDOCC, rout_34_COMPILOBJ_NREP_CLOSEDOCC); /*iniclos dclo_924__COMPILOBJ_NREP_CLOSEDOCC*/ /*_.VALCLO___V1039*/ curfptr[1038] = (void*)&cdat->dclo_924__COMPILOBJ_NREP_CLOSEDOCC; cdat->dclo_924__COMPILOBJ_NREP_CLOSEDOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_924__COMPILOBJ_NREP_CLOSEDOCC.nbval = 0; /*iniobj dsym_925__CLASS_NREP_CLOSEDOCC*/ if (!/*_.VALDATA___V1040*/ curfptr[1039]) /*_.VALDATA___V1040*/ curfptr[1039] = (void*)&cdat->dsym_925__CLASS_NREP_CLOSEDOCC; basilys_assertmsg("iniobj checkdiscr dsym_925__CLASS_NREP_CLOSEDOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_925__CLASS_NREP_CLOSEDOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_925__CLASS_NREP_CLOSEDOCC.obj_hash = 907150232; cdat->dsym_925__CLASS_NREP_CLOSEDOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_925__CLASS_NREP_CLOSEDOCC)); /*inistring dstr_926__CLASS_NREP_CLOSE*/ /*_.VALSTR___V1041*/ curfptr[1040] = (void*)&cdat->dstr_926__CLASS_NREP_CLOSE; cdat->dstr_926__CLASS_NREP_CLOSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_926__CLASS_NREP_CLOSE.val, "CLASS_NREP_CLOSEDOCC", sizeof(cdat->dstr_926__CLASS_NREP_CLOSE.val)-1); /*inirout drout_927__COMPILOBJ_NREP_CONSTOCC*/ /*_.VALROUT___V1042*/ curfptr[1041] = (void*)&cdat->drout_927__COMPILOBJ_NREP_CONSTOCC; cdat->drout_927__COMPILOBJ_NREP_CONSTOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_927__COMPILOBJ_NREP_CONSTOCC.routdescr, "COMPILOBJ_NREP_CONSTOCC @warmelt-genobj.melt:1472", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_927__COMPILOBJ_NREP_CONSTOCC.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_927__COMPILOBJ_NREP_CONSTOCC, rout_35_COMPILOBJ_NREP_CONSTOCC); /*iniclos dclo_928__COMPILOBJ_NREP_CONSTOCC*/ /*_.VALCLO___V1043*/ curfptr[1042] = (void*)&cdat->dclo_928__COMPILOBJ_NREP_CONSTOCC; cdat->dclo_928__COMPILOBJ_NREP_CONSTOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_928__COMPILOBJ_NREP_CONSTOCC.nbval = 0; /*iniobj dsym_929__CLASS_NREP_CONSTOCC*/ if (!/*_.VALDATA___V1044*/ curfptr[1043]) /*_.VALDATA___V1044*/ curfptr[1043] = (void*)&cdat->dsym_929__CLASS_NREP_CONSTOCC; basilys_assertmsg("iniobj checkdiscr dsym_929__CLASS_NREP_CONSTOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_929__CLASS_NREP_CONSTOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_929__CLASS_NREP_CONSTOCC.obj_hash = 1065884175; cdat->dsym_929__CLASS_NREP_CONSTOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_929__CLASS_NREP_CONSTOCC)); /*inistring dstr_930__CLASS_NREP_CONST*/ /*_.VALSTR___V1045*/ curfptr[1044] = (void*)&cdat->dstr_930__CLASS_NREP_CONST; cdat->dstr_930__CLASS_NREP_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_930__CLASS_NREP_CONST.val, "CLASS_NREP_CONSTOCC", sizeof(cdat->dstr_930__CLASS_NREP_CONST.val)-1); /*inirout drout_931__COMPILOBJ_NREP_IMPORTEDVAL*/ /*_.VALROUT___V1046*/ curfptr[1045] = (void*)&cdat->drout_931__COMPILOBJ_NREP_IMPORTEDVAL; cdat->drout_931__COMPILOBJ_NREP_IMPORTEDVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_931__COMPILOBJ_NREP_IMPORTEDVAL.routdescr, "COMPILOBJ_NREP_IMPORTEDVAL @warmelt-genobj.melt:1524", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_931__COMPILOBJ_NREP_IMPORTEDVAL.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_931__COMPILOBJ_NREP_IMPORTEDVAL, rout_36_COMPILOBJ_NREP_IMPORTEDVAL); /*iniclos dclo_932__COMPILOBJ_NREP_IMPORTEDVAL*/ /*_.VALCLO___V1047*/ curfptr[1046] = (void*)&cdat->dclo_932__COMPILOBJ_NREP_IMPORTEDVAL; cdat->dclo_932__COMPILOBJ_NREP_IMPORTEDVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_932__COMPILOBJ_NREP_IMPORTEDVAL.nbval = 0; /*iniobj dsym_933__CLASS_SYMBOL*/ if (!/*_.VALDATA___V1048*/ curfptr[1047]) /*_.VALDATA___V1048*/ curfptr[1047] = (void*)&cdat->dsym_933__CLASS_SYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_933__CLASS_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_933__CLASS_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_933__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_933__CLASS_SYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_933__CLASS_SYMBOL)); /*inistring dstr_934__CLASS_SYMBOL*/ /*_.VALSTR___V1049*/ curfptr[1048] = (void*)&cdat->dstr_934__CLASS_SYMBOL; cdat->dstr_934__CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_934__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof(cdat->dstr_934__CLASS_SYMBOL.val)-1); /*inirout drout_935__COMPILOBJ_NREP_QUASICONSTANT*/ /*_.VALROUT___V1050*/ curfptr[1049] = (void*)&cdat->drout_935__COMPILOBJ_NREP_QUASICONSTANT; cdat->drout_935__COMPILOBJ_NREP_QUASICONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_935__COMPILOBJ_NREP_QUASICONSTANT.routdescr, "COMPILOBJ_NREP_QUASICONSTANT @warmelt-genobj.melt:1541", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_935__COMPILOBJ_NREP_QUASICONSTANT.nbval = 11; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_935__COMPILOBJ_NREP_QUASICONSTANT, rout_37_COMPILOBJ_NREP_QUASICONSTANT); /*iniclos dclo_936__COMPILOBJ_NREP_QUASICONSTANT*/ /*_.VALCLO___V1051*/ curfptr[1050] = (void*)&cdat->dclo_936__COMPILOBJ_NREP_QUASICONSTANT; cdat->dclo_936__COMPILOBJ_NREP_QUASICONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_936__COMPILOBJ_NREP_QUASICONSTANT.nbval = 0; /*iniobj dsym_937__CLASS_NREP_QUASICONSTANT*/ if (!/*_.VALDATA___V1052*/ curfptr[1051]) /*_.VALDATA___V1052*/ curfptr[1051] = (void*)&cdat->dsym_937__CLASS_NREP_QUASICONSTANT; basilys_assertmsg("iniobj checkdiscr dsym_937__CLASS_NREP_QUASICONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_937__CLASS_NREP_QUASICONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_937__CLASS_NREP_QUASICONSTANT.obj_hash = 430834528; cdat->dsym_937__CLASS_NREP_QUASICONSTANT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_937__CLASS_NREP_QUASICONSTANT)); /*inistring dstr_938__CLASS_NREP_QUASI*/ /*_.VALSTR___V1053*/ curfptr[1052] = (void*)&cdat->dstr_938__CLASS_NREP_QUASI; cdat->dstr_938__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_938__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONSTANT", sizeof(cdat->dstr_938__CLASS_NREP_QUASI.val)-1); /*inirout drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1054*/ curfptr[1053] = (void*)&cdat->drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:1600", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_38_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER); /*iniclos dclo_940__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALCLO___V1055*/ curfptr[1054] = (void*)&cdat->dclo_940__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_940__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_940__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*iniobj dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V1056*/ curfptr[1055]) /*_.VALDATA___V1056*/ curfptr[1055] = (void*)&cdat->dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 576407711; cdat->dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_941__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_942__CLASS_NREP_QUASI*/ /*_.VALSTR___V1057*/ curfptr[1056] = (void*)&cdat->dstr_942__CLASS_NREP_QUASI; cdat->dstr_942__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_942__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof(cdat->dstr_942__CLASS_NREP_QUASI.val)-1); /*inirout drout_943__COMPILOBJ_NREP_FOREVER*/ /*_.VALROUT___V1058*/ curfptr[1057] = (void*)&cdat->drout_943__COMPILOBJ_NREP_FOREVER; cdat->drout_943__COMPILOBJ_NREP_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_943__COMPILOBJ_NREP_FOREVER.routdescr, "COMPILOBJ_NREP_FOREVER @warmelt-genobj.melt:1629", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_943__COMPILOBJ_NREP_FOREVER.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_943__COMPILOBJ_NREP_FOREVER, rout_39_COMPILOBJ_NREP_FOREVER); /*iniclos dclo_944__COMPILOBJ_NREP_FOREVER*/ /*_.VALCLO___V1060*/ curfptr[1059] = (void*)&cdat->dclo_944__COMPILOBJ_NREP_FOREVER; cdat->dclo_944__COMPILOBJ_NREP_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_944__COMPILOBJ_NREP_FOREVER.nbval = 0; /*iniobj dsym_945__CLASS_NREP_FOREVER*/ if (!/*_.VALDATA___V1061*/ curfptr[1060]) /*_.VALDATA___V1061*/ curfptr[1060] = (void*)&cdat->dsym_945__CLASS_NREP_FOREVER; basilys_assertmsg("iniobj checkdiscr dsym_945__CLASS_NREP_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_945__CLASS_NREP_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_945__CLASS_NREP_FOREVER.obj_hash = 590813330; cdat->dsym_945__CLASS_NREP_FOREVER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_945__CLASS_NREP_FOREVER)); /*inistring dstr_946__CLASS_NREP_FOREV*/ /*_.VALSTR___V1062*/ curfptr[1061] = (void*)&cdat->dstr_946__CLASS_NREP_FOREV; cdat->dstr_946__CLASS_NREP_FOREV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_946__CLASS_NREP_FOREV.val, "CLASS_NREP_FOREVER", sizeof(cdat->dstr_946__CLASS_NREP_FOREV.val)-1); /*iniobj dsym_947__CLASS_LABEL_BINDING*/ if (!/*_.VALDATA___V1063*/ curfptr[1062]) /*_.VALDATA___V1063*/ curfptr[1062] = (void*)&cdat->dsym_947__CLASS_LABEL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_947__CLASS_LABEL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_947__CLASS_LABEL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_947__CLASS_LABEL_BINDING.obj_hash = 513737494; cdat->dsym_947__CLASS_LABEL_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_947__CLASS_LABEL_BINDING)); /*inistring dstr_948__CLASS_LABEL_BIND*/ /*_.VALSTR___V1064*/ curfptr[1063] = (void*)&cdat->dstr_948__CLASS_LABEL_BIND; cdat->dstr_948__CLASS_LABEL_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_948__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING", sizeof(cdat->dstr_948__CLASS_LABEL_BIND.val)-1); /*iniobj dsym_949__CLASS_CLONEDSYMBOL*/ if (!/*_.VALDATA___V1065*/ curfptr[1064]) /*_.VALDATA___V1065*/ curfptr[1064] = (void*)&cdat->dsym_949__CLASS_CLONEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_949__CLASS_CLONEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_949__CLASS_CLONEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_949__CLASS_CLONEDSYMBOL.obj_hash = 101008864; cdat->dsym_949__CLASS_CLONEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_949__CLASS_CLONEDSYMBOL)); /*inistring dstr_950__CLASS_CLONEDSYMB*/ /*_.VALSTR___V1066*/ curfptr[1065] = (void*)&cdat->dstr_950__CLASS_CLONEDSYMB; cdat->dstr_950__CLASS_CLONEDSYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_950__CLASS_CLONEDSYMB.val, "CLASS_CLONEDSYMBOL", sizeof(cdat->dstr_950__CLASS_CLONEDSYMB.val)-1); /*inirout drout_951__LAMBDA_*/ /*_.VALROUT___V1059*/ curfptr[1058] = (void*)&cdat->drout_951__LAMBDA_; cdat->drout_951__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_951__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1668", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_951__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_951__LAMBDA_, rout_40_LAMBDA_); /*inirout drout_952__COMPILOBJ_NREP_EXIT*/ /*_.VALROUT___V1067*/ curfptr[1066] = (void*)&cdat->drout_952__COMPILOBJ_NREP_EXIT; cdat->drout_952__COMPILOBJ_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_952__COMPILOBJ_NREP_EXIT.routdescr, "COMPILOBJ_NREP_EXIT @warmelt-genobj.melt:1679", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_952__COMPILOBJ_NREP_EXIT.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_952__COMPILOBJ_NREP_EXIT, rout_41_COMPILOBJ_NREP_EXIT); /*iniclos dclo_953__COMPILOBJ_NREP_EXIT*/ /*_.VALCLO___V1068*/ curfptr[1067] = (void*)&cdat->dclo_953__COMPILOBJ_NREP_EXIT; cdat->dclo_953__COMPILOBJ_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_953__COMPILOBJ_NREP_EXIT.nbval = 0; /*iniobj dsym_954__CLASS_NREP_EXIT*/ if (!/*_.VALDATA___V1069*/ curfptr[1068]) /*_.VALDATA___V1069*/ curfptr[1068] = (void*)&cdat->dsym_954__CLASS_NREP_EXIT; basilys_assertmsg("iniobj checkdiscr dsym_954__CLASS_NREP_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_954__CLASS_NREP_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_954__CLASS_NREP_EXIT.obj_hash = 563709683; cdat->dsym_954__CLASS_NREP_EXIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_954__CLASS_NREP_EXIT)); /*inistring dstr_955__CLASS_NREP_EXIT*/ /*_.VALSTR___V1070*/ curfptr[1069] = (void*)&cdat->dstr_955__CLASS_NREP_EXIT; cdat->dstr_955__CLASS_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_955__CLASS_NREP_EXIT.val, "CLASS_NREP_EXIT", sizeof(cdat->dstr_955__CLASS_NREP_EXIT.val)-1); /*inirout drout_956__COMPILOBJ_DISCRANY*/ /*_.VALROUT___V1071*/ curfptr[1070] = (void*)&cdat->drout_956__COMPILOBJ_DISCRANY; cdat->drout_956__COMPILOBJ_DISCRANY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_956__COMPILOBJ_DISCRANY.routdescr, "COMPILOBJ_DISCRANY @warmelt-genobj.melt:1718", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_956__COMPILOBJ_DISCRANY.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_956__COMPILOBJ_DISCRANY, rout_42_COMPILOBJ_DISCRANY); /*iniclos dclo_957__COMPILOBJ_DISCRANY*/ /*_.VALCLO___V1072*/ curfptr[1071] = (void*)&cdat->dclo_957__COMPILOBJ_DISCRANY; cdat->dclo_957__COMPILOBJ_DISCRANY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_957__COMPILOBJ_DISCRANY.nbval = 0; /*inirout drout_958__COMPILOBJ_NREP_LET*/ /*_.VALROUT___V1073*/ curfptr[1072] = (void*)&cdat->drout_958__COMPILOBJ_NREP_LET; cdat->drout_958__COMPILOBJ_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_958__COMPILOBJ_NREP_LET.routdescr, "COMPILOBJ_NREP_LET @warmelt-genobj.melt:1726", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_958__COMPILOBJ_NREP_LET.nbval = 20; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_958__COMPILOBJ_NREP_LET, rout_43_COMPILOBJ_NREP_LET); /*iniclos dclo_959__COMPILOBJ_NREP_LET*/ /*_.VALCLO___V1077*/ curfptr[1076] = (void*)&cdat->dclo_959__COMPILOBJ_NREP_LET; cdat->dclo_959__COMPILOBJ_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_959__COMPILOBJ_NREP_LET.nbval = 0; /*iniobj dsym_960__CLASS_NREP_LET*/ if (!/*_.VALDATA___V1078*/ curfptr[1077]) /*_.VALDATA___V1078*/ curfptr[1077] = (void*)&cdat->dsym_960__CLASS_NREP_LET; basilys_assertmsg("iniobj checkdiscr dsym_960__CLASS_NREP_LET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_960__CLASS_NREP_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_960__CLASS_NREP_LET.obj_hash = 726308322; cdat->dsym_960__CLASS_NREP_LET.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_960__CLASS_NREP_LET)); /*inistring dstr_961__CLASS_NREP_LET*/ /*_.VALSTR___V1079*/ curfptr[1078] = (void*)&cdat->dstr_961__CLASS_NREP_LET; cdat->dstr_961__CLASS_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_961__CLASS_NREP_LET.val, "CLASS_NREP_LET", sizeof(cdat->dstr_961__CLASS_NREP_LET.val)-1); /*inirout drout_962__LAMBDA_*/ /*_.VALROUT___V1074*/ curfptr[1073] = (void*)&cdat->drout_962__LAMBDA_; cdat->drout_962__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_962__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1753", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_962__LAMBDA_.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_962__LAMBDA_, rout_44_LAMBDA_); /*iniobj dsym_963__CLASS_NORMLET_BINDING*/ if (!/*_.VALDATA___V1080*/ curfptr[1079]) /*_.VALDATA___V1080*/ curfptr[1079] = (void*)&cdat->dsym_963__CLASS_NORMLET_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_963__CLASS_NORMLET_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_963__CLASS_NORMLET_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_963__CLASS_NORMLET_BINDING.obj_hash = 17546439; cdat->dsym_963__CLASS_NORMLET_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_963__CLASS_NORMLET_BINDING)); /*inistring dstr_964__CLASS_NORMLET_BI*/ /*_.VALSTR___V1081*/ curfptr[1080] = (void*)&cdat->dstr_964__CLASS_NORMLET_BI; cdat->dstr_964__CLASS_NORMLET_BI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_964__CLASS_NORMLET_BI.val, "CLASS_NORMLET_BINDING", sizeof(cdat->dstr_964__CLASS_NORMLET_BI.val)-1); /*iniobj dsym_965__CLASS_SEXPR*/ if (!/*_.VALDATA___V1082*/ curfptr[1081]) /*_.VALDATA___V1082*/ curfptr[1081] = (void*)&cdat->dsym_965__CLASS_SEXPR; basilys_assertmsg("iniobj checkdiscr dsym_965__CLASS_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_965__CLASS_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_965__CLASS_SEXPR.obj_hash = 53411612; cdat->dsym_965__CLASS_SEXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_965__CLASS_SEXPR)); /*inistring dstr_966__CLASS_SEXPR*/ /*_.VALSTR___V1083*/ curfptr[1082] = (void*)&cdat->dstr_966__CLASS_SEXPR; cdat->dstr_966__CLASS_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_966__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof(cdat->dstr_966__CLASS_SEXPR.val)-1); /*inirout drout_967__LAMBDA_*/ /*_.VALROUT___V1075*/ curfptr[1074] = (void*)&cdat->drout_967__LAMBDA_; cdat->drout_967__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_967__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1802", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_967__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_967__LAMBDA_, rout_45_LAMBDA_); /*inirout drout_968__LAMBDA_*/ /*_.VALROUT___V1076*/ curfptr[1075] = (void*)&cdat->drout_968__LAMBDA_; cdat->drout_968__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_968__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1816", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_968__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_968__LAMBDA_, rout_46_LAMBDA_); /*inirout drout_969__COMPILOBJ_NREP_CITERATION*/ /*_.VALROUT___V1084*/ curfptr[1083] = (void*)&cdat->drout_969__COMPILOBJ_NREP_CITERATION; cdat->drout_969__COMPILOBJ_NREP_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_969__COMPILOBJ_NREP_CITERATION.routdescr, "COMPILOBJ_NREP_CITERATION @warmelt-genobj.melt:1831", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_969__COMPILOBJ_NREP_CITERATION.nbval = 37; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_969__COMPILOBJ_NREP_CITERATION, rout_47_COMPILOBJ_NREP_CITERATION); /*iniclos dclo_970__COMPILOBJ_NREP_CITERATION*/ /*_.VALCLO___V1090*/ curfptr[1089] = (void*)&cdat->dclo_970__COMPILOBJ_NREP_CITERATION; cdat->dclo_970__COMPILOBJ_NREP_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_970__COMPILOBJ_NREP_CITERATION.nbval = 0; /*iniobj dsym_971__CLASS_NREP_CITERATION*/ if (!/*_.VALDATA___V1091*/ curfptr[1090]) /*_.VALDATA___V1091*/ curfptr[1090] = (void*)&cdat->dsym_971__CLASS_NREP_CITERATION; basilys_assertmsg("iniobj checkdiscr dsym_971__CLASS_NREP_CITERATION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_971__CLASS_NREP_CITERATION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_971__CLASS_NREP_CITERATION.obj_hash = 933737875; cdat->dsym_971__CLASS_NREP_CITERATION.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_971__CLASS_NREP_CITERATION)); /*inistring dstr_972__CLASS_NREP_CITER*/ /*_.VALSTR___V1092*/ curfptr[1091] = (void*)&cdat->dstr_972__CLASS_NREP_CITER; cdat->dstr_972__CLASS_NREP_CITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_972__CLASS_NREP_CITER.val, "CLASS_NREP_CITERATION", sizeof(cdat->dstr_972__CLASS_NREP_CITER.val)-1); /*iniobj dsym_973__CLASS_CITERATOR*/ if (!/*_.VALDATA___V1093*/ curfptr[1092]) /*_.VALDATA___V1093*/ curfptr[1092] = (void*)&cdat->dsym_973__CLASS_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_973__CLASS_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_973__CLASS_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_973__CLASS_CITERATOR.obj_hash = 650290054; cdat->dsym_973__CLASS_CITERATOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_973__CLASS_CITERATOR)); /*inistring dstr_974__CLASS_CITERATOR*/ /*_.VALSTR___V1094*/ curfptr[1093] = (void*)&cdat->dstr_974__CLASS_CITERATOR; cdat->dstr_974__CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_974__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof(cdat->dstr_974__CLASS_CITERATOR.val)-1); /*inirout drout_975__LAMBDA_*/ /*_.VALROUT___V1085*/ curfptr[1084] = (void*)&cdat->drout_975__LAMBDA_; cdat->drout_975__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_975__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1870", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_975__LAMBDA_.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_975__LAMBDA_, rout_48_LAMBDA_); /*inirout drout_976__LAMBDA_*/ /*_.VALROUT___V1086*/ curfptr[1085] = (void*)&cdat->drout_976__LAMBDA_; cdat->drout_976__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_976__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1906", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_976__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_976__LAMBDA_, rout_49_LAMBDA_); /*inirout drout_977__LAMBDA_*/ /*_.VALROUT___V1087*/ curfptr[1086] = (void*)&cdat->drout_977__LAMBDA_; cdat->drout_977__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_977__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1918", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_977__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_977__LAMBDA_, rout_50_LAMBDA_); /*inirout drout_978__LAMBDA_*/ /*_.VALROUT___V1088*/ curfptr[1087] = (void*)&cdat->drout_978__LAMBDA_; cdat->drout_978__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_978__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1934", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_978__LAMBDA_.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_978__LAMBDA_, rout_51_LAMBDA_); /*inirout drout_979__LAMBDA_*/ /*_.VALROUT___V1089*/ curfptr[1088] = (void*)&cdat->drout_979__LAMBDA_; cdat->drout_979__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_979__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1972", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_979__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_979__LAMBDA_, rout_52_LAMBDA_); /*inirout drout_980__COMPILOBJ_NREP_SETQ*/ /*_.VALROUT___V1095*/ curfptr[1094] = (void*)&cdat->drout_980__COMPILOBJ_NREP_SETQ; cdat->drout_980__COMPILOBJ_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_980__COMPILOBJ_NREP_SETQ.routdescr, "COMPILOBJ_NREP_SETQ @warmelt-genobj.melt:1988", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_980__COMPILOBJ_NREP_SETQ.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_980__COMPILOBJ_NREP_SETQ, rout_53_COMPILOBJ_NREP_SETQ); /*iniclos dclo_981__COMPILOBJ_NREP_SETQ*/ /*_.VALCLO___V1096*/ curfptr[1095] = (void*)&cdat->dclo_981__COMPILOBJ_NREP_SETQ; cdat->dclo_981__COMPILOBJ_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_981__COMPILOBJ_NREP_SETQ.nbval = 0; /*iniobj dsym_982__CLASS_NREP_SETQ*/ if (!/*_.VALDATA___V1097*/ curfptr[1096]) /*_.VALDATA___V1097*/ curfptr[1096] = (void*)&cdat->dsym_982__CLASS_NREP_SETQ; basilys_assertmsg("iniobj checkdiscr dsym_982__CLASS_NREP_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_982__CLASS_NREP_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_982__CLASS_NREP_SETQ.obj_hash = 314084823; cdat->dsym_982__CLASS_NREP_SETQ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_982__CLASS_NREP_SETQ)); /*inistring dstr_983__CLASS_NREP_SETQ*/ /*_.VALSTR___V1098*/ curfptr[1097] = (void*)&cdat->dstr_983__CLASS_NREP_SETQ; cdat->dstr_983__CLASS_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_983__CLASS_NREP_SETQ.val, "CLASS_NREP_SETQ", sizeof(cdat->dstr_983__CLASS_NREP_SETQ.val)-1); /*inirout drout_984__COMPILOBJ_NREP_PROGN*/ /*_.VALROUT___V1099*/ curfptr[1098] = (void*)&cdat->drout_984__COMPILOBJ_NREP_PROGN; cdat->drout_984__COMPILOBJ_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_984__COMPILOBJ_NREP_PROGN.routdescr, "COMPILOBJ_NREP_PROGN @warmelt-genobj.melt:2010", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_984__COMPILOBJ_NREP_PROGN.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_984__COMPILOBJ_NREP_PROGN, rout_54_COMPILOBJ_NREP_PROGN); /*iniclos dclo_985__COMPILOBJ_NREP_PROGN*/ /*_.VALCLO___V1101*/ curfptr[1100] = (void*)&cdat->dclo_985__COMPILOBJ_NREP_PROGN; cdat->dclo_985__COMPILOBJ_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_985__COMPILOBJ_NREP_PROGN.nbval = 0; /*iniobj dsym_986__CLASS_NREP_PROGN*/ if (!/*_.VALDATA___V1102*/ curfptr[1101]) /*_.VALDATA___V1102*/ curfptr[1101] = (void*)&cdat->dsym_986__CLASS_NREP_PROGN; basilys_assertmsg("iniobj checkdiscr dsym_986__CLASS_NREP_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_986__CLASS_NREP_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_986__CLASS_NREP_PROGN.obj_hash = 378668026; cdat->dsym_986__CLASS_NREP_PROGN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_986__CLASS_NREP_PROGN)); /*inistring dstr_987__CLASS_NREP_PROGN*/ /*_.VALSTR___V1103*/ curfptr[1102] = (void*)&cdat->dstr_987__CLASS_NREP_PROGN; cdat->dstr_987__CLASS_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_987__CLASS_NREP_PROGN.val, "CLASS_NREP_PROGN", sizeof(cdat->dstr_987__CLASS_NREP_PROGN.val)-1); /*inirout drout_988__LAMBDA_*/ /*_.VALROUT___V1100*/ curfptr[1099] = (void*)&cdat->drout_988__LAMBDA_; cdat->drout_988__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_988__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2026", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_988__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_988__LAMBDA_, rout_55_LAMBDA_); /*inirout drout_989__COMPILOBJ_NREP_MULTACC*/ /*_.VALROUT___V1104*/ curfptr[1103] = (void*)&cdat->drout_989__COMPILOBJ_NREP_MULTACC; cdat->drout_989__COMPILOBJ_NREP_MULTACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_989__COMPILOBJ_NREP_MULTACC.routdescr, "COMPILOBJ_NREP_MULTACC @warmelt-genobj.melt:2038", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_989__COMPILOBJ_NREP_MULTACC.nbval = 11; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_989__COMPILOBJ_NREP_MULTACC, rout_56_COMPILOBJ_NREP_MULTACC); /*iniclos dclo_990__COMPILOBJ_NREP_MULTACC*/ /*_.VALCLO___V1106*/ curfptr[1105] = (void*)&cdat->dclo_990__COMPILOBJ_NREP_MULTACC; cdat->dclo_990__COMPILOBJ_NREP_MULTACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_990__COMPILOBJ_NREP_MULTACC.nbval = 0; /*iniobj dsym_991__CLASS_NREP_MULTACC*/ if (!/*_.VALDATA___V1107*/ curfptr[1106]) /*_.VALDATA___V1107*/ curfptr[1106] = (void*)&cdat->dsym_991__CLASS_NREP_MULTACC; basilys_assertmsg("iniobj checkdiscr dsym_991__CLASS_NREP_MULTACC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_991__CLASS_NREP_MULTACC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_991__CLASS_NREP_MULTACC.obj_hash = 444787444; cdat->dsym_991__CLASS_NREP_MULTACC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_991__CLASS_NREP_MULTACC)); /*inistring dstr_992__CLASS_NREP_MULTA*/ /*_.VALSTR___V1108*/ curfptr[1107] = (void*)&cdat->dstr_992__CLASS_NREP_MULTA; cdat->dstr_992__CLASS_NREP_MULTA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_992__CLASS_NREP_MULTA.val, "CLASS_NREP_MULTACC", sizeof(cdat->dstr_992__CLASS_NREP_MULTA.val)-1); /*inirout drout_993__LAMBDA_*/ /*_.VALROUT___V1105*/ curfptr[1104] = (void*)&cdat->drout_993__LAMBDA_; cdat->drout_993__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_993__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2049", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_993__LAMBDA_.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_993__LAMBDA_, rout_57_LAMBDA_); /*inirout drout_994__COMPILOBJ_NREP_FIELDACC*/ /*_.VALROUT___V1109*/ curfptr[1108] = (void*)&cdat->drout_994__COMPILOBJ_NREP_FIELDACC; cdat->drout_994__COMPILOBJ_NREP_FIELDACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_994__COMPILOBJ_NREP_FIELDACC.routdescr, "COMPILOBJ_NREP_FIELDACC @warmelt-genobj.melt:2090", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_994__COMPILOBJ_NREP_FIELDACC.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_994__COMPILOBJ_NREP_FIELDACC, rout_58_COMPILOBJ_NREP_FIELDACC); /*iniclos dclo_995__COMPILOBJ_NREP_FIELDACC*/ /*_.VALCLO___V1111*/ curfptr[1110] = (void*)&cdat->dclo_995__COMPILOBJ_NREP_FIELDACC; cdat->dclo_995__COMPILOBJ_NREP_FIELDACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_995__COMPILOBJ_NREP_FIELDACC.nbval = 0; /*iniobj dsym_996__CLASS_NREP_FIELDACC*/ if (!/*_.VALDATA___V1112*/ curfptr[1111]) /*_.VALDATA___V1112*/ curfptr[1111] = (void*)&cdat->dsym_996__CLASS_NREP_FIELDACC; basilys_assertmsg("iniobj checkdiscr dsym_996__CLASS_NREP_FIELDACC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_996__CLASS_NREP_FIELDACC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_996__CLASS_NREP_FIELDACC.obj_hash = 571372072; cdat->dsym_996__CLASS_NREP_FIELDACC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_996__CLASS_NREP_FIELDACC)); /*inistring dstr_997__CLASS_NREP_FIELD*/ /*_.VALSTR___V1113*/ curfptr[1112] = (void*)&cdat->dstr_997__CLASS_NREP_FIELD; cdat->dstr_997__CLASS_NREP_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_997__CLASS_NREP_FIELD.val, "CLASS_NREP_FIELDACC", sizeof(cdat->dstr_997__CLASS_NREP_FIELD.val)-1); /*inirout drout_998__LAMBDA_*/ /*_.VALROUT___V1110*/ curfptr[1109] = (void*)&cdat->drout_998__LAMBDA_; cdat->drout_998__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_998__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2103", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_998__LAMBDA_.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_998__LAMBDA_, rout_59_LAMBDA_); /*iniobj dsym_999__CLASS_FIELD*/ if (!/*_.VALDATA___V1114*/ curfptr[1113]) /*_.VALDATA___V1114*/ curfptr[1113] = (void*)&cdat->dsym_999__CLASS_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_999__CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_999__CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_999__CLASS_FIELD.obj_hash = 523073; cdat->dsym_999__CLASS_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_999__CLASS_FIELD)); /*inistring dstr_1000__CLASS_FIELD*/ /*_.VALSTR___V1115*/ curfptr[1114] = (void*)&cdat->dstr_1000__CLASS_FIELD; cdat->dstr_1000__CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1000__CLASS_FIELD.val, "CLASS_FIELD", sizeof(cdat->dstr_1000__CLASS_FIELD.val)-1); /*iniobj dsym_1001__CLASS_NREP_DATAINSTANCE*/ if (!/*_.VALDATA___V1116*/ curfptr[1115]) /*_.VALDATA___V1116*/ curfptr[1115] = (void*)&cdat->dsym_1001__CLASS_NREP_DATAINSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_1001__CLASS_NREP_DATAINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1001__CLASS_NREP_DATAINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1001__CLASS_NREP_DATAINSTANCE.obj_hash = 475932459; cdat->dsym_1001__CLASS_NREP_DATAINSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1001__CLASS_NREP_DATAINSTANCE)); /*inistring dstr_1002__CLASS_NREP_DATAI*/ /*_.VALSTR___V1117*/ curfptr[1116] = (void*)&cdat->dstr_1002__CLASS_NREP_DATAI; cdat->dstr_1002__CLASS_NREP_DATAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1002__CLASS_NREP_DATAI.val, "CLASS_NREP_DATAINSTANCE", sizeof(cdat->dstr_1002__CLASS_NREP_DATAI.val)-1); /*inirout drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD*/ /*_.VALROUT___V1118*/ curfptr[1117] = (void*)&cdat->drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD; cdat->drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD.routdescr, "COMPILOBJ_NREP_UNSAFE_GET_FIELD @warmelt-genobj.melt:2145", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD, rout_60_COMPILOBJ_NREP_UNSAFE_GET_FIELD); /*iniclos dclo_1004__COMPILOBJ_NREP_UNSAFE_GET_FIELD*/ /*_.VALCLO___V1119*/ curfptr[1118] = (void*)&cdat->dclo_1004__COMPILOBJ_NREP_UNSAFE_GET_FIELD; cdat->dclo_1004__COMPILOBJ_NREP_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1004__COMPILOBJ_NREP_UNSAFE_GET_FIELD.nbval = 0; /*iniobj dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD*/ if (!/*_.VALDATA___V1120*/ curfptr[1119]) /*_.VALDATA___V1120*/ curfptr[1119] = (void*)&cdat->dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 71587717; cdat->dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1005__CLASS_NREP_UNSAFE_GET_FIELD)); /*inistring dstr_1006__CLASS_NREP_UNSAF*/ /*_.VALSTR___V1121*/ curfptr[1120] = (void*)&cdat->dstr_1006__CLASS_NREP_UNSAF; cdat->dstr_1006__CLASS_NREP_UNSAF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1006__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_GET_FIELD", sizeof(cdat->dstr_1006__CLASS_NREP_UNSAF.val)-1); /*inirout drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS*/ /*_.VALROUT___V1122*/ curfptr[1121] = (void*)&cdat->drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS; cdat->drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.routdescr, "COMPILOBJ_NREP_UNSAFE_PUT_FIELDS @warmelt-genobj.melt:2167", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS, rout_61_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS); /*iniclos dclo_1008__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS*/ /*_.VALCLO___V1124*/ curfptr[1123] = (void*)&cdat->dclo_1008__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS; cdat->dclo_1008__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1008__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.nbval = 0; /*iniobj dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS*/ if (!/*_.VALDATA___V1125*/ curfptr[1124]) /*_.VALDATA___V1125*/ curfptr[1124] = (void*)&cdat->dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 7092667; cdat->dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1009__CLASS_NREP_UNSAFE_PUT_FIELDS)); /*inistring dstr_1010__CLASS_NREP_UNSAF*/ /*_.VALSTR___V1126*/ curfptr[1125] = (void*)&cdat->dstr_1010__CLASS_NREP_UNSAF; cdat->dstr_1010__CLASS_NREP_UNSAF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1010__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_PUT_FIELDS", sizeof(cdat->dstr_1010__CLASS_NREP_UNSAF.val)-1); /*inirout drout_1011__LAMBDA_*/ /*_.VALROUT___V1123*/ curfptr[1122] = (void*)&cdat->drout_1011__LAMBDA_; cdat->drout_1011__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1011__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2184", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1011__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1011__LAMBDA_, rout_62_LAMBDA_); /*iniobj dsym_1012__CLASS_NREP_FIELDASSIGN*/ if (!/*_.VALDATA___V1127*/ curfptr[1126]) /*_.VALDATA___V1127*/ curfptr[1126] = (void*)&cdat->dsym_1012__CLASS_NREP_FIELDASSIGN; basilys_assertmsg("iniobj checkdiscr dsym_1012__CLASS_NREP_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1012__CLASS_NREP_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1012__CLASS_NREP_FIELDASSIGN.obj_hash = 500200612; cdat->dsym_1012__CLASS_NREP_FIELDASSIGN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1012__CLASS_NREP_FIELDASSIGN)); /*inistring dstr_1013__CLASS_NREP_FIELD*/ /*_.VALSTR___V1128*/ curfptr[1127] = (void*)&cdat->dstr_1013__CLASS_NREP_FIELD; cdat->dstr_1013__CLASS_NREP_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1013__CLASS_NREP_FIELD.val, "CLASS_NREP_FIELDASSIGN", sizeof(cdat->dstr_1013__CLASS_NREP_FIELD.val)-1); /*inirout drout_1014__COMPILOBJ_NREP_APPLY*/ /*_.VALROUT___V1129*/ curfptr[1128] = (void*)&cdat->drout_1014__COMPILOBJ_NREP_APPLY; cdat->drout_1014__COMPILOBJ_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1014__COMPILOBJ_NREP_APPLY.routdescr, "COMPILOBJ_NREP_APPLY @warmelt-genobj.melt:2213", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1014__COMPILOBJ_NREP_APPLY.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1014__COMPILOBJ_NREP_APPLY, rout_63_COMPILOBJ_NREP_APPLY); /*iniclos dclo_1015__COMPILOBJ_NREP_APPLY*/ /*_.VALCLO___V1131*/ curfptr[1130] = (void*)&cdat->dclo_1015__COMPILOBJ_NREP_APPLY; cdat->dclo_1015__COMPILOBJ_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1015__COMPILOBJ_NREP_APPLY.nbval = 0; /*iniobj dsym_1016__CLASS_NREP_APPLY*/ if (!/*_.VALDATA___V1132*/ curfptr[1131]) /*_.VALDATA___V1132*/ curfptr[1131] = (void*)&cdat->dsym_1016__CLASS_NREP_APPLY; basilys_assertmsg("iniobj checkdiscr dsym_1016__CLASS_NREP_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1016__CLASS_NREP_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1016__CLASS_NREP_APPLY.obj_hash = 866094506; cdat->dsym_1016__CLASS_NREP_APPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1016__CLASS_NREP_APPLY)); /*inistring dstr_1017__CLASS_NREP_APPLY*/ /*_.VALSTR___V1133*/ curfptr[1132] = (void*)&cdat->dstr_1017__CLASS_NREP_APPLY; cdat->dstr_1017__CLASS_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1017__CLASS_NREP_APPLY.val, "CLASS_NREP_APPLY", sizeof(cdat->dstr_1017__CLASS_NREP_APPLY.val)-1); /*inirout drout_1018__LAMBDA_*/ /*_.VALROUT___V1130*/ curfptr[1129] = (void*)&cdat->drout_1018__LAMBDA_; cdat->drout_1018__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1018__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2224", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1018__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1018__LAMBDA_, rout_64_LAMBDA_); /*inirout drout_1019__COMPILOBJ_NREP_MULTIAPPLY*/ /*_.VALROUT___V1134*/ curfptr[1133] = (void*)&cdat->drout_1019__COMPILOBJ_NREP_MULTIAPPLY; cdat->drout_1019__COMPILOBJ_NREP_MULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1019__COMPILOBJ_NREP_MULTIAPPLY.routdescr, "COMPILOBJ_NREP_MULTIAPPLY @warmelt-genobj.melt:2244", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1019__COMPILOBJ_NREP_MULTIAPPLY.nbval = 24; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1019__COMPILOBJ_NREP_MULTIAPPLY, rout_65_COMPILOBJ_NREP_MULTIAPPLY); /*iniclos dclo_1020__COMPILOBJ_NREP_MULTIAPPLY*/ /*_.VALCLO___V1140*/ curfptr[1139] = (void*)&cdat->dclo_1020__COMPILOBJ_NREP_MULTIAPPLY; cdat->dclo_1020__COMPILOBJ_NREP_MULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1020__COMPILOBJ_NREP_MULTIAPPLY.nbval = 0; /*iniobj dsym_1021__CLASS_NREP_MULTIAPPLY*/ if (!/*_.VALDATA___V1141*/ curfptr[1140]) /*_.VALDATA___V1141*/ curfptr[1140] = (void*)&cdat->dsym_1021__CLASS_NREP_MULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_1021__CLASS_NREP_MULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1021__CLASS_NREP_MULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1021__CLASS_NREP_MULTIAPPLY.obj_hash = 257736327; cdat->dsym_1021__CLASS_NREP_MULTIAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1021__CLASS_NREP_MULTIAPPLY)); /*inistring dstr_1022__CLASS_NREP_MULTI*/ /*_.VALSTR___V1142*/ curfptr[1141] = (void*)&cdat->dstr_1022__CLASS_NREP_MULTI; cdat->dstr_1022__CLASS_NREP_MULTI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1022__CLASS_NREP_MULTI.val, "CLASS_NREP_MULTIAPPLY", sizeof(cdat->dstr_1022__CLASS_NREP_MULTI.val)-1); /*inirout drout_1023__LAMBDA_*/ /*_.VALROUT___V1135*/ curfptr[1134] = (void*)&cdat->drout_1023__LAMBDA_; cdat->drout_1023__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1023__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2258", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1023__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1023__LAMBDA_, rout_66_LAMBDA_); /*inirout drout_1024__LAMBDA_*/ /*_.VALROUT___V1136*/ curfptr[1135] = (void*)&cdat->drout_1024__LAMBDA_; cdat->drout_1024__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1024__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2284", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1024__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1024__LAMBDA_, rout_67_LAMBDA_); /*inirout drout_1025__LAMBDA_*/ /*_.VALROUT___V1137*/ curfptr[1136] = (void*)&cdat->drout_1025__LAMBDA_; cdat->drout_1025__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1025__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2298", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1025__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1025__LAMBDA_, rout_68_LAMBDA_); /*inirout drout_1026__LAMBDA_*/ /*_.VALROUT___V1138*/ curfptr[1137] = (void*)&cdat->drout_1026__LAMBDA_; cdat->drout_1026__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1026__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2310", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1026__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1026__LAMBDA_, rout_69_LAMBDA_); /*inirout drout_1027__LAMBDA_*/ /*_.VALROUT___V1139*/ curfptr[1138] = (void*)&cdat->drout_1027__LAMBDA_; cdat->drout_1027__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1027__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2321", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1027__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1027__LAMBDA_, rout_70_LAMBDA_); /*inirout drout_1028__COMPILOBJ_NREP_MSEND*/ /*_.VALROUT___V1143*/ curfptr[1142] = (void*)&cdat->drout_1028__COMPILOBJ_NREP_MSEND; cdat->drout_1028__COMPILOBJ_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1028__COMPILOBJ_NREP_MSEND.routdescr, "COMPILOBJ_NREP_MSEND @warmelt-genobj.melt:2330", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1028__COMPILOBJ_NREP_MSEND.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1028__COMPILOBJ_NREP_MSEND, rout_71_COMPILOBJ_NREP_MSEND); /*iniclos dclo_1029__COMPILOBJ_NREP_MSEND*/ /*_.VALCLO___V1145*/ curfptr[1144] = (void*)&cdat->dclo_1029__COMPILOBJ_NREP_MSEND; cdat->dclo_1029__COMPILOBJ_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1029__COMPILOBJ_NREP_MSEND.nbval = 0; /*iniobj dsym_1030__CLASS_NREP_MSEND*/ if (!/*_.VALDATA___V1146*/ curfptr[1145]) /*_.VALDATA___V1146*/ curfptr[1145] = (void*)&cdat->dsym_1030__CLASS_NREP_MSEND; basilys_assertmsg("iniobj checkdiscr dsym_1030__CLASS_NREP_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1030__CLASS_NREP_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1030__CLASS_NREP_MSEND.obj_hash = 263475785; cdat->dsym_1030__CLASS_NREP_MSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1030__CLASS_NREP_MSEND)); /*inistring dstr_1031__CLASS_NREP_MSEND*/ /*_.VALSTR___V1147*/ curfptr[1146] = (void*)&cdat->dstr_1031__CLASS_NREP_MSEND; cdat->dstr_1031__CLASS_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1031__CLASS_NREP_MSEND.val, "CLASS_NREP_MSEND", sizeof(cdat->dstr_1031__CLASS_NREP_MSEND.val)-1); /*inirout drout_1032__LAMBDA_*/ /*_.VALROUT___V1144*/ curfptr[1143] = (void*)&cdat->drout_1032__LAMBDA_; cdat->drout_1032__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1032__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2342", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1032__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1032__LAMBDA_, rout_72_LAMBDA_); /*inirout drout_1033__COMPILOBJ_NREP_MULTIMSEND*/ /*_.VALROUT___V1148*/ curfptr[1147] = (void*)&cdat->drout_1033__COMPILOBJ_NREP_MULTIMSEND; cdat->drout_1033__COMPILOBJ_NREP_MULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1033__COMPILOBJ_NREP_MULTIMSEND.routdescr, "COMPILOBJ_NREP_MULTIMSEND @warmelt-genobj.melt:2361", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1033__COMPILOBJ_NREP_MULTIMSEND.nbval = 24; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1033__COMPILOBJ_NREP_MULTIMSEND, rout_73_COMPILOBJ_NREP_MULTIMSEND); /*iniclos dclo_1034__COMPILOBJ_NREP_MULTIMSEND*/ /*_.VALCLO___V1154*/ curfptr[1153] = (void*)&cdat->dclo_1034__COMPILOBJ_NREP_MULTIMSEND; cdat->dclo_1034__COMPILOBJ_NREP_MULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1034__COMPILOBJ_NREP_MULTIMSEND.nbval = 0; /*iniobj dsym_1035__CLASS_NREP_MULTIMSEND*/ if (!/*_.VALDATA___V1155*/ curfptr[1154]) /*_.VALDATA___V1155*/ curfptr[1154] = (void*)&cdat->dsym_1035__CLASS_NREP_MULTIMSEND; basilys_assertmsg("iniobj checkdiscr dsym_1035__CLASS_NREP_MULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1035__CLASS_NREP_MULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1035__CLASS_NREP_MULTIMSEND.obj_hash = 247075982; cdat->dsym_1035__CLASS_NREP_MULTIMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1035__CLASS_NREP_MULTIMSEND)); /*inistring dstr_1036__CLASS_NREP_MULTI*/ /*_.VALSTR___V1156*/ curfptr[1155] = (void*)&cdat->dstr_1036__CLASS_NREP_MULTI; cdat->dstr_1036__CLASS_NREP_MULTI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1036__CLASS_NREP_MULTI.val, "CLASS_NREP_MULTIMSEND", sizeof(cdat->dstr_1036__CLASS_NREP_MULTI.val)-1); /*inirout drout_1037__LAMBDA_*/ /*_.VALROUT___V1149*/ curfptr[1148] = (void*)&cdat->drout_1037__LAMBDA_; cdat->drout_1037__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1037__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2376", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1037__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1037__LAMBDA_, rout_74_LAMBDA_); /*inirout drout_1038__LAMBDA_*/ /*_.VALROUT___V1150*/ curfptr[1149] = (void*)&cdat->drout_1038__LAMBDA_; cdat->drout_1038__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1038__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2398", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1038__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1038__LAMBDA_, rout_75_LAMBDA_); /*inirout drout_1039__LAMBDA_*/ /*_.VALROUT___V1151*/ curfptr[1150] = (void*)&cdat->drout_1039__LAMBDA_; cdat->drout_1039__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1039__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2420", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1039__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1039__LAMBDA_, rout_76_LAMBDA_); /*inirout drout_1040__LAMBDA_*/ /*_.VALROUT___V1152*/ curfptr[1151] = (void*)&cdat->drout_1040__LAMBDA_; cdat->drout_1040__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1040__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2431", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1040__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1040__LAMBDA_, rout_77_LAMBDA_); /*inirout drout_1041__LAMBDA_*/ /*_.VALROUT___V1153*/ curfptr[1152] = (void*)&cdat->drout_1041__LAMBDA_; cdat->drout_1041__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1041__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2441", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1041__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1041__LAMBDA_, rout_78_LAMBDA_); /*inirout drout_1042__COMPILOBJ_ANY_BINDING*/ /*_.VALROUT___V1157*/ curfptr[1156] = (void*)&cdat->drout_1042__COMPILOBJ_ANY_BINDING; cdat->drout_1042__COMPILOBJ_ANY_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1042__COMPILOBJ_ANY_BINDING.routdescr, "COMPILOBJ_ANY_BINDING @warmelt-genobj.melt:2451", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1042__COMPILOBJ_ANY_BINDING.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1042__COMPILOBJ_ANY_BINDING, rout_79_COMPILOBJ_ANY_BINDING); /*iniclos dclo_1043__COMPILOBJ_ANY_BINDING*/ /*_.VALCLO___V1158*/ curfptr[1157] = (void*)&cdat->dclo_1043__COMPILOBJ_ANY_BINDING; cdat->dclo_1043__COMPILOBJ_ANY_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1043__COMPILOBJ_ANY_BINDING.nbval = 0; /*inirout drout_1044__COMPILOBJ_VALUE_BINDING*/ /*_.VALROUT___V1159*/ curfptr[1158] = (void*)&cdat->drout_1044__COMPILOBJ_VALUE_BINDING; cdat->drout_1044__COMPILOBJ_VALUE_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1044__COMPILOBJ_VALUE_BINDING.routdescr, "COMPILOBJ_VALUE_BINDING @warmelt-genobj.melt:2465", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1044__COMPILOBJ_VALUE_BINDING.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1044__COMPILOBJ_VALUE_BINDING, rout_80_COMPILOBJ_VALUE_BINDING); /*iniclos dclo_1045__COMPILOBJ_VALUE_BINDING*/ /*_.VALCLO___V1160*/ curfptr[1159] = (void*)&cdat->dclo_1045__COMPILOBJ_VALUE_BINDING; cdat->dclo_1045__COMPILOBJ_VALUE_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1045__COMPILOBJ_VALUE_BINDING.nbval = 0; /*iniobj dsym_1046__CLASS_VALUE_BINDING*/ if (!/*_.VALDATA___V1161*/ curfptr[1160]) /*_.VALDATA___V1161*/ curfptr[1160] = (void*)&cdat->dsym_1046__CLASS_VALUE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1046__CLASS_VALUE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1046__CLASS_VALUE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1046__CLASS_VALUE_BINDING.obj_hash = 952021086; cdat->dsym_1046__CLASS_VALUE_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1046__CLASS_VALUE_BINDING)); /*inistring dstr_1047__CLASS_VALUE_BIND*/ /*_.VALSTR___V1162*/ curfptr[1161] = (void*)&cdat->dstr_1047__CLASS_VALUE_BIND; cdat->dstr_1047__CLASS_VALUE_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1047__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", sizeof(cdat->dstr_1047__CLASS_VALUE_BIND.val)-1); /*inirout drout_1048__COMPILOBJ_FIXED_BINDING*/ /*_.VALROUT___V1163*/ curfptr[1162] = (void*)&cdat->drout_1048__COMPILOBJ_FIXED_BINDING; cdat->drout_1048__COMPILOBJ_FIXED_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1048__COMPILOBJ_FIXED_BINDING.routdescr, "COMPILOBJ_FIXED_BINDING @warmelt-genobj.melt:2481", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1048__COMPILOBJ_FIXED_BINDING.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1048__COMPILOBJ_FIXED_BINDING, rout_81_COMPILOBJ_FIXED_BINDING); /*iniclos dclo_1049__COMPILOBJ_FIXED_BINDING*/ /*_.VALCLO___V1164*/ curfptr[1163] = (void*)&cdat->dclo_1049__COMPILOBJ_FIXED_BINDING; cdat->dclo_1049__COMPILOBJ_FIXED_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1049__COMPILOBJ_FIXED_BINDING.nbval = 0; /*iniobj dsym_1050__CLASS_FIXED_BINDING*/ if (!/*_.VALDATA___V1165*/ curfptr[1164]) /*_.VALDATA___V1165*/ curfptr[1164] = (void*)&cdat->dsym_1050__CLASS_FIXED_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1050__CLASS_FIXED_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1050__CLASS_FIXED_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1050__CLASS_FIXED_BINDING.obj_hash = 179808938; cdat->dsym_1050__CLASS_FIXED_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1050__CLASS_FIXED_BINDING)); /*inistring dstr_1051__CLASS_FIXED_BIND*/ /*_.VALSTR___V1166*/ curfptr[1165] = (void*)&cdat->dstr_1051__CLASS_FIXED_BIND; cdat->dstr_1051__CLASS_FIXED_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1051__CLASS_FIXED_BIND.val, "CLASS_FIXED_BINDING", sizeof(cdat->dstr_1051__CLASS_FIXED_BIND.val)-1); /*inirout drout_1052__PUTOBJDEST_OBJVALUE*/ /*_.VALROUT___V1167*/ curfptr[1166] = (void*)&cdat->drout_1052__PUTOBJDEST_OBJVALUE; cdat->drout_1052__PUTOBJDEST_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1052__PUTOBJDEST_OBJVALUE.routdescr, "PUTOBJDEST_OBJVALUE @warmelt-genobj.melt:2495", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1052__PUTOBJDEST_OBJVALUE.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1052__PUTOBJDEST_OBJVALUE, rout_82_PUTOBJDEST_OBJVALUE); /*iniclos dclo_1053__PUTOBJDEST_OBJVALUE*/ /*_.VALCLO___V1168*/ curfptr[1167] = (void*)&cdat->dclo_1053__PUTOBJDEST_OBJVALUE; cdat->dclo_1053__PUTOBJDEST_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1053__PUTOBJDEST_OBJVALUE.nbval = 0; /*inirout drout_1054__PUTOBJDEST_INTEGER*/ /*_.VALROUT___V1169*/ curfptr[1168] = (void*)&cdat->drout_1054__PUTOBJDEST_INTEGER; cdat->drout_1054__PUTOBJDEST_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1054__PUTOBJDEST_INTEGER.routdescr, "PUTOBJDEST_INTEGER @warmelt-genobj.melt:2562", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1054__PUTOBJDEST_INTEGER.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1054__PUTOBJDEST_INTEGER, rout_83_PUTOBJDEST_INTEGER); /*iniclos dclo_1055__PUTOBJDEST_INTEGER*/ /*_.VALCLO___V1170*/ curfptr[1169] = (void*)&cdat->dclo_1055__PUTOBJDEST_INTEGER; cdat->dclo_1055__PUTOBJDEST_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1055__PUTOBJDEST_INTEGER.nbval = 0; /*inirout drout_1056__PUTOBJDEST_NULL*/ /*_.VALROUT___V1171*/ curfptr[1170] = (void*)&cdat->drout_1056__PUTOBJDEST_NULL; cdat->drout_1056__PUTOBJDEST_NULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1056__PUTOBJDEST_NULL.routdescr, "PUTOBJDEST_NULL @warmelt-genobj.melt:2585", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1056__PUTOBJDEST_NULL.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1056__PUTOBJDEST_NULL, rout_84_PUTOBJDEST_NULL); /*iniclos dclo_1057__PUTOBJDEST_NULL*/ /*_.VALCLO___V1172*/ curfptr[1171] = (void*)&cdat->dclo_1057__PUTOBJDEST_NULL; cdat->dclo_1057__PUTOBJDEST_NULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1057__PUTOBJDEST_NULL.nbval = 0; /*iniobj dsym_1058__DISCR_NULLRECV*/ if (!/*_.VALDATA___V1173*/ curfptr[1172]) /*_.VALDATA___V1173*/ curfptr[1172] = (void*)&cdat->dsym_1058__DISCR_NULLRECV; basilys_assertmsg("iniobj checkdiscr dsym_1058__DISCR_NULLRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1058__DISCR_NULLRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1058__DISCR_NULLRECV.obj_hash = 39603699; cdat->dsym_1058__DISCR_NULLRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1058__DISCR_NULLRECV)); /*inistring dstr_1059__DISCR_NULLRECV*/ /*_.VALSTR___V1174*/ curfptr[1173] = (void*)&cdat->dstr_1059__DISCR_NULLRECV; cdat->dstr_1059__DISCR_NULLRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1059__DISCR_NULLRECV.val, "DISCR_NULLRECV", sizeof(cdat->dstr_1059__DISCR_NULLRECV.val)-1); /*inirout drout_1060__PUTOBJDEST_OBJBLOCK*/ /*_.VALROUT___V1175*/ curfptr[1174] = (void*)&cdat->drout_1060__PUTOBJDEST_OBJBLOCK; cdat->drout_1060__PUTOBJDEST_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1060__PUTOBJDEST_OBJBLOCK.routdescr, "PUTOBJDEST_OBJBLOCK @warmelt-genobj.melt:2610", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1060__PUTOBJDEST_OBJBLOCK.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1060__PUTOBJDEST_OBJBLOCK, rout_85_PUTOBJDEST_OBJBLOCK); /*iniclos dclo_1061__PUTOBJDEST_OBJBLOCK*/ /*_.VALCLO___V1176*/ curfptr[1175] = (void*)&cdat->dclo_1061__PUTOBJDEST_OBJBLOCK; cdat->dclo_1061__PUTOBJDEST_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1061__PUTOBJDEST_OBJBLOCK.nbval = 0; /*inirout drout_1062__PUTOBJDEST_OBJMULTIBLOCK*/ /*_.VALROUT___V1177*/ curfptr[1176] = (void*)&cdat->drout_1062__PUTOBJDEST_OBJMULTIBLOCK; cdat->drout_1062__PUTOBJDEST_OBJMULTIBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1062__PUTOBJDEST_OBJMULTIBLOCK.routdescr, "PUTOBJDEST_OBJMULTIBLOCK @warmelt-genobj.melt:2638", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1062__PUTOBJDEST_OBJMULTIBLOCK.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1062__PUTOBJDEST_OBJMULTIBLOCK, rout_86_PUTOBJDEST_OBJMULTIBLOCK); /*iniclos dclo_1063__PUTOBJDEST_OBJMULTIBLOCK*/ /*_.VALCLO___V1178*/ curfptr[1177] = (void*)&cdat->dclo_1063__PUTOBJDEST_OBJMULTIBLOCK; cdat->dclo_1063__PUTOBJDEST_OBJMULTIBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1063__PUTOBJDEST_OBJMULTIBLOCK.nbval = 0; /*inirout drout_1064__PUTOBJDEST_OBJLOOP*/ /*_.VALROUT___V1179*/ curfptr[1178] = (void*)&cdat->drout_1064__PUTOBJDEST_OBJLOOP; cdat->drout_1064__PUTOBJDEST_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1064__PUTOBJDEST_OBJLOOP.routdescr, "PUTOBJDEST_OBJLOOP @warmelt-genobj.melt:2653", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1064__PUTOBJDEST_OBJLOOP.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1064__PUTOBJDEST_OBJLOOP, rout_87_PUTOBJDEST_OBJLOOP); /*iniclos dclo_1065__PUTOBJDEST_OBJLOOP*/ /*_.VALCLO___V1180*/ curfptr[1179] = (void*)&cdat->dclo_1065__PUTOBJDEST_OBJLOOP; cdat->dclo_1065__PUTOBJDEST_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1065__PUTOBJDEST_OBJLOOP.nbval = 0; /*inirout drout_1066__PUTOBJDEST_OBJEXIT*/ /*_.VALROUT___V1181*/ curfptr[1180] = (void*)&cdat->drout_1066__PUTOBJDEST_OBJEXIT; cdat->drout_1066__PUTOBJDEST_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1066__PUTOBJDEST_OBJEXIT.routdescr, "PUTOBJDEST_OBJEXIT @warmelt-genobj.melt:2677", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1066__PUTOBJDEST_OBJEXIT.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1066__PUTOBJDEST_OBJEXIT, rout_88_PUTOBJDEST_OBJEXIT); /*iniclos dclo_1067__PUTOBJDEST_OBJEXIT*/ /*_.VALCLO___V1182*/ curfptr[1181] = (void*)&cdat->dclo_1067__PUTOBJDEST_OBJEXIT; cdat->dclo_1067__PUTOBJDEST_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1067__PUTOBJDEST_OBJEXIT.nbval = 0; /*inirout drout_1068__COMPILOBJ_NREP_IF*/ /*_.VALROUT___V1183*/ curfptr[1182] = (void*)&cdat->drout_1068__COMPILOBJ_NREP_IF; cdat->drout_1068__COMPILOBJ_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1068__COMPILOBJ_NREP_IF.routdescr, "COMPILOBJ_NREP_IF @warmelt-genobj.melt:2687", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1068__COMPILOBJ_NREP_IF.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1068__COMPILOBJ_NREP_IF, rout_89_COMPILOBJ_NREP_IF); /*iniclos dclo_1069__COMPILOBJ_NREP_IF*/ /*_.VALCLO___V1184*/ curfptr[1183] = (void*)&cdat->dclo_1069__COMPILOBJ_NREP_IF; cdat->dclo_1069__COMPILOBJ_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1069__COMPILOBJ_NREP_IF.nbval = 0; /*iniobj dsym_1070__CLASS_NREP_IF*/ if (!/*_.VALDATA___V1185*/ curfptr[1184]) /*_.VALDATA___V1185*/ curfptr[1184] = (void*)&cdat->dsym_1070__CLASS_NREP_IF; basilys_assertmsg("iniobj checkdiscr dsym_1070__CLASS_NREP_IF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1070__CLASS_NREP_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1070__CLASS_NREP_IF.obj_hash = 942597626; cdat->dsym_1070__CLASS_NREP_IF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1070__CLASS_NREP_IF)); /*inistring dstr_1071__CLASS_NREP_IF*/ /*_.VALSTR___V1186*/ curfptr[1185] = (void*)&cdat->dstr_1071__CLASS_NREP_IF; cdat->dstr_1071__CLASS_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1071__CLASS_NREP_IF.val, "CLASS_NREP_IF", sizeof(cdat->dstr_1071__CLASS_NREP_IF.val)-1); /*inirout drout_1072__COMPILOBJ_NREP_IFISA*/ /*_.VALROUT___V1187*/ curfptr[1186] = (void*)&cdat->drout_1072__COMPILOBJ_NREP_IFISA; cdat->drout_1072__COMPILOBJ_NREP_IFISA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1072__COMPILOBJ_NREP_IFISA.routdescr, "COMPILOBJ_NREP_IFISA @warmelt-genobj.melt:2716", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1072__COMPILOBJ_NREP_IFISA.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1072__COMPILOBJ_NREP_IFISA, rout_90_COMPILOBJ_NREP_IFISA); /*iniclos dclo_1073__COMPILOBJ_NREP_IFISA*/ /*_.VALCLO___V1188*/ curfptr[1187] = (void*)&cdat->dclo_1073__COMPILOBJ_NREP_IFISA; cdat->dclo_1073__COMPILOBJ_NREP_IFISA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1073__COMPILOBJ_NREP_IFISA.nbval = 0; /*iniobj dsym_1074__CLASS_NREP_IFISA*/ if (!/*_.VALDATA___V1189*/ curfptr[1188]) /*_.VALDATA___V1189*/ curfptr[1188] = (void*)&cdat->dsym_1074__CLASS_NREP_IFISA; basilys_assertmsg("iniobj checkdiscr dsym_1074__CLASS_NREP_IFISA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1074__CLASS_NREP_IFISA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1074__CLASS_NREP_IFISA.obj_hash = 974189077; cdat->dsym_1074__CLASS_NREP_IFISA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1074__CLASS_NREP_IFISA)); /*inistring dstr_1075__CLASS_NREP_IFISA*/ /*_.VALSTR___V1190*/ curfptr[1189] = (void*)&cdat->dstr_1075__CLASS_NREP_IFISA; cdat->dstr_1075__CLASS_NREP_IFISA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1075__CLASS_NREP_IFISA.val, "CLASS_NREP_IFISA", sizeof(cdat->dstr_1075__CLASS_NREP_IFISA.val)-1); /*inirout drout_1076__PUTOBJDEST_OBJCOND*/ /*_.VALROUT___V1191*/ curfptr[1190] = (void*)&cdat->drout_1076__PUTOBJDEST_OBJCOND; cdat->drout_1076__PUTOBJDEST_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1076__PUTOBJDEST_OBJCOND.routdescr, "PUTOBJDEST_OBJCOND @warmelt-genobj.melt:2758", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1076__PUTOBJDEST_OBJCOND.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1076__PUTOBJDEST_OBJCOND, rout_91_PUTOBJDEST_OBJCOND); /*iniclos dclo_1077__PUTOBJDEST_OBJCOND*/ /*_.VALCLO___V1192*/ curfptr[1191] = (void*)&cdat->dclo_1077__PUTOBJDEST_OBJCOND; cdat->dclo_1077__PUTOBJDEST_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1077__PUTOBJDEST_OBJCOND.nbval = 0; /*inirout drout_1078__COMPILOBJ_NREP_CPPIF*/ /*_.VALROUT___V1193*/ curfptr[1192] = (void*)&cdat->drout_1078__COMPILOBJ_NREP_CPPIF; cdat->drout_1078__COMPILOBJ_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1078__COMPILOBJ_NREP_CPPIF.routdescr, "COMPILOBJ_NREP_CPPIF @warmelt-genobj.melt:2782", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1078__COMPILOBJ_NREP_CPPIF.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1078__COMPILOBJ_NREP_CPPIF, rout_92_COMPILOBJ_NREP_CPPIF); /*iniclos dclo_1079__COMPILOBJ_NREP_CPPIF*/ /*_.VALCLO___V1194*/ curfptr[1193] = (void*)&cdat->dclo_1079__COMPILOBJ_NREP_CPPIF; cdat->dclo_1079__COMPILOBJ_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1079__COMPILOBJ_NREP_CPPIF.nbval = 0; /*iniobj dsym_1080__CLASS_NREP_CPPIF*/ if (!/*_.VALDATA___V1195*/ curfptr[1194]) /*_.VALDATA___V1195*/ curfptr[1194] = (void*)&cdat->dsym_1080__CLASS_NREP_CPPIF; basilys_assertmsg("iniobj checkdiscr dsym_1080__CLASS_NREP_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1080__CLASS_NREP_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1080__CLASS_NREP_CPPIF.obj_hash = 768655685; cdat->dsym_1080__CLASS_NREP_CPPIF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1080__CLASS_NREP_CPPIF)); /*inistring dstr_1081__CLASS_NREP_CPPIF*/ /*_.VALSTR___V1196*/ curfptr[1195] = (void*)&cdat->dstr_1081__CLASS_NREP_CPPIF; cdat->dstr_1081__CLASS_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1081__CLASS_NREP_CPPIF.val, "CLASS_NREP_CPPIF", sizeof(cdat->dstr_1081__CLASS_NREP_CPPIF.val)-1); /*inirout drout_1082__PUTOBJDEST_OBJCPPIF*/ /*_.VALROUT___V1197*/ curfptr[1196] = (void*)&cdat->drout_1082__PUTOBJDEST_OBJCPPIF; cdat->drout_1082__PUTOBJDEST_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1082__PUTOBJDEST_OBJCPPIF.routdescr, "PUTOBJDEST_OBJCPPIF @warmelt-genobj.melt:2810", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1082__PUTOBJDEST_OBJCPPIF.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1082__PUTOBJDEST_OBJCPPIF, rout_93_PUTOBJDEST_OBJCPPIF); /*iniclos dclo_1083__PUTOBJDEST_OBJCPPIF*/ /*_.VALCLO___V1198*/ curfptr[1197] = (void*)&cdat->dclo_1083__PUTOBJDEST_OBJCPPIF; cdat->dclo_1083__PUTOBJDEST_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1083__PUTOBJDEST_OBJCPPIF.nbval = 0; /*inirout drout_1084__COMPILOBJ_NREP_RETURN*/ /*_.VALROUT___V1199*/ curfptr[1198] = (void*)&cdat->drout_1084__COMPILOBJ_NREP_RETURN; cdat->drout_1084__COMPILOBJ_NREP_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1084__COMPILOBJ_NREP_RETURN.routdescr, "COMPILOBJ_NREP_RETURN @warmelt-genobj.melt:2834", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1084__COMPILOBJ_NREP_RETURN.nbval = 14; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1084__COMPILOBJ_NREP_RETURN, rout_94_COMPILOBJ_NREP_RETURN); /*iniclos dclo_1085__COMPILOBJ_NREP_RETURN*/ /*_.VALCLO___V1201*/ curfptr[1200] = (void*)&cdat->dclo_1085__COMPILOBJ_NREP_RETURN; cdat->dclo_1085__COMPILOBJ_NREP_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1085__COMPILOBJ_NREP_RETURN.nbval = 0; /*iniobj dsym_1086__CLASS_NREP_RETURN*/ if (!/*_.VALDATA___V1202*/ curfptr[1201]) /*_.VALDATA___V1202*/ curfptr[1201] = (void*)&cdat->dsym_1086__CLASS_NREP_RETURN; basilys_assertmsg("iniobj checkdiscr dsym_1086__CLASS_NREP_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1086__CLASS_NREP_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1086__CLASS_NREP_RETURN.obj_hash = 622944524; cdat->dsym_1086__CLASS_NREP_RETURN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1086__CLASS_NREP_RETURN)); /*inistring dstr_1087__CLASS_NREP_RETUR*/ /*_.VALSTR___V1203*/ curfptr[1202] = (void*)&cdat->dstr_1087__CLASS_NREP_RETUR; cdat->dstr_1087__CLASS_NREP_RETUR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1087__CLASS_NREP_RETUR.val, "CLASS_NREP_RETURN", sizeof(cdat->dstr_1087__CLASS_NREP_RETUR.val)-1); /*inirout drout_1088__LAMBDA_*/ /*_.VALROUT___V1200*/ curfptr[1199] = (void*)&cdat->drout_1088__LAMBDA_; cdat->drout_1088__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1088__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2858", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1088__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1088__LAMBDA_, rout_95_LAMBDA_); /*inirout drout_1089__LAMBDA_*/ /*_.VALROUT___V1204*/ curfptr[1203] = (void*)&cdat->drout_1089__LAMBDA_; cdat->drout_1089__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1089__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2878", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1089__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1089__LAMBDA_, rout_96_LAMBDA_); /*iniobj dsym_1090__DISCRCLOSURE_OBJPREDEF*/ if (!/*_.VALDATA___V1205*/ curfptr[1204]) /*_.VALDATA___V1205*/ curfptr[1204] = (void*)&cdat->dsym_1090__DISCRCLOSURE_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_1090__DISCRCLOSURE_OBJPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1090__DISCRCLOSURE_OBJPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1090__DISCRCLOSURE_OBJPREDEF.obj_hash = 78252136; cdat->dsym_1090__DISCRCLOSURE_OBJPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1090__DISCRCLOSURE_OBJPREDEF)); /*inistring dstr_1091__DISCRCLOSURE_OBJ*/ /*_.VALSTR___V1206*/ curfptr[1205] = (void*)&cdat->dstr_1091__DISCRCLOSURE_OBJ; cdat->dstr_1091__DISCRCLOSURE_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1091__DISCRCLOSURE_OBJ.val, "DISCRCLOSURE_OBJPREDEF", sizeof(cdat->dstr_1091__DISCRCLOSURE_OBJ.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:2880:/ iniobj"); /*iniobj dobj_1092__DISCRCLOSURE_OBJPREDEF*/ if (!/*_.VALDATA___V1207*/ curfptr[1206]) /*_.VALDATA___V1207*/ curfptr[1206] = (void*)&cdat->dobj_1092__DISCRCLOSURE_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_1092__DISCRCLOSURE_OBJPREDEF", NULL != (void*)/*_.VALDATA___V178*/ curfptr[177]); cdat->dobj_1092__DISCRCLOSURE_OBJPREDEF.obj_class = (basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]); cdat->dobj_1092__DISCRCLOSURE_OBJPREDEF.obj_hash = 710873040; cdat->dobj_1092__DISCRCLOSURE_OBJPREDEF.obj_len = 2; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1092__DISCRCLOSURE_OBJPREDEF)); /*iniobj dsym_1093__DISCR_CLOSURE*/ if (!/*_.VALDATA___V1208*/ curfptr[1207]) /*_.VALDATA___V1208*/ curfptr[1207] = (void*)&cdat->dsym_1093__DISCR_CLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_1093__DISCR_CLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1093__DISCR_CLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1093__DISCR_CLOSURE.obj_hash = 99248147; cdat->dsym_1093__DISCR_CLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1093__DISCR_CLOSURE)); /*inistring dstr_1094__DISCR_CLOSURE*/ /*_.VALSTR___V1209*/ curfptr[1208] = (void*)&cdat->dstr_1094__DISCR_CLOSURE; cdat->dstr_1094__DISCR_CLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1094__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof(cdat->dstr_1094__DISCR_CLOSURE.val)-1); /*inirout drout_1095__COMPILOBJ_NREP_LAMBDA*/ /*_.VALROUT___V1210*/ curfptr[1209] = (void*)&cdat->drout_1095__COMPILOBJ_NREP_LAMBDA; cdat->drout_1095__COMPILOBJ_NREP_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1095__COMPILOBJ_NREP_LAMBDA.routdescr, "COMPILOBJ_NREP_LAMBDA @warmelt-genobj.melt:2886", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1095__COMPILOBJ_NREP_LAMBDA.nbval = 17; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1095__COMPILOBJ_NREP_LAMBDA, rout_97_COMPILOBJ_NREP_LAMBDA); /*iniclos dclo_1096__COMPILOBJ_NREP_LAMBDA*/ /*_.VALCLO___V1212*/ curfptr[1211] = (void*)&cdat->dclo_1096__COMPILOBJ_NREP_LAMBDA; cdat->dclo_1096__COMPILOBJ_NREP_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1096__COMPILOBJ_NREP_LAMBDA.nbval = 0; /*iniobj dsym_1097__CLASS_NREP_LAMBDA*/ if (!/*_.VALDATA___V1213*/ curfptr[1212]) /*_.VALDATA___V1213*/ curfptr[1212] = (void*)&cdat->dsym_1097__CLASS_NREP_LAMBDA; basilys_assertmsg("iniobj checkdiscr dsym_1097__CLASS_NREP_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1097__CLASS_NREP_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1097__CLASS_NREP_LAMBDA.obj_hash = 16774872; cdat->dsym_1097__CLASS_NREP_LAMBDA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1097__CLASS_NREP_LAMBDA)); /*inistring dstr_1098__CLASS_NREP_LAMBD*/ /*_.VALSTR___V1214*/ curfptr[1213] = (void*)&cdat->dstr_1098__CLASS_NREP_LAMBD; cdat->dstr_1098__CLASS_NREP_LAMBD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1098__CLASS_NREP_LAMBD.val, "CLASS_NREP_LAMBDA", sizeof(cdat->dstr_1098__CLASS_NREP_LAMBD.val)-1); /*inirout drout_1099__LAMBDA_*/ /*_.VALROUT___V1211*/ curfptr[1210] = (void*)&cdat->drout_1099__LAMBDA_; cdat->drout_1099__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1099__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2924", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1099__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1099__LAMBDA_, rout_98_LAMBDA_); /*inirout drout_1100__COMPILOBJ_NREP_MAKEINST*/ /*_.VALROUT___V1215*/ curfptr[1214] = (void*)&cdat->drout_1100__COMPILOBJ_NREP_MAKEINST; cdat->drout_1100__COMPILOBJ_NREP_MAKEINST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1100__COMPILOBJ_NREP_MAKEINST.routdescr, "COMPILOBJ_NREP_MAKEINST @warmelt-genobj.melt:2941", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1100__COMPILOBJ_NREP_MAKEINST.nbval = 19; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1100__COMPILOBJ_NREP_MAKEINST, rout_99_COMPILOBJ_NREP_MAKEINST); /*iniclos dclo_1101__COMPILOBJ_NREP_MAKEINST*/ /*_.VALCLO___V1219*/ curfptr[1218] = (void*)&cdat->dclo_1101__COMPILOBJ_NREP_MAKEINST; cdat->dclo_1101__COMPILOBJ_NREP_MAKEINST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1101__COMPILOBJ_NREP_MAKEINST.nbval = 0; /*iniobj dsym_1102__CLASS_NREP_MAKE_INSTANCE*/ if (!/*_.VALDATA___V1220*/ curfptr[1219]) /*_.VALDATA___V1220*/ curfptr[1219] = (void*)&cdat->dsym_1102__CLASS_NREP_MAKE_INSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_1102__CLASS_NREP_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1102__CLASS_NREP_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1102__CLASS_NREP_MAKE_INSTANCE.obj_hash = 480653236; cdat->dsym_1102__CLASS_NREP_MAKE_INSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1102__CLASS_NREP_MAKE_INSTANCE)); /*inistring dstr_1103__CLASS_NREP_MAKE_*/ /*_.VALSTR___V1221*/ curfptr[1220] = (void*)&cdat->dstr_1103__CLASS_NREP_MAKE_; cdat->dstr_1103__CLASS_NREP_MAKE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1103__CLASS_NREP_MAKE_.val, "CLASS_NREP_MAKE_INSTANCE", sizeof(cdat->dstr_1103__CLASS_NREP_MAKE_.val)-1); /*iniobj dsym_1104__CLASS_CLASS*/ if (!/*_.VALDATA___V1222*/ curfptr[1221]) /*_.VALDATA___V1222*/ curfptr[1221] = (void*)&cdat->dsym_1104__CLASS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_1104__CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1104__CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1104__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_1104__CLASS_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1104__CLASS_CLASS)); /*inistring dstr_1105__CLASS_CLASS*/ /*_.VALSTR___V1223*/ curfptr[1222] = (void*)&cdat->dstr_1105__CLASS_CLASS; cdat->dstr_1105__CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1105__CLASS_CLASS.val, "CLASS_CLASS", sizeof(cdat->dstr_1105__CLASS_CLASS.val)-1); /*iniobj dsym_1106__INST*/ if (!/*_.VALDATA___V1216*/ curfptr[1215]) /*_.VALDATA___V1216*/ curfptr[1215] = (void*)&cdat->dsym_1106__INST; basilys_assertmsg("iniobj checkdiscr dsym_1106__INST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1106__INST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1106__INST.obj_hash = 36500330; cdat->dsym_1106__INST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1106__INST)); /*inistring dstr_1107__INST*/ /*_.VALSTR___V1217*/ curfptr[1216] = (void*)&cdat->dstr_1107__INST; cdat->dstr_1107__INST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1107__INST.val, "INST", sizeof(cdat->dstr_1107__INST.val)-1); /*inirout drout_1108__LAMBDA_*/ /*_.VALROUT___V1218*/ curfptr[1217] = (void*)&cdat->drout_1108__LAMBDA_; cdat->drout_1108__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1108__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2972", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1108__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1108__LAMBDA_, rout_100_LAMBDA_); /*inirout drout_1109__COMPILOBJ_ROUTPROC*/ /*_.VALROUT___V1224*/ curfptr[1223] = (void*)&cdat->drout_1109__COMPILOBJ_ROUTPROC; cdat->drout_1109__COMPILOBJ_ROUTPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1109__COMPILOBJ_ROUTPROC.routdescr, "COMPILOBJ_ROUTPROC @warmelt-genobj.melt:2999", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1109__COMPILOBJ_ROUTPROC.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1109__COMPILOBJ_ROUTPROC, rout_101_COMPILOBJ_ROUTPROC); /*iniclos dclo_1110__COMPILOBJ_ROUTPROC*/ /*_.VALCLO___V1225*/ curfptr[1224] = (void*)&cdat->dclo_1110__COMPILOBJ_ROUTPROC; cdat->dclo_1110__COMPILOBJ_ROUTPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1110__COMPILOBJ_ROUTPROC.nbval = 0; /*inirout drout_1111__COMPILOBJ_PREDEF*/ /*_.VALROUT___V1226*/ curfptr[1225] = (void*)&cdat->drout_1111__COMPILOBJ_PREDEF; cdat->drout_1111__COMPILOBJ_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1111__COMPILOBJ_PREDEF.routdescr, "COMPILOBJ_PREDEF @warmelt-genobj.melt:3009", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1111__COMPILOBJ_PREDEF.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1111__COMPILOBJ_PREDEF, rout_102_COMPILOBJ_PREDEF); /*iniclos dclo_1112__COMPILOBJ_PREDEF*/ /*_.VALCLO___V1227*/ curfptr[1226] = (void*)&cdat->dclo_1112__COMPILOBJ_PREDEF; cdat->dclo_1112__COMPILOBJ_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1112__COMPILOBJ_PREDEF.nbval = 0; /*iniobj dsym_1113__CLASS_NREP_PREDEF*/ if (!/*_.VALDATA___V1228*/ curfptr[1227]) /*_.VALDATA___V1228*/ curfptr[1227] = (void*)&cdat->dsym_1113__CLASS_NREP_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_1113__CLASS_NREP_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1113__CLASS_NREP_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1113__CLASS_NREP_PREDEF.obj_hash = 422259469; cdat->dsym_1113__CLASS_NREP_PREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1113__CLASS_NREP_PREDEF)); /*inistring dstr_1114__CLASS_NREP_PREDE*/ /*_.VALSTR___V1229*/ curfptr[1228] = (void*)&cdat->dstr_1114__CLASS_NREP_PREDE; cdat->dstr_1114__CLASS_NREP_PREDE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1114__CLASS_NREP_PREDE.val, "CLASS_NREP_PREDEF", sizeof(cdat->dstr_1114__CLASS_NREP_PREDE.val)-1); /*inirout drout_1115__COMPIL_DATA_AND_SLOTS_FILL*/ /*_.VALROUT___V1230*/ curfptr[1229] = (void*)&cdat->drout_1115__COMPIL_DATA_AND_SLOTS_FILL; cdat->drout_1115__COMPIL_DATA_AND_SLOTS_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1115__COMPIL_DATA_AND_SLOTS_FILL.routdescr, "COMPIL_DATA_AND_SLOTS_FILL @warmelt-genobj.melt:3027", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1115__COMPIL_DATA_AND_SLOTS_FILL.nbval = 32; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1115__COMPIL_DATA_AND_SLOTS_FILL, rout_103_COMPIL_DATA_AND_SLOTS_FILL); /*iniclos dclo_1116__COMPIL_DATA_AND_SLOTS_FILL*/ /*_.VALCLO___V1238*/ curfptr[1237] = (void*)&cdat->dclo_1116__COMPIL_DATA_AND_SLOTS_FILL; cdat->dclo_1116__COMPIL_DATA_AND_SLOTS_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1116__COMPIL_DATA_AND_SLOTS_FILL.nbval = 0; /*iniobj dsym_1117__VALDATA_*/ if (!/*_.VALDATA___V1231*/ curfptr[1230]) /*_.VALDATA___V1231*/ curfptr[1230] = (void*)&cdat->dsym_1117__VALDATA_; basilys_assertmsg("iniobj checkdiscr dsym_1117__VALDATA_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1117__VALDATA_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1117__VALDATA_.obj_hash = 49606842; cdat->dsym_1117__VALDATA_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1117__VALDATA_)); /*inistring dstr_1118__VALDATA_*/ /*_.VALSTR___V1232*/ curfptr[1231] = (void*)&cdat->dstr_1118__VALDATA_; cdat->dstr_1118__VALDATA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1118__VALDATA_.val, "_VALDATA_", sizeof(cdat->dstr_1118__VALDATA_.val)-1); /*iniobj dsym_1119__VALUEDATA_*/ if (!/*_.VALDATA___V1233*/ curfptr[1232]) /*_.VALDATA___V1233*/ curfptr[1232] = (void*)&cdat->dsym_1119__VALUEDATA_; basilys_assertmsg("iniobj checkdiscr dsym_1119__VALUEDATA_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1119__VALUEDATA_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1119__VALUEDATA_.obj_hash = 46272601; cdat->dsym_1119__VALUEDATA_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1119__VALUEDATA_)); /*inistring dstr_1120__VALUEDATA_*/ /*_.VALSTR___V1234*/ curfptr[1233] = (void*)&cdat->dstr_1120__VALUEDATA_; cdat->dstr_1120__VALUEDATA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1120__VALUEDATA_.val, "_VALUEDATA_", sizeof(cdat->dstr_1120__VALUEDATA_.val)-1); /*inirout drout_1121__LAMBDA_*/ /*_.VALROUT___V1235*/ curfptr[1234] = (void*)&cdat->drout_1121__LAMBDA_; cdat->drout_1121__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1121__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3102", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1121__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1121__LAMBDA_, rout_104_LAMBDA_); /*inirout drout_1122__LAMBDA_*/ /*_.VALROUT___V1236*/ curfptr[1235] = (void*)&cdat->drout_1122__LAMBDA_; cdat->drout_1122__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1122__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3121", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1122__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1122__LAMBDA_, rout_105_LAMBDA_); /*inirout drout_1123__LAMBDA_*/ /*_.VALROUT___V1237*/ curfptr[1236] = (void*)&cdat->drout_1123__LAMBDA_; cdat->drout_1123__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1123__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3150", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1123__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1123__LAMBDA_, rout_106_LAMBDA_); /*inirout drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL*/ /*_.VALROUT___V1239*/ curfptr[1238] = (void*)&cdat->drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL; cdat->drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.routdescr, "DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL @warmelt-genobj.melt:3172", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL, rout_107_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL); /*iniclos dclo_1125__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL*/ /*_.VALCLO___V1241*/ curfptr[1240] = (void*)&cdat->dclo_1125__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL; cdat->dclo_1125__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1125__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.nbval = 0; /*inirout drout_1126__LAMBDA_*/ /*_.VALROUT___V1240*/ curfptr[1239] = (void*)&cdat->drout_1126__LAMBDA_; cdat->drout_1126__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1126__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3177", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1126__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1126__LAMBDA_, rout_108_LAMBDA_); /*inirout drout_1127__COMPILOBJ_DATASYMBOL*/ /*_.VALROUT___V1242*/ curfptr[1241] = (void*)&cdat->drout_1127__COMPILOBJ_DATASYMBOL; cdat->drout_1127__COMPILOBJ_DATASYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1127__COMPILOBJ_DATASYMBOL.routdescr, "COMPILOBJ_DATASYMBOL @warmelt-genobj.melt:3180", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1127__COMPILOBJ_DATASYMBOL.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1127__COMPILOBJ_DATASYMBOL, rout_109_COMPILOBJ_DATASYMBOL); /*iniclos dclo_1128__COMPILOBJ_DATASYMBOL*/ /*_.VALCLO___V1243*/ curfptr[1242] = (void*)&cdat->dclo_1128__COMPILOBJ_DATASYMBOL; cdat->dclo_1128__COMPILOBJ_DATASYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1128__COMPILOBJ_DATASYMBOL.nbval = 0; /*inirout drout_1129__COMPILOBJ_DATAINSTANCE*/ /*_.VALROUT___V1244*/ curfptr[1243] = (void*)&cdat->drout_1129__COMPILOBJ_DATAINSTANCE; cdat->drout_1129__COMPILOBJ_DATAINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1129__COMPILOBJ_DATAINSTANCE.routdescr, "COMPILOBJ_DATAINSTANCE @warmelt-genobj.melt:3231", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1129__COMPILOBJ_DATAINSTANCE.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1129__COMPILOBJ_DATAINSTANCE, rout_110_COMPILOBJ_DATAINSTANCE); /*iniclos dclo_1130__COMPILOBJ_DATAINSTANCE*/ /*_.VALCLO___V1245*/ curfptr[1244] = (void*)&cdat->dclo_1130__COMPILOBJ_DATAINSTANCE; cdat->dclo_1130__COMPILOBJ_DATAINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1130__COMPILOBJ_DATAINSTANCE.nbval = 0; /*inirout drout_1131__COMPILOBJ_DATATUPLE*/ /*_.VALROUT___V1246*/ curfptr[1245] = (void*)&cdat->drout_1131__COMPILOBJ_DATATUPLE; cdat->drout_1131__COMPILOBJ_DATATUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1131__COMPILOBJ_DATATUPLE.routdescr, "COMPILOBJ_DATATUPLE @warmelt-genobj.melt:3309", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1131__COMPILOBJ_DATATUPLE.nbval = 20; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1131__COMPILOBJ_DATATUPLE, rout_111_COMPILOBJ_DATATUPLE); /*iniclos dclo_1132__COMPILOBJ_DATATUPLE*/ /*_.VALCLO___V1253*/ curfptr[1252] = (void*)&cdat->dclo_1132__COMPILOBJ_DATATUPLE; cdat->dclo_1132__COMPILOBJ_DATATUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1132__COMPILOBJ_DATATUPLE.nbval = 0; /*iniobj dsym_1133__CLASS_NREP_DATATUPLE*/ if (!/*_.VALDATA___V1254*/ curfptr[1253]) /*_.VALDATA___V1254*/ curfptr[1253] = (void*)&cdat->dsym_1133__CLASS_NREP_DATATUPLE; basilys_assertmsg("iniobj checkdiscr dsym_1133__CLASS_NREP_DATATUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1133__CLASS_NREP_DATATUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1133__CLASS_NREP_DATATUPLE.obj_hash = 100529129; cdat->dsym_1133__CLASS_NREP_DATATUPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1133__CLASS_NREP_DATATUPLE)); /*inistring dstr_1134__CLASS_NREP_DATAT*/ /*_.VALSTR___V1255*/ curfptr[1254] = (void*)&cdat->dstr_1134__CLASS_NREP_DATAT; cdat->dstr_1134__CLASS_NREP_DATAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1134__CLASS_NREP_DATAT.val, "CLASS_NREP_DATATUPLE", sizeof(cdat->dstr_1134__CLASS_NREP_DATAT.val)-1); /*inirout drout_1135__LAMBDA_*/ /*_.VALROUT___V1247*/ curfptr[1246] = (void*)&cdat->drout_1135__LAMBDA_; cdat->drout_1135__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1135__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3327", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1135__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1135__LAMBDA_, rout_112_LAMBDA_); /*iniobj dsym_1136__VALTUP_*/ if (!/*_.VALDATA___V1248*/ curfptr[1247]) /*_.VALDATA___V1248*/ curfptr[1247] = (void*)&cdat->dsym_1136__VALTUP_; basilys_assertmsg("iniobj checkdiscr dsym_1136__VALTUP_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1136__VALTUP_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1136__VALTUP_.obj_hash = 21536389; cdat->dsym_1136__VALTUP_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1136__VALTUP_)); /*inistring dstr_1137__VALTUP_*/ /*_.VALSTR___V1249*/ curfptr[1248] = (void*)&cdat->dstr_1137__VALTUP_; cdat->dstr_1137__VALTUP_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1137__VALTUP_.val, "_VALTUP_", sizeof(cdat->dstr_1137__VALTUP_.val)-1); /*iniobj dsym_1138__INITUP_*/ if (!/*_.VALDATA___V1250*/ curfptr[1249]) /*_.VALDATA___V1250*/ curfptr[1249] = (void*)&cdat->dsym_1138__INITUP_; basilys_assertmsg("iniobj checkdiscr dsym_1138__INITUP_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1138__INITUP_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1138__INITUP_.obj_hash = 117725906; cdat->dsym_1138__INITUP_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1138__INITUP_)); /*inistring dstr_1139__INITUP_*/ /*_.VALSTR___V1251*/ curfptr[1250] = (void*)&cdat->dstr_1139__INITUP_; cdat->dstr_1139__INITUP_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1139__INITUP_.val, "_INITUP_", sizeof(cdat->dstr_1139__INITUP_.val)-1); /*inirout drout_1140__LAMBDA_*/ /*_.VALROUT___V1252*/ curfptr[1251] = (void*)&cdat->drout_1140__LAMBDA_; cdat->drout_1140__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1140__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3355", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1140__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1140__LAMBDA_, rout_113_LAMBDA_); /*inirout drout_1141__COMPILOBJ_DATASTRING*/ /*_.VALROUT___V1256*/ curfptr[1255] = (void*)&cdat->drout_1141__COMPILOBJ_DATASTRING; cdat->drout_1141__COMPILOBJ_DATASTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1141__COMPILOBJ_DATASTRING.routdescr, "COMPILOBJ_DATASTRING @warmelt-genobj.melt:3380", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1141__COMPILOBJ_DATASTRING.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1141__COMPILOBJ_DATASTRING, rout_114_COMPILOBJ_DATASTRING); /*iniclos dclo_1142__COMPILOBJ_DATASTRING*/ /*_.VALCLO___V1259*/ curfptr[1258] = (void*)&cdat->dclo_1142__COMPILOBJ_DATASTRING; cdat->dclo_1142__COMPILOBJ_DATASTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1142__COMPILOBJ_DATASTRING.nbval = 0; /*iniobj dsym_1143__CLASS_NREP_DATASTRING*/ if (!/*_.VALDATA___V1260*/ curfptr[1259]) /*_.VALDATA___V1260*/ curfptr[1259] = (void*)&cdat->dsym_1143__CLASS_NREP_DATASTRING; basilys_assertmsg("iniobj checkdiscr dsym_1143__CLASS_NREP_DATASTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1143__CLASS_NREP_DATASTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1143__CLASS_NREP_DATASTRING.obj_hash = 1030159655; cdat->dsym_1143__CLASS_NREP_DATASTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1143__CLASS_NREP_DATASTRING)); /*inistring dstr_1144__CLASS_NREP_DATAS*/ /*_.VALSTR___V1261*/ curfptr[1260] = (void*)&cdat->dstr_1144__CLASS_NREP_DATAS; cdat->dstr_1144__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1144__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASTRING", sizeof(cdat->dstr_1144__CLASS_NREP_DATAS.val)-1); /*iniobj dsym_1145__VALSTR_*/ if (!/*_.VALDATA___V1257*/ curfptr[1256]) /*_.VALDATA___V1257*/ curfptr[1256] = (void*)&cdat->dsym_1145__VALSTR_; basilys_assertmsg("iniobj checkdiscr dsym_1145__VALSTR_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1145__VALSTR_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1145__VALSTR_.obj_hash = 24192176; cdat->dsym_1145__VALSTR_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1145__VALSTR_)); /*inistring dstr_1146__VALSTR_*/ /*_.VALSTR___V1258*/ curfptr[1257] = (void*)&cdat->dstr_1146__VALSTR_; cdat->dstr_1146__VALSTR_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1146__VALSTR_.val, "_VALSTR_", sizeof(cdat->dstr_1146__VALSTR_.val)-1); /*inirout drout_1147__COMPILOBJ_DATACLOSURE*/ /*_.VALROUT___V1262*/ curfptr[1261] = (void*)&cdat->drout_1147__COMPILOBJ_DATACLOSURE; cdat->drout_1147__COMPILOBJ_DATACLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1147__COMPILOBJ_DATACLOSURE.routdescr, "COMPILOBJ_DATACLOSURE @warmelt-genobj.melt:3429", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1147__COMPILOBJ_DATACLOSURE.nbval = 23; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1147__COMPILOBJ_DATACLOSURE, rout_115_COMPILOBJ_DATACLOSURE); /*iniclos dclo_1148__COMPILOBJ_DATACLOSURE*/ /*_.VALCLO___V1268*/ curfptr[1267] = (void*)&cdat->dclo_1148__COMPILOBJ_DATACLOSURE; cdat->dclo_1148__COMPILOBJ_DATACLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1148__COMPILOBJ_DATACLOSURE.nbval = 0; /*iniobj dsym_1149__CLASS_NREP_DATACLOSURE*/ if (!/*_.VALDATA___V1269*/ curfptr[1268]) /*_.VALDATA___V1269*/ curfptr[1268] = (void*)&cdat->dsym_1149__CLASS_NREP_DATACLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_1149__CLASS_NREP_DATACLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1149__CLASS_NREP_DATACLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1149__CLASS_NREP_DATACLOSURE.obj_hash = 206205313; cdat->dsym_1149__CLASS_NREP_DATACLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1149__CLASS_NREP_DATACLOSURE)); /*inistring dstr_1150__CLASS_NREP_DATAC*/ /*_.VALSTR___V1270*/ curfptr[1269] = (void*)&cdat->dstr_1150__CLASS_NREP_DATAC; cdat->dstr_1150__CLASS_NREP_DATAC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1150__CLASS_NREP_DATAC.val, "CLASS_NREP_DATACLOSURE", sizeof(cdat->dstr_1150__CLASS_NREP_DATAC.val)-1); /*iniobj dsym_1151__VALCLO_*/ if (!/*_.VALDATA___V1263*/ curfptr[1262]) /*_.VALDATA___V1263*/ curfptr[1262] = (void*)&cdat->dsym_1151__VALCLO_; basilys_assertmsg("iniobj checkdiscr dsym_1151__VALCLO_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1151__VALCLO_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1151__VALCLO_.obj_hash = 107460852; cdat->dsym_1151__VALCLO_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1151__VALCLO_)); /*inistring dstr_1152__VALCLO_*/ /*_.VALSTR___V1264*/ curfptr[1263] = (void*)&cdat->dstr_1152__VALCLO_; cdat->dstr_1152__VALCLO_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1152__VALCLO_.val, "_VALCLO_", sizeof(cdat->dstr_1152__VALCLO_.val)-1); /*iniobj dsym_1153__DATACLOSURE_*/ if (!/*_.VALDATA___V1265*/ curfptr[1264]) /*_.VALDATA___V1265*/ curfptr[1264] = (void*)&cdat->dsym_1153__DATACLOSURE_; basilys_assertmsg("iniobj checkdiscr dsym_1153__DATACLOSURE_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1153__DATACLOSURE_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1153__DATACLOSURE_.obj_hash = 12102076; cdat->dsym_1153__DATACLOSURE_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1153__DATACLOSURE_)); /*inistring dstr_1154__DATACLOSURE_*/ /*_.VALSTR___V1266*/ curfptr[1265] = (void*)&cdat->dstr_1154__DATACLOSURE_; cdat->dstr_1154__DATACLOSURE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1154__DATACLOSURE_.val, "_DATACLOSURE_", sizeof(cdat->dstr_1154__DATACLOSURE_.val)-1); /*iniobj dsym_1155__CLASS_NREP_DATAROUTINE*/ if (!/*_.VALDATA___V1271*/ curfptr[1270]) /*_.VALDATA___V1271*/ curfptr[1270] = (void*)&cdat->dsym_1155__CLASS_NREP_DATAROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_1155__CLASS_NREP_DATAROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1155__CLASS_NREP_DATAROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1155__CLASS_NREP_DATAROUTINE.obj_hash = 675830344; cdat->dsym_1155__CLASS_NREP_DATAROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1155__CLASS_NREP_DATAROUTINE)); /*inistring dstr_1156__CLASS_NREP_DATAR*/ /*_.VALSTR___V1272*/ curfptr[1271] = (void*)&cdat->dstr_1156__CLASS_NREP_DATAR; cdat->dstr_1156__CLASS_NREP_DATAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1156__CLASS_NREP_DATAR.val, "CLASS_NREP_DATAROUTINE", sizeof(cdat->dstr_1156__CLASS_NREP_DATAR.val)-1); /*inirout drout_1157__LAMBDA_*/ /*_.VALROUT___V1267*/ curfptr[1266] = (void*)&cdat->drout_1157__LAMBDA_; cdat->drout_1157__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1157__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3496", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1157__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1157__LAMBDA_, rout_116_LAMBDA_); /*inirout drout_1158__COMPILOBJ_DATAROUTINE*/ /*_.VALROUT___V1273*/ curfptr[1272] = (void*)&cdat->drout_1158__COMPILOBJ_DATAROUTINE; cdat->drout_1158__COMPILOBJ_DATAROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1158__COMPILOBJ_DATAROUTINE.routdescr, "COMPILOBJ_DATAROUTINE @warmelt-genobj.melt:3520", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1158__COMPILOBJ_DATAROUTINE.nbval = 27; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1158__COMPILOBJ_DATAROUTINE, rout_117_COMPILOBJ_DATAROUTINE); /*iniclos dclo_1159__COMPILOBJ_DATAROUTINE*/ /*_.VALCLO___V1279*/ curfptr[1278] = (void*)&cdat->dclo_1159__COMPILOBJ_DATAROUTINE; cdat->dclo_1159__COMPILOBJ_DATAROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1159__COMPILOBJ_DATAROUTINE.nbval = 0; /*iniobj dsym_1160__VALROUT_*/ if (!/*_.VALDATA___V1274*/ curfptr[1273]) /*_.VALDATA___V1274*/ curfptr[1273] = (void*)&cdat->dsym_1160__VALROUT_; basilys_assertmsg("iniobj checkdiscr dsym_1160__VALROUT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1160__VALROUT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1160__VALROUT_.obj_hash = 99461589; cdat->dsym_1160__VALROUT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1160__VALROUT_)); /*inistring dstr_1161__VALROUT_*/ /*_.VALSTR___V1275*/ curfptr[1274] = (void*)&cdat->dstr_1161__VALROUT_; cdat->dstr_1161__VALROUT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1161__VALROUT_.val, "_VALROUT_", sizeof(cdat->dstr_1161__VALROUT_.val)-1); /*iniobj dsym_1162__IROUTVAL_*/ if (!/*_.VALDATA___V1276*/ curfptr[1275]) /*_.VALDATA___V1276*/ curfptr[1275] = (void*)&cdat->dsym_1162__IROUTVAL_; basilys_assertmsg("iniobj checkdiscr dsym_1162__IROUTVAL_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1162__IROUTVAL_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1162__IROUTVAL_.obj_hash = 80558693; cdat->dsym_1162__IROUTVAL_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1162__IROUTVAL_)); /*inistring dstr_1163__IROUTVAL_*/ /*_.VALSTR___V1277*/ curfptr[1276] = (void*)&cdat->dstr_1163__IROUTVAL_; cdat->dstr_1163__IROUTVAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1163__IROUTVAL_.val, "_IROUTVAL_", sizeof(cdat->dstr_1163__IROUTVAL_.val)-1); /*inirout drout_1164__LAMBDA_*/ /*_.VALROUT___V1278*/ curfptr[1277] = (void*)&cdat->drout_1164__LAMBDA_; cdat->drout_1164__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1164__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3582", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1164__LAMBDA_.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1164__LAMBDA_, rout_118_LAMBDA_); /*iniobj dsym_1165__CLASS_NREP_QUASIDATA*/ if (!/*_.VALDATA___V1280*/ curfptr[1279]) /*_.VALDATA___V1280*/ curfptr[1279] = (void*)&cdat->dsym_1165__CLASS_NREP_QUASIDATA; basilys_assertmsg("iniobj checkdiscr dsym_1165__CLASS_NREP_QUASIDATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1165__CLASS_NREP_QUASIDATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1165__CLASS_NREP_QUASIDATA.obj_hash = 752535427; cdat->dsym_1165__CLASS_NREP_QUASIDATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1165__CLASS_NREP_QUASIDATA)); /*inistring dstr_1166__CLASS_NREP_QUASI*/ /*_.VALSTR___V1281*/ curfptr[1280] = (void*)&cdat->dstr_1166__CLASS_NREP_QUASI; cdat->dstr_1166__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1166__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA", sizeof(cdat->dstr_1166__CLASS_NREP_QUASI.val)-1); /*inirout drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1282*/ curfptr[1281] = (void*)&cdat->drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:3647", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_119_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER); /*iniclos dclo_1168__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALCLO___V1283*/ curfptr[1282] = (void*)&cdat->dclo_1168__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_1168__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1168__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*iniobj dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V1284*/ curfptr[1283]) /*_.VALDATA___V1284*/ curfptr[1283] = (void*)&cdat->dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 940676789; cdat->dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1169__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_1170__CLASS_NREP_QUASI*/ /*_.VALSTR___V1285*/ curfptr[1284] = (void*)&cdat->dstr_1170__CLASS_NREP_QUASI; cdat->dstr_1170__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1170__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof(cdat->dstr_1170__CLASS_NREP_QUASI.val)-1); /*inirout drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ /*_.VALROUT___V1286*/ curfptr[1285] = (void*)&cdat->drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT; cdat->drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.routdescr, "COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT @warmelt-genobj.melt:3659", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT, rout_120_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT); /*iniclos dclo_1172__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ /*_.VALCLO___V1287*/ curfptr[1286] = (void*)&cdat->dclo_1172__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT; cdat->dclo_1172__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1172__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.nbval = 0; /*iniobj dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ if (!/*_.VALDATA___V1288*/ curfptr[1287]) /*_.VALDATA___V1288*/ curfptr[1287] = (void*)&cdat->dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 876593992; cdat->dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1173__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_1174__CLASS_NREP_QUASI*/ /*_.VALSTR___V1289*/ curfptr[1288] = (void*)&cdat->dstr_1174__CLASS_NREP_QUASI; cdat->dstr_1174__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1174__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", sizeof(cdat->dstr_1174__CLASS_NREP_QUASI.val)-1); /*inirout drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED*/ /*_.VALROUT___V1290*/ curfptr[1289] = (void*)&cdat->drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED; cdat->drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED.routdescr, "COMPILOBJ_NREP_STORE_PREDEFINED @warmelt-genobj.melt:3671", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED, rout_121_COMPILOBJ_NREP_STORE_PREDEFINED); /*iniclos dclo_1176__COMPILOBJ_NREP_STORE_PREDEFINED*/ /*_.VALCLO___V1291*/ curfptr[1290] = (void*)&cdat->dclo_1176__COMPILOBJ_NREP_STORE_PREDEFINED; cdat->dclo_1176__COMPILOBJ_NREP_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1176__COMPILOBJ_NREP_STORE_PREDEFINED.nbval = 0; /*iniobj dsym_1177__CLASS_NREP_STORE_PREDEFINED*/ if (!/*_.VALDATA___V1292*/ curfptr[1291]) /*_.VALDATA___V1292*/ curfptr[1291] = (void*)&cdat->dsym_1177__CLASS_NREP_STORE_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dsym_1177__CLASS_NREP_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1177__CLASS_NREP_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1177__CLASS_NREP_STORE_PREDEFINED.obj_hash = 391152767; cdat->dsym_1177__CLASS_NREP_STORE_PREDEFINED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1177__CLASS_NREP_STORE_PREDEFINED)); /*inistring dstr_1178__CLASS_NREP_STORE*/ /*_.VALSTR___V1293*/ curfptr[1292] = (void*)&cdat->dstr_1178__CLASS_NREP_STORE; cdat->dstr_1178__CLASS_NREP_STORE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1178__CLASS_NREP_STORE.val, "CLASS_NREP_STORE_PREDEFINED", sizeof(cdat->dstr_1178__CLASS_NREP_STORE.val)-1); /*inirout drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1294*/ curfptr[1293] = (void*)&cdat->drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:3705", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 24; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_122_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); /*iniclos dclo_1180__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALCLO___V1297*/ curfptr[1296] = (void*)&cdat->dclo_1180__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_1180__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1180__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*iniobj dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V1298*/ curfptr[1297]) /*_.VALDATA___V1298*/ curfptr[1297] = (void*)&cdat->dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 1007630346; cdat->dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1181__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_1182__CLASS_NREP_UPDAT*/ /*_.VALSTR___V1299*/ curfptr[1298] = (void*)&cdat->dstr_1182__CLASS_NREP_UPDAT; cdat->dstr_1182__CLASS_NREP_UPDAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1182__CLASS_NREP_UPDAT.val, "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof(cdat->dstr_1182__CLASS_NREP_UPDAT.val)-1); /*inirout drout_1183__LAMBDA_*/ /*_.VALROUT___V1295*/ curfptr[1294] = (void*)&cdat->drout_1183__LAMBDA_; cdat->drout_1183__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1183__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3737", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1183__LAMBDA_.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1183__LAMBDA_, rout_123_LAMBDA_); /*inirout drout_1184__LAMBDA_*/ /*_.VALROUT___V1296*/ curfptr[1295] = (void*)&cdat->drout_1184__LAMBDA_; cdat->drout_1184__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1184__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3754", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1184__LAMBDA_.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1184__LAMBDA_, rout_124_LAMBDA_); /*iniobj dsym_1185__COMPILE_MATCHER*/ if (!/*_.VALDATA___V1300*/ curfptr[1299]) /*_.VALDATA___V1300*/ curfptr[1299] = (void*)&cdat->dsym_1185__COMPILE_MATCHER; basilys_assertmsg("iniobj checkdiscr dsym_1185__COMPILE_MATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1185__COMPILE_MATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1185__COMPILE_MATCHER.obj_hash = 1017313272; cdat->dsym_1185__COMPILE_MATCHER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1185__COMPILE_MATCHER)); /*inistring dstr_1186__COMPILE_MATCHER*/ /*_.VALSTR___V1301*/ curfptr[1300] = (void*)&cdat->dstr_1186__COMPILE_MATCHER; cdat->dstr_1186__COMPILE_MATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1186__COMPILE_MATCHER.val, "COMPILE_MATCHER", sizeof(cdat->dstr_1186__COMPILE_MATCHER.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3809:/ iniobj"); /*iniobj dobj_1187__COMPILE_MATCHER*/ if (!/*_.VALDATA___V1302*/ curfptr[1301]) /*_.VALDATA___V1302*/ curfptr[1301] = (void*)&cdat->dobj_1187__COMPILE_MATCHER; basilys_assertmsg("iniobj checkdiscr dobj_1187__COMPILE_MATCHER", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_1187__COMPILE_MATCHER.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_1187__COMPILE_MATCHER.obj_hash = 22039788; cdat->dobj_1187__COMPILE_MATCHER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1187__COMPILE_MATCHER)); /*inistring dstr_1188__COMPILE_MATCHER*/ /*_.VALSTR___V1303*/ curfptr[1302] = (void*)&cdat->dstr_1188__COMPILE_MATCHER; cdat->dstr_1188__COMPILE_MATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1188__COMPILE_MATCHER.val, "COMPILE_MATCHER", sizeof(cdat->dstr_1188__COMPILE_MATCHER.val)-1); /*iniobj dsym_1189__CLASS_MATCHCOMPILCONTEXT*/ if (!/*_.VALDATA___V1304*/ curfptr[1303]) /*_.VALDATA___V1304*/ curfptr[1303] = (void*)&cdat->dsym_1189__CLASS_MATCHCOMPILCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_1189__CLASS_MATCHCOMPILCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1189__CLASS_MATCHCOMPILCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1189__CLASS_MATCHCOMPILCONTEXT.obj_hash = 1041467073; cdat->dsym_1189__CLASS_MATCHCOMPILCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1189__CLASS_MATCHCOMPILCONTEXT)); /*inistring dstr_1190__CLASS_MATCHCOMPI*/ /*_.VALSTR___V1305*/ curfptr[1304] = (void*)&cdat->dstr_1190__CLASS_MATCHCOMPI; cdat->dstr_1190__CLASS_MATCHCOMPI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1190__CLASS_MATCHCOMPI.val, "CLASS_MATCHCOMPILCONTEXT", sizeof(cdat->dstr_1190__CLASS_MATCHCOMPI.val)-1); /*iniobj dsym_1191__CLASS_PROPED*/ if (!/*_.VALDATA___V1306*/ curfptr[1305]) /*_.VALDATA___V1306*/ curfptr[1305] = (void*)&cdat->dsym_1191__CLASS_PROPED; basilys_assertmsg("iniobj checkdiscr dsym_1191__CLASS_PROPED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1191__CLASS_PROPED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1191__CLASS_PROPED.obj_hash = 96765023; cdat->dsym_1191__CLASS_PROPED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1191__CLASS_PROPED)); /*inistring dstr_1192__CLASS_PROPED*/ /*_.VALSTR___V1307*/ curfptr[1306] = (void*)&cdat->dstr_1192__CLASS_PROPED; cdat->dstr_1192__CLASS_PROPED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1192__CLASS_PROPED.val, "CLASS_PROPED", sizeof(cdat->dstr_1192__CLASS_PROPED.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1193__CLASS_MATCHCOMPILCONTEXT*/ if (!/*_.VALDATA___V1308*/ curfptr[1307]) /*_.VALDATA___V1308*/ curfptr[1307] = (void*)&cdat->dobj_1193__CLASS_MATCHCOMPILCONTEXT; basilys_assertmsg("iniobj checkdiscr dobj_1193__CLASS_MATCHCOMPILCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_1193__CLASS_MATCHCOMPILCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_1193__CLASS_MATCHCOMPILCONTEXT.obj_num = OBMAG_OBJECT; cdat->dobj_1193__CLASS_MATCHCOMPILCONTEXT.obj_hash = 60788197; cdat->dobj_1193__CLASS_MATCHCOMPILCONTEXT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1193__CLASS_MATCHCOMPILCONTEXT)); /*inistring dstr_1194__CLASS_MATCHCOMPI*/ /*_.VALSTR___V1309*/ curfptr[1308] = (void*)&cdat->dstr_1194__CLASS_MATCHCOMPI; cdat->dstr_1194__CLASS_MATCHCOMPI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1194__CLASS_MATCHCOMPI.val, "CLASS_MATCHCOMPILCONTEXT", sizeof(cdat->dstr_1194__CLASS_MATCHCOMPI.val)-1); /*inimult dtup_1195__CLASS_MATCHCOMPILCONTEXT*/ /*_.VALTUP___V1310*/ curfptr[1309] = (void*)&cdat->dtup_1195__CLASS_MATCHCOMPILCONTEXT; cdat->dtup_1195__CLASS_MATCHCOMPILCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_1195__CLASS_MATCHCOMPILCONTEXT.nbval = 2; /*inimult dtup_1196__CLASS_MATCHCOMPILCONTEXT*/ /*_.VALTUP___V1323*/ curfptr[1322] = (void*)&cdat->dtup_1196__CLASS_MATCHCOMPILCONTEXT; cdat->dtup_1196__CLASS_MATCHCOMPILCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_1196__CLASS_MATCHCOMPILCONTEXT.nbval = 7; /*iniobj dsym_1197__MCX_LOC*/ if (!/*_.VALDATA___V1324*/ curfptr[1323]) /*_.VALDATA___V1324*/ curfptr[1323] = (void*)&cdat->dsym_1197__MCX_LOC; basilys_assertmsg("iniobj checkdiscr dsym_1197__MCX_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1197__MCX_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1197__MCX_LOC.obj_hash = 750608101; cdat->dsym_1197__MCX_LOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1197__MCX_LOC)); /*inistring dstr_1198__MCX_LOC*/ /*_.VALSTR___V1325*/ curfptr[1324] = (void*)&cdat->dstr_1198__MCX_LOC; cdat->dstr_1198__MCX_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1198__MCX_LOC.val, "MCX_LOC", sizeof(cdat->dstr_1198__MCX_LOC.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1199__MCX_LOC*/ if (!/*_.VALDATA___V1311*/ curfptr[1310]) /*_.VALDATA___V1311*/ curfptr[1310] = (void*)&cdat->dobj_1199__MCX_LOC; basilys_assertmsg("iniobj checkdiscr dobj_1199__MCX_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1199__MCX_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1199__MCX_LOC.obj_num = 1; cdat->dobj_1199__MCX_LOC.obj_hash = 762534632; cdat->dobj_1199__MCX_LOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1199__MCX_LOC)); /*inistring dstr_1200__MCX_LOC*/ /*_.VALSTR___V1312*/ curfptr[1311] = (void*)&cdat->dstr_1200__MCX_LOC; cdat->dstr_1200__MCX_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1200__MCX_LOC.val, "MCX_LOC", sizeof(cdat->dstr_1200__MCX_LOC.val)-1); /*iniobj dsym_1201__MCX_NORMTESTER*/ if (!/*_.VALDATA___V1326*/ curfptr[1325]) /*_.VALDATA___V1326*/ curfptr[1325] = (void*)&cdat->dsym_1201__MCX_NORMTESTER; basilys_assertmsg("iniobj checkdiscr dsym_1201__MCX_NORMTESTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1201__MCX_NORMTESTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1201__MCX_NORMTESTER.obj_hash = 385472453; cdat->dsym_1201__MCX_NORMTESTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1201__MCX_NORMTESTER)); /*inistring dstr_1202__MCX_NORMTESTER*/ /*_.VALSTR___V1327*/ curfptr[1326] = (void*)&cdat->dstr_1202__MCX_NORMTESTER; cdat->dstr_1202__MCX_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1202__MCX_NORMTESTER.val, "MCX_NORMTESTER", sizeof(cdat->dstr_1202__MCX_NORMTESTER.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1203__MCX_NORMTESTER*/ if (!/*_.VALDATA___V1313*/ curfptr[1312]) /*_.VALDATA___V1313*/ curfptr[1312] = (void*)&cdat->dobj_1203__MCX_NORMTESTER; basilys_assertmsg("iniobj checkdiscr dobj_1203__MCX_NORMTESTER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1203__MCX_NORMTESTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1203__MCX_NORMTESTER.obj_num = 2; cdat->dobj_1203__MCX_NORMTESTER.obj_hash = 839612838; cdat->dobj_1203__MCX_NORMTESTER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1203__MCX_NORMTESTER)); /*inistring dstr_1204__MCX_NORMTESTER*/ /*_.VALSTR___V1314*/ curfptr[1313] = (void*)&cdat->dstr_1204__MCX_NORMTESTER; cdat->dstr_1204__MCX_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1204__MCX_NORMTESTER.val, "MCX_NORMTESTER", sizeof(cdat->dstr_1204__MCX_NORMTESTER.val)-1); /*iniobj dsym_1205__MCX_GOTOTHEN*/ if (!/*_.VALDATA___V1328*/ curfptr[1327]) /*_.VALDATA___V1328*/ curfptr[1327] = (void*)&cdat->dsym_1205__MCX_GOTOTHEN; basilys_assertmsg("iniobj checkdiscr dsym_1205__MCX_GOTOTHEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1205__MCX_GOTOTHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1205__MCX_GOTOTHEN.obj_hash = 294072678; cdat->dsym_1205__MCX_GOTOTHEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1205__MCX_GOTOTHEN)); /*inistring dstr_1206__MCX_GOTOTHEN*/ /*_.VALSTR___V1329*/ curfptr[1328] = (void*)&cdat->dstr_1206__MCX_GOTOTHEN; cdat->dstr_1206__MCX_GOTOTHEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1206__MCX_GOTOTHEN.val, "MCX_GOTOTHEN", sizeof(cdat->dstr_1206__MCX_GOTOTHEN.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1207__MCX_GOTOTHEN*/ if (!/*_.VALDATA___V1315*/ curfptr[1314]) /*_.VALDATA___V1315*/ curfptr[1314] = (void*)&cdat->dobj_1207__MCX_GOTOTHEN; basilys_assertmsg("iniobj checkdiscr dobj_1207__MCX_GOTOTHEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1207__MCX_GOTOTHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1207__MCX_GOTOTHEN.obj_num = 3; cdat->dobj_1207__MCX_GOTOTHEN.obj_hash = 262990852; cdat->dobj_1207__MCX_GOTOTHEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1207__MCX_GOTOTHEN)); /*inistring dstr_1208__MCX_GOTOTHEN*/ /*_.VALSTR___V1316*/ curfptr[1315] = (void*)&cdat->dstr_1208__MCX_GOTOTHEN; cdat->dstr_1208__MCX_GOTOTHEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1208__MCX_GOTOTHEN.val, "MCX_GOTOTHEN", sizeof(cdat->dstr_1208__MCX_GOTOTHEN.val)-1); /*iniobj dsym_1209__MCX_GOTOELSE*/ if (!/*_.VALDATA___V1330*/ curfptr[1329]) /*_.VALDATA___V1330*/ curfptr[1329] = (void*)&cdat->dsym_1209__MCX_GOTOELSE; basilys_assertmsg("iniobj checkdiscr dsym_1209__MCX_GOTOELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1209__MCX_GOTOELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1209__MCX_GOTOELSE.obj_hash = 673704960; cdat->dsym_1209__MCX_GOTOELSE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1209__MCX_GOTOELSE)); /*inistring dstr_1210__MCX_GOTOELSE*/ /*_.VALSTR___V1331*/ curfptr[1330] = (void*)&cdat->dstr_1210__MCX_GOTOELSE; cdat->dstr_1210__MCX_GOTOELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1210__MCX_GOTOELSE.val, "MCX_GOTOELSE", sizeof(cdat->dstr_1210__MCX_GOTOELSE.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1211__MCX_GOTOELSE*/ if (!/*_.VALDATA___V1317*/ curfptr[1316]) /*_.VALDATA___V1317*/ curfptr[1316] = (void*)&cdat->dobj_1211__MCX_GOTOELSE; basilys_assertmsg("iniobj checkdiscr dobj_1211__MCX_GOTOELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1211__MCX_GOTOELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1211__MCX_GOTOELSE.obj_num = 4; cdat->dobj_1211__MCX_GOTOELSE.obj_hash = 900659735; cdat->dobj_1211__MCX_GOTOELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1211__MCX_GOTOELSE)); /*inistring dstr_1212__MCX_GOTOELSE*/ /*_.VALSTR___V1318*/ curfptr[1317] = (void*)&cdat->dstr_1212__MCX_GOTOELSE; cdat->dstr_1212__MCX_GOTOELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1212__MCX_GOTOELSE.val, "MCX_GOTOELSE", sizeof(cdat->dstr_1212__MCX_GOTOELSE.val)-1); /*iniobj dsym_1213__MCX_OLIST*/ if (!/*_.VALDATA___V1332*/ curfptr[1331]) /*_.VALDATA___V1332*/ curfptr[1331] = (void*)&cdat->dsym_1213__MCX_OLIST; basilys_assertmsg("iniobj checkdiscr dsym_1213__MCX_OLIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1213__MCX_OLIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1213__MCX_OLIST.obj_hash = 25914724; cdat->dsym_1213__MCX_OLIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1213__MCX_OLIST)); /*inistring dstr_1214__MCX_OLIST*/ /*_.VALSTR___V1333*/ curfptr[1332] = (void*)&cdat->dstr_1214__MCX_OLIST; cdat->dstr_1214__MCX_OLIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1214__MCX_OLIST.val, "MCX_OLIST", sizeof(cdat->dstr_1214__MCX_OLIST.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1215__MCX_OLIST*/ if (!/*_.VALDATA___V1319*/ curfptr[1318]) /*_.VALDATA___V1319*/ curfptr[1318] = (void*)&cdat->dobj_1215__MCX_OLIST; basilys_assertmsg("iniobj checkdiscr dobj_1215__MCX_OLIST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1215__MCX_OLIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1215__MCX_OLIST.obj_num = 5; cdat->dobj_1215__MCX_OLIST.obj_hash = 1064708471; cdat->dobj_1215__MCX_OLIST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1215__MCX_OLIST)); /*inistring dstr_1216__MCX_OLIST*/ /*_.VALSTR___V1320*/ curfptr[1319] = (void*)&cdat->dstr_1216__MCX_OLIST; cdat->dstr_1216__MCX_OLIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1216__MCX_OLIST.val, "MCX_OLIST", sizeof(cdat->dstr_1216__MCX_OLIST.val)-1); /*iniobj dsym_1217__MCX_PREFIX*/ if (!/*_.VALDATA___V1334*/ curfptr[1333]) /*_.VALDATA___V1334*/ curfptr[1333] = (void*)&cdat->dsym_1217__MCX_PREFIX; basilys_assertmsg("iniobj checkdiscr dsym_1217__MCX_PREFIX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1217__MCX_PREFIX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1217__MCX_PREFIX.obj_hash = 9768964; cdat->dsym_1217__MCX_PREFIX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1217__MCX_PREFIX)); /*inistring dstr_1218__MCX_PREFIX*/ /*_.VALSTR___V1335*/ curfptr[1334] = (void*)&cdat->dstr_1218__MCX_PREFIX; cdat->dstr_1218__MCX_PREFIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1218__MCX_PREFIX.val, "MCX_PREFIX", sizeof(cdat->dstr_1218__MCX_PREFIX.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ iniobj"); /*iniobj dobj_1219__MCX_PREFIX*/ if (!/*_.VALDATA___V1321*/ curfptr[1320]) /*_.VALDATA___V1321*/ curfptr[1320] = (void*)&cdat->dobj_1219__MCX_PREFIX; basilys_assertmsg("iniobj checkdiscr dobj_1219__MCX_PREFIX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1219__MCX_PREFIX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1219__MCX_PREFIX.obj_num = 6; cdat->dobj_1219__MCX_PREFIX.obj_hash = 257637796; cdat->dobj_1219__MCX_PREFIX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1219__MCX_PREFIX)); /*inistring dstr_1220__MCX_PREFIX*/ /*_.VALSTR___V1322*/ curfptr[1321] = (void*)&cdat->dstr_1220__MCX_PREFIX; cdat->dstr_1220__MCX_PREFIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1220__MCX_PREFIX.val, "MCX_PREFIX", sizeof(cdat->dstr_1220__MCX_PREFIX.val)-1); /*iniobj dsym_1221__COMPILE_TESTER*/ if (!/*_.VALDATA___V1336*/ curfptr[1335]) /*_.VALDATA___V1336*/ curfptr[1335] = (void*)&cdat->dsym_1221__COMPILE_TESTER; basilys_assertmsg("iniobj checkdiscr dsym_1221__COMPILE_TESTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1221__COMPILE_TESTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1221__COMPILE_TESTER.obj_hash = 367976153; cdat->dsym_1221__COMPILE_TESTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1221__COMPILE_TESTER)); /*inistring dstr_1222__COMPILE_TESTER*/ /*_.VALSTR___V1337*/ curfptr[1336] = (void*)&cdat->dstr_1222__COMPILE_TESTER; cdat->dstr_1222__COMPILE_TESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1222__COMPILE_TESTER.val, "COMPILE_TESTER", sizeof(cdat->dstr_1222__COMPILE_TESTER.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3830:/ iniobj"); /*iniobj dobj_1223__COMPILE_TESTER*/ if (!/*_.VALDATA___V1338*/ curfptr[1337]) /*_.VALDATA___V1338*/ curfptr[1337] = (void*)&cdat->dobj_1223__COMPILE_TESTER; basilys_assertmsg("iniobj checkdiscr dobj_1223__COMPILE_TESTER", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_1223__COMPILE_TESTER.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]); cdat->dobj_1223__COMPILE_TESTER.obj_hash = 782113405; cdat->dobj_1223__COMPILE_TESTER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1223__COMPILE_TESTER)); /*inistring dstr_1224__COMPILE_TESTER*/ /*_.VALSTR___V1339*/ curfptr[1338] = (void*)&cdat->dstr_1224__COMPILE_TESTER; cdat->dstr_1224__COMPILE_TESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1224__COMPILE_TESTER.val, "COMPILE_TESTER", sizeof(cdat->dstr_1224__COMPILE_TESTER.val)-1); /*iniobj dsym_1225__CLASS_TESTERCOMPILCONTEXT*/ if (!/*_.VALDATA___V1340*/ curfptr[1339]) /*_.VALDATA___V1340*/ curfptr[1339] = (void*)&cdat->dsym_1225__CLASS_TESTERCOMPILCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_1225__CLASS_TESTERCOMPILCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1225__CLASS_TESTERCOMPILCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1225__CLASS_TESTERCOMPILCONTEXT.obj_hash = 340923428; cdat->dsym_1225__CLASS_TESTERCOMPILCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1225__CLASS_TESTERCOMPILCONTEXT)); /*inistring dstr_1226__CLASS_TESTERCOMP*/ /*_.VALSTR___V1341*/ curfptr[1340] = (void*)&cdat->dstr_1226__CLASS_TESTERCOMP; cdat->dstr_1226__CLASS_TESTERCOMP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1226__CLASS_TESTERCOMP.val, "CLASS_TESTERCOMPILCONTEXT", sizeof(cdat->dstr_1226__CLASS_TESTERCOMP.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ iniobj"); /*iniobj dobj_1227__CLASS_TESTERCOMPILCONTEXT*/ if (!/*_.VALDATA___V1342*/ curfptr[1341]) /*_.VALDATA___V1342*/ curfptr[1341] = (void*)&cdat->dobj_1227__CLASS_TESTERCOMPILCONTEXT; basilys_assertmsg("iniobj checkdiscr dobj_1227__CLASS_TESTERCOMPILCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_1227__CLASS_TESTERCOMPILCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_1227__CLASS_TESTERCOMPILCONTEXT.obj_num = OBMAG_OBJECT; cdat->dobj_1227__CLASS_TESTERCOMPILCONTEXT.obj_hash = 1026766444; cdat->dobj_1227__CLASS_TESTERCOMPILCONTEXT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1227__CLASS_TESTERCOMPILCONTEXT)); /*inistring dstr_1228__CLASS_TESTERCOMP*/ /*_.VALSTR___V1343*/ curfptr[1342] = (void*)&cdat->dstr_1228__CLASS_TESTERCOMP; cdat->dstr_1228__CLASS_TESTERCOMP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1228__CLASS_TESTERCOMP.val, "CLASS_TESTERCOMPILCONTEXT", sizeof(cdat->dstr_1228__CLASS_TESTERCOMP.val)-1); /*inimult dtup_1229__CLASS_TESTERCOMPILCONTEXT*/ /*_.VALTUP___V1344*/ curfptr[1343] = (void*)&cdat->dtup_1229__CLASS_TESTERCOMPILCONTEXT; cdat->dtup_1229__CLASS_TESTERCOMPILCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_1229__CLASS_TESTERCOMPILCONTEXT.nbval = 2; /*inimult dtup_1230__CLASS_TESTERCOMPILCONTEXT*/ /*_.VALTUP___V1349*/ curfptr[1348] = (void*)&cdat->dtup_1230__CLASS_TESTERCOMPILCONTEXT; cdat->dtup_1230__CLASS_TESTERCOMPILCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_1230__CLASS_TESTERCOMPILCONTEXT.nbval = 3; /*iniobj dsym_1231__TCX_NRMATCH*/ if (!/*_.VALDATA___V1350*/ curfptr[1349]) /*_.VALDATA___V1350*/ curfptr[1349] = (void*)&cdat->dsym_1231__TCX_NRMATCH; basilys_assertmsg("iniobj checkdiscr dsym_1231__TCX_NRMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1231__TCX_NRMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1231__TCX_NRMATCH.obj_hash = 969696101; cdat->dsym_1231__TCX_NRMATCH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1231__TCX_NRMATCH)); /*inistring dstr_1232__TCX_NRMATCH*/ /*_.VALSTR___V1351*/ curfptr[1350] = (void*)&cdat->dstr_1232__TCX_NRMATCH; cdat->dstr_1232__TCX_NRMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1232__TCX_NRMATCH.val, "TCX_NRMATCH", sizeof(cdat->dstr_1232__TCX_NRMATCH.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ iniobj"); /*iniobj dobj_1233__TCX_NRMATCH*/ if (!/*_.VALDATA___V1345*/ curfptr[1344]) /*_.VALDATA___V1345*/ curfptr[1344] = (void*)&cdat->dobj_1233__TCX_NRMATCH; basilys_assertmsg("iniobj checkdiscr dobj_1233__TCX_NRMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1233__TCX_NRMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1233__TCX_NRMATCH.obj_num = 1; cdat->dobj_1233__TCX_NRMATCH.obj_hash = 502231529; cdat->dobj_1233__TCX_NRMATCH.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1233__TCX_NRMATCH)); /*inistring dstr_1234__TCX_NRMATCH*/ /*_.VALSTR___V1346*/ curfptr[1345] = (void*)&cdat->dstr_1234__TCX_NRMATCH; cdat->dstr_1234__TCX_NRMATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1234__TCX_NRMATCH.val, "TCX_NRMATCH", sizeof(cdat->dstr_1234__TCX_NRMATCH.val)-1); /*iniobj dsym_1235__TCX_FREELIST*/ if (!/*_.VALDATA___V1352*/ curfptr[1351]) /*_.VALDATA___V1352*/ curfptr[1351] = (void*)&cdat->dsym_1235__TCX_FREELIST; basilys_assertmsg("iniobj checkdiscr dsym_1235__TCX_FREELIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1235__TCX_FREELIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1235__TCX_FREELIST.obj_hash = 514682872; cdat->dsym_1235__TCX_FREELIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1235__TCX_FREELIST)); /*inistring dstr_1236__TCX_FREELIST*/ /*_.VALSTR___V1353*/ curfptr[1352] = (void*)&cdat->dstr_1236__TCX_FREELIST; cdat->dstr_1236__TCX_FREELIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1236__TCX_FREELIST.val, "TCX_FREELIST", sizeof(cdat->dstr_1236__TCX_FREELIST.val)-1); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ iniobj"); /*iniobj dobj_1237__TCX_FREELIST*/ if (!/*_.VALDATA___V1347*/ curfptr[1346]) /*_.VALDATA___V1347*/ curfptr[1346] = (void*)&cdat->dobj_1237__TCX_FREELIST; basilys_assertmsg("iniobj checkdiscr dobj_1237__TCX_FREELIST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1237__TCX_FREELIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_1237__TCX_FREELIST.obj_num = 2; cdat->dobj_1237__TCX_FREELIST.obj_hash = 477320349; cdat->dobj_1237__TCX_FREELIST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1237__TCX_FREELIST)); /*inistring dstr_1238__TCX_FREELIST*/ /*_.VALSTR___V1348*/ curfptr[1347] = (void*)&cdat->dstr_1238__TCX_FREELIST; cdat->dstr_1238__TCX_FREELIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1238__TCX_FREELIST.val, "TCX_FREELIST", sizeof(cdat->dstr_1238__TCX_FREELIST.val)-1); /*inirout drout_1239__COMPILTST_ANYTESTER*/ /*_.VALROUT___V1354*/ curfptr[1353] = (void*)&cdat->drout_1239__COMPILTST_ANYTESTER; cdat->drout_1239__COMPILTST_ANYTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1239__COMPILTST_ANYTESTER.routdescr, "COMPILTST_ANYTESTER @warmelt-genobj.melt:3842", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1239__COMPILTST_ANYTESTER.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1239__COMPILTST_ANYTESTER, rout_125_COMPILTST_ANYTESTER); /*iniclos dclo_1240__COMPILTST_ANYTESTER*/ /*_.VALCLO___V1355*/ curfptr[1354] = (void*)&cdat->dclo_1240__COMPILTST_ANYTESTER; cdat->dclo_1240__COMPILTST_ANYTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1240__COMPILTST_ANYTESTER.nbval = 0; /*iniobj dsym_1241__CLASS_NORMTESTER_ANY*/ if (!/*_.VALDATA___V1356*/ curfptr[1355]) /*_.VALDATA___V1356*/ curfptr[1355] = (void*)&cdat->dsym_1241__CLASS_NORMTESTER_ANY; basilys_assertmsg("iniobj checkdiscr dsym_1241__CLASS_NORMTESTER_ANY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1241__CLASS_NORMTESTER_ANY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1241__CLASS_NORMTESTER_ANY.obj_hash = 734583955; cdat->dsym_1241__CLASS_NORMTESTER_ANY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1241__CLASS_NORMTESTER_ANY)); /*inistring dstr_1242__CLASS_NORMTESTER*/ /*_.VALSTR___V1357*/ curfptr[1356] = (void*)&cdat->dstr_1242__CLASS_NORMTESTER; cdat->dstr_1242__CLASS_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1242__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_ANY", sizeof(cdat->dstr_1242__CLASS_NORMTESTER.val)-1); /*inirout drout_1243__COMPILOBJ_NREP_MATCH*/ /*_.VALROUT___V1358*/ curfptr[1357] = (void*)&cdat->drout_1243__COMPILOBJ_NREP_MATCH; cdat->drout_1243__COMPILOBJ_NREP_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1243__COMPILOBJ_NREP_MATCH.routdescr, "COMPILOBJ_NREP_MATCH @warmelt-genobj.melt:3856", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1243__COMPILOBJ_NREP_MATCH.nbval = 26; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1243__COMPILOBJ_NREP_MATCH, rout_126_COMPILOBJ_NREP_MATCH); /*iniclos dclo_1244__COMPILOBJ_NREP_MATCH*/ /*_.VALCLO___V1362*/ curfptr[1361] = (void*)&cdat->dclo_1244__COMPILOBJ_NREP_MATCH; cdat->dclo_1244__COMPILOBJ_NREP_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1244__COMPILOBJ_NREP_MATCH.nbval = 0; /*iniobj dsym_1245__CLASS_NREP_MATCH*/ if (!/*_.VALDATA___V1363*/ curfptr[1362]) /*_.VALDATA___V1363*/ curfptr[1362] = (void*)&cdat->dsym_1245__CLASS_NREP_MATCH; basilys_assertmsg("iniobj checkdiscr dsym_1245__CLASS_NREP_MATCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1245__CLASS_NREP_MATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1245__CLASS_NREP_MATCH.obj_hash = 624411385; cdat->dsym_1245__CLASS_NREP_MATCH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1245__CLASS_NREP_MATCH)); /*inistring dstr_1246__CLASS_NREP_MATCH*/ /*_.VALSTR___V1364*/ curfptr[1363] = (void*)&cdat->dstr_1246__CLASS_NREP_MATCH; cdat->dstr_1246__CLASS_NREP_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1246__CLASS_NREP_MATCH.val, "CLASS_NREP_MATCH", sizeof(cdat->dstr_1246__CLASS_NREP_MATCH.val)-1); /*iniobj dsym_1247__LIST_APPEND2LIST*/ if (!/*_.VALDATA___V1365*/ curfptr[1364]) /*_.VALDATA___V1365*/ curfptr[1364] = (void*)&cdat->dsym_1247__LIST_APPEND2LIST; basilys_assertmsg("iniobj checkdiscr dsym_1247__LIST_APPEND2LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1247__LIST_APPEND2LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1247__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_1247__LIST_APPEND2LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1247__LIST_APPEND2LIST)); /*inistring dstr_1248__LIST_APPEND2LIST*/ /*_.VALSTR___V1366*/ curfptr[1365] = (void*)&cdat->dstr_1248__LIST_APPEND2LIST; cdat->dstr_1248__LIST_APPEND2LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1248__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof(cdat->dstr_1248__LIST_APPEND2LIST.val)-1); /*iniobj dsym_1249__CLASS_NORMTESTER_SUCCESS*/ if (!/*_.VALDATA___V1367*/ curfptr[1366]) /*_.VALDATA___V1367*/ curfptr[1366] = (void*)&cdat->dsym_1249__CLASS_NORMTESTER_SUCCESS; basilys_assertmsg("iniobj checkdiscr dsym_1249__CLASS_NORMTESTER_SUCCESS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1249__CLASS_NORMTESTER_SUCCESS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1249__CLASS_NORMTESTER_SUCCESS.obj_hash = 1047093940; cdat->dsym_1249__CLASS_NORMTESTER_SUCCESS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1249__CLASS_NORMTESTER_SUCCESS)); /*inistring dstr_1250__CLASS_NORMTESTER*/ /*_.VALSTR___V1368*/ curfptr[1367] = (void*)&cdat->dstr_1250__CLASS_NORMTESTER; cdat->dstr_1250__CLASS_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1250__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_SUCCESS", sizeof(cdat->dstr_1250__CLASS_NORMTESTER.val)-1); /*iniobj dsym_1251__MAPOBJECT_EVERY*/ if (!/*_.VALDATA___V1369*/ curfptr[1368]) /*_.VALDATA___V1369*/ curfptr[1368] = (void*)&cdat->dsym_1251__MAPOBJECT_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_1251__MAPOBJECT_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1251__MAPOBJECT_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1251__MAPOBJECT_EVERY.obj_hash = 726732435; cdat->dsym_1251__MAPOBJECT_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1251__MAPOBJECT_EVERY)); /*inistring dstr_1252__MAPOBJECT_EVERY*/ /*_.VALSTR___V1370*/ curfptr[1369] = (void*)&cdat->dstr_1252__MAPOBJECT_EVERY; cdat->dstr_1252__MAPOBJECT_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1252__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof(cdat->dstr_1252__MAPOBJECT_EVERY.val)-1); /*inirout drout_1253__LAMBDA_*/ /*_.VALROUT___V1361*/ curfptr[1360] = (void*)&cdat->drout_1253__LAMBDA_; cdat->drout_1253__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1253__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3969", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1253__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1253__LAMBDA_, rout_127_LAMBDA_); /*iniobj dsym_1254__LIST_FIND*/ if (!/*_.VALDATA___V1371*/ curfptr[1370]) /*_.VALDATA___V1371*/ curfptr[1370] = (void*)&cdat->dsym_1254__LIST_FIND; basilys_assertmsg("iniobj checkdiscr dsym_1254__LIST_FIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1254__LIST_FIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1254__LIST_FIND.obj_hash = 430964501; cdat->dsym_1254__LIST_FIND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1254__LIST_FIND)); /*inistring dstr_1255__LIST_FIND*/ /*_.VALSTR___V1372*/ curfptr[1371] = (void*)&cdat->dstr_1255__LIST_FIND; cdat->dstr_1255__LIST_FIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1255__LIST_FIND.val, "LIST_FIND", sizeof(cdat->dstr_1255__LIST_FIND.val)-1); /*inirout drout_1256__NORMTESTER_LABELINSTR*/ /*_.VALROUT___V1360*/ curfptr[1359] = (void*)&cdat->drout_1256__NORMTESTER_LABELINSTR; cdat->drout_1256__NORMTESTER_LABELINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1256__NORMTESTER_LABELINSTR.routdescr, "NORMTESTER_LABELINSTR @warmelt-genobj.melt:4034", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1256__NORMTESTER_LABELINSTR.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1256__NORMTESTER_LABELINSTR, rout_128_NORMTESTER_LABELINSTR); /*iniclos dclo_1257__NORMTESTER_LABELINSTR*/ /*_.VALCLO___V1359*/ curfptr[1358] = (void*)&cdat->dclo_1257__NORMTESTER_LABELINSTR; cdat->dclo_1257__NORMTESTER_LABELINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1257__NORMTESTER_LABELINSTR.nbval = 0; /*inirout drout_1258__NORMTESTER_GOTOINSTR*/ /*_.VALROUT___V1373*/ curfptr[1372] = (void*)&cdat->drout_1258__NORMTESTER_GOTOINSTR; cdat->drout_1258__NORMTESTER_GOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1258__NORMTESTER_GOTOINSTR.routdescr, "NORMTESTER_GOTOINSTR @warmelt-genobj.melt:4066", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1258__NORMTESTER_GOTOINSTR.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1258__NORMTESTER_GOTOINSTR, rout_129_NORMTESTER_GOTOINSTR); /*iniclos dclo_1259__NORMTESTER_GOTOINSTR*/ /*_.VALCLO___V1374*/ curfptr[1373] = (void*)&cdat->dclo_1259__NORMTESTER_GOTOINSTR; cdat->dclo_1259__NORMTESTER_GOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1259__NORMTESTER_GOTOINSTR.nbval = 0; /*inirout drout_1260__ENDMATCH_GOTOINSTR*/ /*_.VALROUT___V1375*/ curfptr[1374] = (void*)&cdat->drout_1260__ENDMATCH_GOTOINSTR; cdat->drout_1260__ENDMATCH_GOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1260__ENDMATCH_GOTOINSTR.routdescr, "ENDMATCH_GOTOINSTR @warmelt-genobj.melt:4099", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1260__ENDMATCH_GOTOINSTR.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1260__ENDMATCH_GOTOINSTR, rout_130_ENDMATCH_GOTOINSTR); /*iniclos dclo_1261__ENDMATCH_GOTOINSTR*/ /*_.VALCLO___V1376*/ curfptr[1375] = (void*)&cdat->dclo_1261__ENDMATCH_GOTOINSTR; cdat->dclo_1261__ENDMATCH_GOTOINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1261__ENDMATCH_GOTOINSTR.nbval = 0; /*inirout drout_1262__NORMTESTER_FREE_OBJLOC_LIST*/ /*_.VALROUT___V1377*/ curfptr[1376] = (void*)&cdat->drout_1262__NORMTESTER_FREE_OBJLOC_LIST; cdat->drout_1262__NORMTESTER_FREE_OBJLOC_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1262__NORMTESTER_FREE_OBJLOC_LIST.routdescr, "NORMTESTER_FREE_OBJLOC_LIST @warmelt-genobj.melt:4121", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1262__NORMTESTER_FREE_OBJLOC_LIST.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1262__NORMTESTER_FREE_OBJLOC_LIST, rout_131_NORMTESTER_FREE_OBJLOC_LIST); /*iniclos dclo_1263__NORMTESTER_FREE_OBJLOC_LIST*/ /*_.VALCLO___V1379*/ curfptr[1378] = (void*)&cdat->dclo_1263__NORMTESTER_FREE_OBJLOC_LIST; cdat->dclo_1263__NORMTESTER_FREE_OBJLOC_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1263__NORMTESTER_FREE_OBJLOC_LIST.nbval = 0; /*inirout drout_1264__LAMBDA_*/ /*_.VALROUT___V1378*/ curfptr[1377] = (void*)&cdat->drout_1264__LAMBDA_; cdat->drout_1264__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1264__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4134", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1264__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1264__LAMBDA_, rout_132_LAMBDA_); /*iniobj dsym_1265__CLASS_NREP_SYMOCC*/ if (!/*_.VALDATA___V1380*/ curfptr[1379]) /*_.VALDATA___V1380*/ curfptr[1379] = (void*)&cdat->dsym_1265__CLASS_NREP_SYMOCC; basilys_assertmsg("iniobj checkdiscr dsym_1265__CLASS_NREP_SYMOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1265__CLASS_NREP_SYMOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1265__CLASS_NREP_SYMOCC.obj_hash = 643883390; cdat->dsym_1265__CLASS_NREP_SYMOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1265__CLASS_NREP_SYMOCC)); /*inistring dstr_1266__CLASS_NREP_SYMOC*/ /*_.VALSTR___V1381*/ curfptr[1380] = (void*)&cdat->dstr_1266__CLASS_NREP_SYMOC; cdat->dstr_1266__CLASS_NREP_SYMOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1266__CLASS_NREP_SYMOC.val, "CLASS_NREP_SYMOCC", sizeof(cdat->dstr_1266__CLASS_NREP_SYMOC.val)-1); /*inirout drout_1267__COMPILTST_NORMTESTER_MATCHER*/ /*_.VALROUT___V1382*/ curfptr[1381] = (void*)&cdat->drout_1267__COMPILTST_NORMTESTER_MATCHER; cdat->drout_1267__COMPILTST_NORMTESTER_MATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1267__COMPILTST_NORMTESTER_MATCHER.routdescr, "COMPILTST_NORMTESTER_MATCHER @warmelt-genobj.melt:4150", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1267__COMPILTST_NORMTESTER_MATCHER.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1267__COMPILTST_NORMTESTER_MATCHER, rout_133_COMPILTST_NORMTESTER_MATCHER); /*iniclos dclo_1268__COMPILTST_NORMTESTER_MATCHER*/ /*_.VALCLO___V1383*/ curfptr[1382] = (void*)&cdat->dclo_1268__COMPILTST_NORMTESTER_MATCHER; cdat->dclo_1268__COMPILTST_NORMTESTER_MATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1268__COMPILTST_NORMTESTER_MATCHER.nbval = 0; /*iniobj dsym_1269__CLASS_NORMTESTER_MATCHER*/ if (!/*_.VALDATA___V1384*/ curfptr[1383]) /*_.VALDATA___V1384*/ curfptr[1383] = (void*)&cdat->dsym_1269__CLASS_NORMTESTER_MATCHER; basilys_assertmsg("iniobj checkdiscr dsym_1269__CLASS_NORMTESTER_MATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1269__CLASS_NORMTESTER_MATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1269__CLASS_NORMTESTER_MATCHER.obj_hash = 274164991; cdat->dsym_1269__CLASS_NORMTESTER_MATCHER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1269__CLASS_NORMTESTER_MATCHER)); /*inistring dstr_1270__CLASS_NORMTESTER*/ /*_.VALSTR___V1385*/ curfptr[1384] = (void*)&cdat->dstr_1270__CLASS_NORMTESTER; cdat->dstr_1270__CLASS_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1270__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_MATCHER", sizeof(cdat->dstr_1270__CLASS_NORMTESTER.val)-1); /*inirout drout_1271__COMPILTST_NORMTESTER_INSTANCE*/ /*_.VALROUT___V1386*/ curfptr[1385] = (void*)&cdat->drout_1271__COMPILTST_NORMTESTER_INSTANCE; cdat->drout_1271__COMPILTST_NORMTESTER_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1271__COMPILTST_NORMTESTER_INSTANCE.routdescr, "COMPILTST_NORMTESTER_INSTANCE @warmelt-genobj.melt:4210", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1271__COMPILTST_NORMTESTER_INSTANCE.nbval = 20; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1271__COMPILTST_NORMTESTER_INSTANCE, rout_134_COMPILTST_NORMTESTER_INSTANCE); /*iniclos dclo_1272__COMPILTST_NORMTESTER_INSTANCE*/ /*_.VALCLO___V1387*/ curfptr[1386] = (void*)&cdat->dclo_1272__COMPILTST_NORMTESTER_INSTANCE; cdat->dclo_1272__COMPILTST_NORMTESTER_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1272__COMPILTST_NORMTESTER_INSTANCE.nbval = 0; /*iniobj dsym_1273__CLASS_NORMTESTER_INSTANCE*/ if (!/*_.VALDATA___V1388*/ curfptr[1387]) /*_.VALDATA___V1388*/ curfptr[1387] = (void*)&cdat->dsym_1273__CLASS_NORMTESTER_INSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_1273__CLASS_NORMTESTER_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1273__CLASS_NORMTESTER_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1273__CLASS_NORMTESTER_INSTANCE.obj_hash = 927841366; cdat->dsym_1273__CLASS_NORMTESTER_INSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1273__CLASS_NORMTESTER_INSTANCE)); /*inistring dstr_1274__CLASS_NORMTESTER*/ /*_.VALSTR___V1389*/ curfptr[1388] = (void*)&cdat->dstr_1274__CLASS_NORMTESTER; cdat->dstr_1274__CLASS_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1274__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_INSTANCE", sizeof(cdat->dstr_1274__CLASS_NORMTESTER.val)-1); /*inirout drout_1275__COMPILTST_NORMTESTER_SAME*/ /*_.VALROUT___V1390*/ curfptr[1389] = (void*)&cdat->drout_1275__COMPILTST_NORMTESTER_SAME; cdat->drout_1275__COMPILTST_NORMTESTER_SAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1275__COMPILTST_NORMTESTER_SAME.routdescr, "COMPILTST_NORMTESTER_SAME @warmelt-genobj.melt:4317", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1275__COMPILTST_NORMTESTER_SAME.nbval = 16; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1275__COMPILTST_NORMTESTER_SAME, rout_135_COMPILTST_NORMTESTER_SAME); /*iniclos dclo_1276__COMPILTST_NORMTESTER_SAME*/ /*_.VALCLO___V1391*/ curfptr[1390] = (void*)&cdat->dclo_1276__COMPILTST_NORMTESTER_SAME; cdat->dclo_1276__COMPILTST_NORMTESTER_SAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1276__COMPILTST_NORMTESTER_SAME.nbval = 0; /*iniobj dsym_1277__CLASS_NORMTESTER_SAME*/ if (!/*_.VALDATA___V1392*/ curfptr[1391]) /*_.VALDATA___V1392*/ curfptr[1391] = (void*)&cdat->dsym_1277__CLASS_NORMTESTER_SAME; basilys_assertmsg("iniobj checkdiscr dsym_1277__CLASS_NORMTESTER_SAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1277__CLASS_NORMTESTER_SAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1277__CLASS_NORMTESTER_SAME.obj_hash = 327155773; cdat->dsym_1277__CLASS_NORMTESTER_SAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1277__CLASS_NORMTESTER_SAME)); /*inistring dstr_1278__CLASS_NORMTESTER*/ /*_.VALSTR___V1393*/ curfptr[1392] = (void*)&cdat->dstr_1278__CLASS_NORMTESTER; cdat->dstr_1278__CLASS_NORMTESTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1278__CLASS_NORMTESTER.val, "CLASS_NORMTESTER_SAME", sizeof(cdat->dstr_1278__CLASS_NORMTESTER.val)-1); /*inirout drout_1279__COMPILTST_NORMTESTER_SUCCESS*/ /*_.VALROUT___V1394*/ curfptr[1393] = (void*)&cdat->drout_1279__COMPILTST_NORMTESTER_SUCCESS; cdat->drout_1279__COMPILTST_NORMTESTER_SUCCESS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1279__COMPILTST_NORMTESTER_SUCCESS.routdescr, "COMPILTST_NORMTESTER_SUCCESS @warmelt-genobj.melt:4394", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1279__COMPILTST_NORMTESTER_SUCCESS.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1279__COMPILTST_NORMTESTER_SUCCESS, rout_136_COMPILTST_NORMTESTER_SUCCESS); /*iniclos dclo_1280__COMPILTST_NORMTESTER_SUCCESS*/ /*_.VALCLO___V1395*/ curfptr[1394] = (void*)&cdat->dclo_1280__COMPILTST_NORMTESTER_SUCCESS; cdat->dclo_1280__COMPILTST_NORMTESTER_SUCCESS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1280__COMPILTST_NORMTESTER_SUCCESS.nbval = 0; /*iniobj dsym_1281__LIST2*/ if (!/*_.VALDATA___V1396*/ curfptr[1395]) /*_.VALDATA___V1396*/ curfptr[1395] = (void*)&cdat->dsym_1281__LIST2; basilys_assertmsg("iniobj checkdiscr dsym_1281__LIST2", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1281__LIST2.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1281__LIST2.obj_hash = 702154144; cdat->dsym_1281__LIST2.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1281__LIST2)); /*inistring dstr_1282__LIST2*/ /*_.VALSTR___V1397*/ curfptr[1396] = (void*)&cdat->dstr_1282__LIST2; cdat->dstr_1282__LIST2.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1282__LIST2.val, "LIST2", sizeof(cdat->dstr_1282__LIST2.val)-1); /*inirout drout_1283__COMPILMATCHER_CMATCHER*/ /*_.VALROUT___V1398*/ curfptr[1397] = (void*)&cdat->drout_1283__COMPILMATCHER_CMATCHER; cdat->drout_1283__COMPILMATCHER_CMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1283__COMPILMATCHER_CMATCHER.routdescr, "COMPILMATCHER_CMATCHER @warmelt-genobj.melt:4428", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1283__COMPILMATCHER_CMATCHER.nbval = 37; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1283__COMPILMATCHER_CMATCHER, rout_137_COMPILMATCHER_CMATCHER); /*iniclos dclo_1284__COMPILMATCHER_CMATCHER*/ /*_.VALCLO___V1403*/ curfptr[1402] = (void*)&cdat->dclo_1284__COMPILMATCHER_CMATCHER; cdat->dclo_1284__COMPILMATCHER_CMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1284__COMPILMATCHER_CMATCHER.nbval = 0; /*iniobj dsym_1285__CLASS_CMATCHER*/ if (!/*_.VALDATA___V1404*/ curfptr[1403]) /*_.VALDATA___V1404*/ curfptr[1403] = (void*)&cdat->dsym_1285__CLASS_CMATCHER; basilys_assertmsg("iniobj checkdiscr dsym_1285__CLASS_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1285__CLASS_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1285__CLASS_CMATCHER.obj_hash = 544975672; cdat->dsym_1285__CLASS_CMATCHER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1285__CLASS_CMATCHER)); /*inistring dstr_1286__CLASS_CMATCHER*/ /*_.VALSTR___V1405*/ curfptr[1404] = (void*)&cdat->dstr_1286__CLASS_CMATCHER; cdat->dstr_1286__CLASS_CMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1286__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof(cdat->dstr_1286__CLASS_CMATCHER.val)-1); /*iniobj dsym_1287__MULTIPLE_EVERY_BOTH*/ if (!/*_.VALDATA___V1406*/ curfptr[1405]) /*_.VALDATA___V1406*/ curfptr[1405] = (void*)&cdat->dsym_1287__MULTIPLE_EVERY_BOTH; basilys_assertmsg("iniobj checkdiscr dsym_1287__MULTIPLE_EVERY_BOTH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1287__MULTIPLE_EVERY_BOTH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1287__MULTIPLE_EVERY_BOTH.obj_hash = 528900272; cdat->dsym_1287__MULTIPLE_EVERY_BOTH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1287__MULTIPLE_EVERY_BOTH)); /*inistring dstr_1288__MULTIPLE_EVERY_B*/ /*_.VALSTR___V1407*/ curfptr[1406] = (void*)&cdat->dstr_1288__MULTIPLE_EVERY_B; cdat->dstr_1288__MULTIPLE_EVERY_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_1288__MULTIPLE_EVERY_B.val, "MULTIPLE_EVERY_BOTH", sizeof(cdat->dstr_1288__MULTIPLE_EVERY_B.val)-1); /*inirout drout_1289__LAMBDA_*/ /*_.VALROUT___V1399*/ curfptr[1398] = (void*)&cdat->drout_1289__LAMBDA_; cdat->drout_1289__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1289__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4474", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1289__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1289__LAMBDA_, rout_138_LAMBDA_); /*inirout drout_1290__LAMBDA_*/ /*_.VALROUT___V1400*/ curfptr[1399] = (void*)&cdat->drout_1290__LAMBDA_; cdat->drout_1290__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1290__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4488", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1290__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1290__LAMBDA_, rout_139_LAMBDA_); /*inirout drout_1291__LAMBDA_*/ /*_.VALROUT___V1401*/ curfptr[1400] = (void*)&cdat->drout_1291__LAMBDA_; cdat->drout_1291__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1291__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4502", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1291__LAMBDA_.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1291__LAMBDA_, rout_140_LAMBDA_); /*inirout drout_1292__LAMBDA_*/ /*_.VALROUT___V1402*/ curfptr[1401] = (void*)&cdat->drout_1292__LAMBDA_; cdat->drout_1292__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1292__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4505", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1292__LAMBDA_.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1292__LAMBDA_, rout_141_LAMBDA_); cdat = NULL; basilys_prohibit_garbcoll = FALSE; #undef curfram__ } /*end initialize_module_cdata*/ void* start_module_basilys(void* modargp_) { char predefinited[BGLOB__LASTGLOB+8]; #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif initial_frame_st curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 1490; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; /**initial routine prologue**/ initial_frame_basilys = (void*) &curfram__; /**COMMENT: get previous environment **/; /*_.PREVENV___V4*/ curfptr[3] = modargp_; /**COMMENT: compute boxloc **/; /*cond*/ if (/*_.CONTENV___V2*/ curfptr[1] || basilys_object_length((basilys_ptr_t)BASILYSG(INITIAL_SYSTEM_DATA))", /*_.FRESHENV___V3*/ curfptr[2], __FILE__, __LINE__);;; /*apply*/{ /*_.CONTENV___V2*/ curfptr[1] = basilys_apply ((basilysclosure_ptr_t)(/*_.FRESHENV___V3*/ curfptr[2]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ;}/*com.end block:compute fresh module environment*/ ; } /**COMMENT: get symbols & keywords **/; /*getnamedsym:CLASS_OBJVALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJVALUE = basilysgc_named_symbol("CLASS_OBJVALUE", BASILYS_GET); if (sy_CLASS_OBJVALUE && NULL == /*_.VALDATA___V116*/ curfptr[115]) /*_.VALDATA___V116*/ curfptr[115] = (void*) sy_CLASS_OBJVALUE; } /*getnamedsym:CLASS_OBJCODE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCODE = basilysgc_named_symbol("CLASS_OBJCODE", BASILYS_GET); if (sy_CLASS_OBJCODE && NULL == /*_.VALDATA___V118*/ curfptr[117]) /*_.VALDATA___V118*/ curfptr[117] = (void*) sy_CLASS_OBJCODE; } /*getnamedsym:OBV_TYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBV_TYPE = basilysgc_named_symbol("OBV_TYPE", BASILYS_GET); if (sy_OBV_TYPE && NULL == /*_.VALDATA___V126*/ curfptr[125]) /*_.VALDATA___V126*/ curfptr[125] = (void*) sy_OBV_TYPE; } /*getnamedsym:CLASS_OBJPUREVALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUREVALUE = basilysgc_named_symbol("CLASS_OBJPUREVALUE", BASILYS_GET); if (sy_CLASS_OBJPUREVALUE && NULL == /*_.VALDATA___V128*/ curfptr[127]) /*_.VALDATA___V128*/ curfptr[127] = (void*) sy_CLASS_OBJPUREVALUE; } /*getnamedsym:CLASS_OBJLOCV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLOCV = basilysgc_named_symbol("CLASS_OBJLOCV", BASILYS_GET); if (sy_CLASS_OBJLOCV && NULL == /*_.VALDATA___V134*/ curfptr[133]) /*_.VALDATA___V134*/ curfptr[133] = (void*) sy_CLASS_OBJLOCV; } /*getnamedsym:OBL_OFF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBL_OFF = basilysgc_named_symbol("OBL_OFF", BASILYS_GET); if (sy_OBL_OFF && NULL == /*_.VALDATA___V146*/ curfptr[145]) /*_.VALDATA___V146*/ curfptr[145] = (void*) sy_OBL_OFF; } /*getnamedsym:OBL_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBL_PROC = basilysgc_named_symbol("OBL_PROC", BASILYS_GET); if (sy_OBL_PROC && NULL == /*_.VALDATA___V148*/ curfptr[147]) /*_.VALDATA___V148*/ curfptr[147] = (void*) sy_OBL_PROC; } /*getnamedsym:OBL_CNAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBL_CNAME = basilysgc_named_symbol("OBL_CNAME", BASILYS_GET); if (sy_OBL_CNAME && NULL == /*_.VALDATA___V150*/ curfptr[149]) /*_.VALDATA___V150*/ curfptr[149] = (void*) sy_OBL_CNAME; } /*getnamedsym:CLASS_OBJCLOCCV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCLOCCV = basilysgc_named_symbol("CLASS_OBJCLOCCV", BASILYS_GET); if (sy_CLASS_OBJCLOCCV && NULL == /*_.VALDATA___V152*/ curfptr[151]) /*_.VALDATA___V152*/ curfptr[151] = (void*) sy_CLASS_OBJCLOCCV; } /*getnamedsym:OBC_OFF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBC_OFF = basilysgc_named_symbol("OBC_OFF", BASILYS_GET); if (sy_OBC_OFF && NULL == /*_.VALDATA___V164*/ curfptr[163]) /*_.VALDATA___V164*/ curfptr[163] = (void*) sy_OBC_OFF; } /*getnamedsym:OBC_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBC_PROC = basilysgc_named_symbol("OBC_PROC", BASILYS_GET); if (sy_OBC_PROC && NULL == /*_.VALDATA___V166*/ curfptr[165]) /*_.VALDATA___V166*/ curfptr[165] = (void*) sy_OBC_PROC; } /*getnamedsym:OBC_NAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBC_NAME = basilysgc_named_symbol("OBC_NAME", BASILYS_GET); if (sy_OBC_NAME && NULL == /*_.VALDATA___V168*/ curfptr[167]) /*_.VALDATA___V168*/ curfptr[167] = (void*) sy_OBC_NAME; } /*getnamedsym:CLASS_OBJCONSTV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCONSTV = basilysgc_named_symbol("CLASS_OBJCONSTV", BASILYS_GET); if (sy_CLASS_OBJCONSTV && NULL == /*_.VALDATA___V170*/ curfptr[169]) /*_.VALDATA___V170*/ curfptr[169] = (void*) sy_CLASS_OBJCONSTV; } /*getnamedsym:CLASS_OBJPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPREDEF = basilysgc_named_symbol("CLASS_OBJPREDEF", BASILYS_GET); if (sy_CLASS_OBJPREDEF && NULL == /*_.VALDATA___V176*/ curfptr[175]) /*_.VALDATA___V176*/ curfptr[175] = (void*) sy_CLASS_OBJPREDEF; } /*getnamedsym:OBPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBPREDEF = basilysgc_named_symbol("OBPREDEF", BASILYS_GET); if (sy_OBPREDEF && NULL == /*_.VALDATA___V184*/ curfptr[183]) /*_.VALDATA___V184*/ curfptr[183] = (void*) sy_OBPREDEF; } /*getnamedsym:CLASS_OBJNIL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJNIL = basilysgc_named_symbol("CLASS_OBJNIL", BASILYS_GET); if (sy_CLASS_OBJNIL && NULL == /*_.VALDATA___V186*/ curfptr[185]) /*_.VALDATA___V186*/ curfptr[185] = (void*) sy_CLASS_OBJNIL; } /*getnamedsym:CLASS_OBJINITELEM*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITELEM = basilysgc_named_symbol("CLASS_OBJINITELEM", BASILYS_GET); if (sy_CLASS_OBJINITELEM && NULL == /*_.VALDATA___V192*/ curfptr[191]) /*_.VALDATA___V192*/ curfptr[191] = (void*) sy_CLASS_OBJINITELEM; } /*getnamedsym:OIE_CNAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIE_CNAME = basilysgc_named_symbol("OIE_CNAME", BASILYS_GET); if (sy_OIE_CNAME && NULL == /*_.VALDATA___V206*/ curfptr[205]) /*_.VALDATA___V206*/ curfptr[205] = (void*) sy_OIE_CNAME; } /*getnamedsym:OIE_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIE_DATA = basilysgc_named_symbol("OIE_DATA", BASILYS_GET); if (sy_OIE_DATA && NULL == /*_.VALDATA___V208*/ curfptr[207]) /*_.VALDATA___V208*/ curfptr[207] = (void*) sy_OIE_DATA; } /*getnamedsym:OIE_DISCR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIE_DISCR = basilysgc_named_symbol("OIE_DISCR", BASILYS_GET); if (sy_OIE_DISCR && NULL == /*_.VALDATA___V210*/ curfptr[209]) /*_.VALDATA___V210*/ curfptr[209] = (void*) sy_OIE_DISCR; } /*getnamedsym:OIE_LOCVAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIE_LOCVAR = basilysgc_named_symbol("OIE_LOCVAR", BASILYS_GET); if (sy_OIE_LOCVAR && NULL == /*_.VALDATA___V212*/ curfptr[211]) /*_.VALDATA___V212*/ curfptr[211] = (void*) sy_OIE_LOCVAR; } /*getnamedsym:CLASS_OBJINITOBJECT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITOBJECT = basilysgc_named_symbol("CLASS_OBJINITOBJECT", BASILYS_GET); if (sy_CLASS_OBJINITOBJECT && NULL == /*_.VALDATA___V214*/ curfptr[213]) /*_.VALDATA___V214*/ curfptr[213] = (void*) sy_CLASS_OBJINITOBJECT; } /*getnamedsym:OIO_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIO_PREDEF = basilysgc_named_symbol("OIO_PREDEF", BASILYS_GET); if (sy_OIO_PREDEF && NULL == /*_.VALDATA___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (void*) sy_OIO_PREDEF; } /*getnamedsym:CLASS_OBJINITMULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITMULTIPLE = basilysgc_named_symbol("CLASS_OBJINITMULTIPLE", BASILYS_GET); if (sy_CLASS_OBJINITMULTIPLE && NULL == /*_.VALDATA___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (void*) sy_CLASS_OBJINITMULTIPLE; } /*getnamedsym:OIM_TUPVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIM_TUPVAL = basilysgc_named_symbol("OIM_TUPVAL", BASILYS_GET); if (sy_OIM_TUPVAL && NULL == /*_.VALDATA___V232*/ curfptr[231]) /*_.VALDATA___V232*/ curfptr[231] = (void*) sy_OIM_TUPVAL; } /*getnamedsym:CLASS_OBJINITCLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITCLOSURE = basilysgc_named_symbol("CLASS_OBJINITCLOSURE", BASILYS_GET); if (sy_CLASS_OBJINITCLOSURE && NULL == /*_.VALDATA___V234*/ curfptr[233]) /*_.VALDATA___V234*/ curfptr[233] = (void*) sy_CLASS_OBJINITCLOSURE; } /*getnamedsym:CLASS_OBJINITROUTINE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITROUTINE = basilysgc_named_symbol("CLASS_OBJINITROUTINE", BASILYS_GET); if (sy_CLASS_OBJINITROUTINE && NULL == /*_.VALDATA___V240*/ curfptr[239]) /*_.VALDATA___V240*/ curfptr[239] = (void*) sy_CLASS_OBJINITROUTINE; } /*getnamedsym:OIR_PROCROUTINE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIR_PROCROUTINE = basilysgc_named_symbol("OIR_PROCROUTINE", BASILYS_GET); if (sy_OIR_PROCROUTINE && NULL == /*_.VALDATA___V248*/ curfptr[247]) /*_.VALDATA___V248*/ curfptr[247] = (void*) sy_OIR_PROCROUTINE; } /*getnamedsym:CLASS_OBJINITSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITSTRING = basilysgc_named_symbol("CLASS_OBJINITSTRING", BASILYS_GET); if (sy_CLASS_OBJINITSTRING && NULL == /*_.VALDATA___V250*/ curfptr[249]) /*_.VALDATA___V250*/ curfptr[249] = (void*) sy_CLASS_OBJINITSTRING; } /*getnamedsym:CLASS_OBJEXPV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJEXPV = basilysgc_named_symbol("CLASS_OBJEXPV", BASILYS_GET); if (sy_CLASS_OBJEXPV && NULL == /*_.VALDATA___V256*/ curfptr[255]) /*_.VALDATA___V256*/ curfptr[255] = (void*) sy_CLASS_OBJEXPV; } /*getnamedsym:OBX_CONT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBX_CONT = basilysgc_named_symbol("OBX_CONT", BASILYS_GET); if (sy_OBX_CONT && NULL == /*_.VALDATA___V264*/ curfptr[263]) /*_.VALDATA___V264*/ curfptr[263] = (void*) sy_OBX_CONT; } /*getnamedsym:CLASS_OBJLOCATEDEXPV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLOCATEDEXPV = basilysgc_named_symbol("CLASS_OBJLOCATEDEXPV", BASILYS_GET); if (sy_CLASS_OBJLOCATEDEXPV && NULL == /*_.VALDATA___V266*/ curfptr[265]) /*_.VALDATA___V266*/ curfptr[265] = (void*) sy_CLASS_OBJLOCATEDEXPV; } /*getnamedsym:OBCX_LOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCX_LOC = basilysgc_named_symbol("OBCX_LOC", BASILYS_GET); if (sy_OBCX_LOC && NULL == /*_.VALDATA___V274*/ curfptr[273]) /*_.VALDATA___V274*/ curfptr[273] = (void*) sy_OBCX_LOC; } /*getnamedsym:CLASS_OBJINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINSTR = basilysgc_named_symbol("CLASS_OBJINSTR", BASILYS_GET); if (sy_CLASS_OBJINSTR && NULL == /*_.VALDATA___V276*/ curfptr[275]) /*_.VALDATA___V276*/ curfptr[275] = (void*) sy_CLASS_OBJINSTR; } /*getnamedsym:OBI_LOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBI_LOC = basilysgc_named_symbol("OBI_LOC", BASILYS_GET); if (sy_OBI_LOC && NULL == /*_.VALDATA___V284*/ curfptr[283]) /*_.VALDATA___V284*/ curfptr[283] = (void*) sy_OBI_LOC; } /*getnamedsym:CLASS_OBJCOMMENTINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOMMENTINSTR = basilysgc_named_symbol("CLASS_OBJCOMMENTINSTR", BASILYS_GET); if (sy_CLASS_OBJCOMMENTINSTR && NULL == /*_.VALDATA___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (void*) sy_CLASS_OBJCOMMENTINSTR; } /*getnamedsym:OBCI_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCI_COMMENT = basilysgc_named_symbol("OBCI_COMMENT", BASILYS_GET); if (sy_OBCI_COMMENT && NULL == /*_.VALDATA___V294*/ curfptr[293]) /*_.VALDATA___V294*/ curfptr[293] = (void*) sy_OBCI_COMMENT; } /*getnamedsym:CLASS_OBJDESTINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJDESTINSTR = basilysgc_named_symbol("CLASS_OBJDESTINSTR", BASILYS_GET); if (sy_CLASS_OBJDESTINSTR && NULL == /*_.VALDATA___V296*/ curfptr[295]) /*_.VALDATA___V296*/ curfptr[295] = (void*) sy_CLASS_OBJDESTINSTR; } /*getnamedsym:OBDI_DESTLIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBDI_DESTLIST = basilysgc_named_symbol("OBDI_DESTLIST", BASILYS_GET); if (sy_OBDI_DESTLIST && NULL == /*_.VALDATA___V304*/ curfptr[303]) /*_.VALDATA___V304*/ curfptr[303] = (void*) sy_OBDI_DESTLIST; } /*getnamedsym:CLASS_OBJCOMPUTE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOMPUTE = basilysgc_named_symbol("CLASS_OBJCOMPUTE", BASILYS_GET); if (sy_CLASS_OBJCOMPUTE && NULL == /*_.VALDATA___V306*/ curfptr[305]) /*_.VALDATA___V306*/ curfptr[305] = (void*) sy_CLASS_OBJCOMPUTE; } /*getnamedsym:OBCPT_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCPT_EXPR = basilysgc_named_symbol("OBCPT_EXPR", BASILYS_GET); if (sy_OBCPT_EXPR && NULL == /*_.VALDATA___V314*/ curfptr[313]) /*_.VALDATA___V314*/ curfptr[313] = (void*) sy_OBCPT_EXPR; } /*getnamedsym:CLASS_OBJGETARG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETARG = basilysgc_named_symbol("CLASS_OBJGETARG", BASILYS_GET); if (sy_CLASS_OBJGETARG && NULL == /*_.VALDATA___V316*/ curfptr[315]) /*_.VALDATA___V316*/ curfptr[315] = (void*) sy_CLASS_OBJGETARG; } /*getnamedsym:OBARG_OBLOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBARG_OBLOC = basilysgc_named_symbol("OBARG_OBLOC", BASILYS_GET); if (sy_OBARG_OBLOC && NULL == /*_.VALDATA___V326*/ curfptr[325]) /*_.VALDATA___V326*/ curfptr[325] = (void*) sy_OBARG_OBLOC; } /*getnamedsym:OBARG_BIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBARG_BIND = basilysgc_named_symbol("OBARG_BIND", BASILYS_GET); if (sy_OBARG_BIND && NULL == /*_.VALDATA___V328*/ curfptr[327]) /*_.VALDATA___V328*/ curfptr[327] = (void*) sy_OBARG_BIND; } /*getnamedsym:CLASS_OBJPUTXTRARESULT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTXTRARESULT = basilysgc_named_symbol("CLASS_OBJPUTXTRARESULT", BASILYS_GET); if (sy_CLASS_OBJPUTXTRARESULT && NULL == /*_.VALDATA___V330*/ curfptr[329]) /*_.VALDATA___V330*/ curfptr[329] = (void*) sy_CLASS_OBJPUTXTRARESULT; } /*getnamedsym:OBXRES_RANK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBXRES_RANK = basilysgc_named_symbol("OBXRES_RANK", BASILYS_GET); if (sy_OBXRES_RANK && NULL == /*_.VALDATA___V340*/ curfptr[339]) /*_.VALDATA___V340*/ curfptr[339] = (void*) sy_OBXRES_RANK; } /*getnamedsym:OBXRES_OBLOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBXRES_OBLOC = basilysgc_named_symbol("OBXRES_OBLOC", BASILYS_GET); if (sy_OBXRES_OBLOC && NULL == /*_.VALDATA___V342*/ curfptr[341]) /*_.VALDATA___V342*/ curfptr[341] = (void*) sy_OBXRES_OBLOC; } /*getnamedsym:CLASS_OBJFINALRETURN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJFINALRETURN = basilysgc_named_symbol("CLASS_OBJFINALRETURN", BASILYS_GET); if (sy_CLASS_OBJFINALRETURN && NULL == /*_.VALDATA___V344*/ curfptr[343]) /*_.VALDATA___V344*/ curfptr[343] = (void*) sy_CLASS_OBJFINALRETURN; } /*getnamedsym:CLASS_OBJCLEAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCLEAR = basilysgc_named_symbol("CLASS_OBJCLEAR", BASILYS_GET); if (sy_CLASS_OBJCLEAR && NULL == /*_.VALDATA___V350*/ curfptr[349]) /*_.VALDATA___V350*/ curfptr[349] = (void*) sy_CLASS_OBJCLEAR; } /*getnamedsym:OCLR_VLOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OCLR_VLOC = basilysgc_named_symbol("OCLR_VLOC", BASILYS_GET); if (sy_OCLR_VLOC && NULL == /*_.VALDATA___V358*/ curfptr[357]) /*_.VALDATA___V358*/ curfptr[357] = (void*) sy_OCLR_VLOC; } /*getnamedsym:CLASS_OBJBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJBLOCK = basilysgc_named_symbol("CLASS_OBJBLOCK", BASILYS_GET); if (sy_CLASS_OBJBLOCK && NULL == /*_.VALDATA___V360*/ curfptr[359]) /*_.VALDATA___V360*/ curfptr[359] = (void*) sy_CLASS_OBJBLOCK; } /*getnamedsym:OBLO_BODYL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBLO_BODYL = basilysgc_named_symbol("OBLO_BODYL", BASILYS_GET); if (sy_OBLO_BODYL && NULL == /*_.VALDATA___V370*/ curfptr[369]) /*_.VALDATA___V370*/ curfptr[369] = (void*) sy_OBLO_BODYL; } /*getnamedsym:OBLO_EPIL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBLO_EPIL = basilysgc_named_symbol("OBLO_EPIL", BASILYS_GET); if (sy_OBLO_EPIL && NULL == /*_.VALDATA___V372*/ curfptr[371]) /*_.VALDATA___V372*/ curfptr[371] = (void*) sy_OBLO_EPIL; } /*getnamedsym:CLASS_OBJCOMMENTEDBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOMMENTEDBLOCK = basilysgc_named_symbol("CLASS_OBJCOMMENTEDBLOCK", BASILYS_GET); if (sy_CLASS_OBJCOMMENTEDBLOCK && NULL == /*_.VALDATA___V374*/ curfptr[373]) /*_.VALDATA___V374*/ curfptr[373] = (void*) sy_CLASS_OBJCOMMENTEDBLOCK; } /*getnamedsym:OCOMBLO_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OCOMBLO_COMMENT = basilysgc_named_symbol("OCOMBLO_COMMENT", BASILYS_GET); if (sy_OCOMBLO_COMMENT && NULL == /*_.VALDATA___V382*/ curfptr[381]) /*_.VALDATA___V382*/ curfptr[381] = (void*) sy_OCOMBLO_COMMENT; } /*getnamedsym:CLASS_OBJMULTIBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMULTIBLOCK = basilysgc_named_symbol("CLASS_OBJMULTIBLOCK", BASILYS_GET); if (sy_CLASS_OBJMULTIBLOCK && NULL == /*_.VALDATA___V384*/ curfptr[383]) /*_.VALDATA___V384*/ curfptr[383] = (void*) sy_CLASS_OBJMULTIBLOCK; } /*getnamedsym:OMULBLO_SUBCOMP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OMULBLO_SUBCOMP = basilysgc_named_symbol("OMULBLO_SUBCOMP", BASILYS_GET); if (sy_OMULBLO_SUBCOMP && NULL == /*_.VALDATA___V392*/ curfptr[391]) /*_.VALDATA___V392*/ curfptr[391] = (void*) sy_OMULBLO_SUBCOMP; } /*getnamedsym:CLASS_OBJLABELINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLABELINSTR = basilysgc_named_symbol("CLASS_OBJLABELINSTR", BASILYS_GET); if (sy_CLASS_OBJLABELINSTR && NULL == /*_.VALDATA___V394*/ curfptr[393]) /*_.VALDATA___V394*/ curfptr[393] = (void*) sy_CLASS_OBJLABELINSTR; } /*getnamedsym:OBLAB_PREFIX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBLAB_PREFIX = basilysgc_named_symbol("OBLAB_PREFIX", BASILYS_GET); if (sy_OBLAB_PREFIX && NULL == /*_.VALDATA___V404*/ curfptr[403]) /*_.VALDATA___V404*/ curfptr[403] = (void*) sy_OBLAB_PREFIX; } /*getnamedsym:OBLAB_RANK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBLAB_RANK = basilysgc_named_symbol("OBLAB_RANK", BASILYS_GET); if (sy_OBLAB_RANK && NULL == /*_.VALDATA___V406*/ curfptr[405]) /*_.VALDATA___V406*/ curfptr[405] = (void*) sy_OBLAB_RANK; } /*getnamedsym:CLASS_OBJGOTOINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGOTOINSTR = basilysgc_named_symbol("CLASS_OBJGOTOINSTR", BASILYS_GET); if (sy_CLASS_OBJGOTOINSTR && NULL == /*_.VALDATA___V408*/ curfptr[407]) /*_.VALDATA___V408*/ curfptr[407] = (void*) sy_CLASS_OBJGOTOINSTR; } /*getnamedsym:OBGOTO_PREFIX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBGOTO_PREFIX = basilysgc_named_symbol("OBGOTO_PREFIX", BASILYS_GET); if (sy_OBGOTO_PREFIX && NULL == /*_.VALDATA___V418*/ curfptr[417]) /*_.VALDATA___V418*/ curfptr[417] = (void*) sy_OBGOTO_PREFIX; } /*getnamedsym:OBGOTO_RANK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBGOTO_RANK = basilysgc_named_symbol("OBGOTO_RANK", BASILYS_GET); if (sy_OBGOTO_RANK && NULL == /*_.VALDATA___V420*/ curfptr[419]) /*_.VALDATA___V420*/ curfptr[419] = (void*) sy_OBGOTO_RANK; } /*getnamedsym:CLASS_OBJLOOP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLOOP = basilysgc_named_symbol("CLASS_OBJLOOP", BASILYS_GET); if (sy_CLASS_OBJLOOP && NULL == /*_.VALDATA___V422*/ curfptr[421]) /*_.VALDATA___V422*/ curfptr[421] = (void*) sy_CLASS_OBJLOOP; } /*getnamedsym:OBLOOP_LABEL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBLOOP_LABEL = basilysgc_named_symbol("OBLOOP_LABEL", BASILYS_GET); if (sy_OBLOOP_LABEL && NULL == /*_.VALDATA___V432*/ curfptr[431]) /*_.VALDATA___V432*/ curfptr[431] = (void*) sy_OBLOOP_LABEL; } /*getnamedsym:OBLOOP_RESV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBLOOP_RESV = basilysgc_named_symbol("OBLOOP_RESV", BASILYS_GET); if (sy_OBLOOP_RESV && NULL == /*_.VALDATA___V434*/ curfptr[433]) /*_.VALDATA___V434*/ curfptr[433] = (void*) sy_OBLOOP_RESV; } /*getnamedsym:CLASS_OBJEXIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJEXIT = basilysgc_named_symbol("CLASS_OBJEXIT", BASILYS_GET); if (sy_CLASS_OBJEXIT && NULL == /*_.VALDATA___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (void*) sy_CLASS_OBJEXIT; } /*getnamedsym:OBEXIT_LABEL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBEXIT_LABEL = basilysgc_named_symbol("OBEXIT_LABEL", BASILYS_GET); if (sy_OBEXIT_LABEL && NULL == /*_.VALDATA___V444*/ curfptr[443]) /*_.VALDATA___V444*/ curfptr[443] = (void*) sy_OBEXIT_LABEL; } /*getnamedsym:CLASS_OBJCITERBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCITERBLOCK = basilysgc_named_symbol("CLASS_OBJCITERBLOCK", BASILYS_GET); if (sy_CLASS_OBJCITERBLOCK && NULL == /*_.VALDATA___V446*/ curfptr[445]) /*_.VALDATA___V446*/ curfptr[445] = (void*) sy_CLASS_OBJCITERBLOCK; } /*getnamedsym:OBCITER_CITER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCITER_CITER = basilysgc_named_symbol("OBCITER_CITER", BASILYS_GET); if (sy_OBCITER_CITER && NULL == /*_.VALDATA___V458*/ curfptr[457]) /*_.VALDATA___V458*/ curfptr[457] = (void*) sy_OBCITER_CITER; } /*getnamedsym:OBCITER_BEFORE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCITER_BEFORE = basilysgc_named_symbol("OBCITER_BEFORE", BASILYS_GET); if (sy_OBCITER_BEFORE && NULL == /*_.VALDATA___V460*/ curfptr[459]) /*_.VALDATA___V460*/ curfptr[459] = (void*) sy_OBCITER_BEFORE; } /*getnamedsym:OBCITER_AFTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCITER_AFTER = basilysgc_named_symbol("OBCITER_AFTER", BASILYS_GET); if (sy_OBCITER_AFTER && NULL == /*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*) sy_OBCITER_AFTER; } /*getnamedsym:CLASS_OBJCOND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOND = basilysgc_named_symbol("CLASS_OBJCOND", BASILYS_GET); if (sy_CLASS_OBJCOND && NULL == /*_.VALDATA___V464*/ curfptr[463]) /*_.VALDATA___V464*/ curfptr[463] = (void*) sy_CLASS_OBJCOND; } /*getnamedsym:OBCOND_TEST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCOND_TEST = basilysgc_named_symbol("OBCOND_TEST", BASILYS_GET); if (sy_OBCOND_TEST && NULL == /*_.VALDATA___V476*/ curfptr[475]) /*_.VALDATA___V476*/ curfptr[475] = (void*) sy_OBCOND_TEST; } /*getnamedsym:OBCOND_THEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCOND_THEN = basilysgc_named_symbol("OBCOND_THEN", BASILYS_GET); if (sy_OBCOND_THEN && NULL == /*_.VALDATA___V478*/ curfptr[477]) /*_.VALDATA___V478*/ curfptr[477] = (void*) sy_OBCOND_THEN; } /*getnamedsym:OBCOND_ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBCOND_ELSE = basilysgc_named_symbol("OBCOND_ELSE", BASILYS_GET); if (sy_OBCOND_ELSE && NULL == /*_.VALDATA___V480*/ curfptr[479]) /*_.VALDATA___V480*/ curfptr[479] = (void*) sy_OBCOND_ELSE; } /*getnamedsym:CLASS_OBJCPPIF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCPPIF = basilysgc_named_symbol("CLASS_OBJCPPIF", BASILYS_GET); if (sy_CLASS_OBJCPPIF && NULL == /*_.VALDATA___V482*/ curfptr[481]) /*_.VALDATA___V482*/ curfptr[481] = (void*) sy_CLASS_OBJCPPIF; } /*getnamedsym:OBIFP_COND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBIFP_COND = basilysgc_named_symbol("OBIFP_COND", BASILYS_GET); if (sy_OBIFP_COND && NULL == /*_.VALDATA___V494*/ curfptr[493]) /*_.VALDATA___V494*/ curfptr[493] = (void*) sy_OBIFP_COND; } /*getnamedsym:OBIFP_THEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBIFP_THEN = basilysgc_named_symbol("OBIFP_THEN", BASILYS_GET); if (sy_OBIFP_THEN && NULL == /*_.VALDATA___V496*/ curfptr[495]) /*_.VALDATA___V496*/ curfptr[495] = (void*) sy_OBIFP_THEN; } /*getnamedsym:OBIFP_ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBIFP_ELSE = basilysgc_named_symbol("OBIFP_ELSE", BASILYS_GET); if (sy_OBIFP_ELSE && NULL == /*_.VALDATA___V498*/ curfptr[497]) /*_.VALDATA___V498*/ curfptr[497] = (void*) sy_OBIFP_ELSE; } /*getnamedsym:CLASS_OBJINTERNCOMMON*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINTERNCOMMON = basilysgc_named_symbol("CLASS_OBJINTERNCOMMON", BASILYS_GET); if (sy_CLASS_OBJINTERNCOMMON && NULL == /*_.VALDATA___V500*/ curfptr[499]) /*_.VALDATA___V500*/ curfptr[499] = (void*) sy_CLASS_OBJINTERNCOMMON; } /*getnamedsym:OBINTERN_IOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBINTERN_IOBJ = basilysgc_named_symbol("OBINTERN_IOBJ", BASILYS_GET); if (sy_OBINTERN_IOBJ && NULL == /*_.VALDATA___V508*/ curfptr[507]) /*_.VALDATA___V508*/ curfptr[507] = (void*) sy_OBINTERN_IOBJ; } /*getnamedsym:CLASS_OBJINTERNSYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINTERNSYMBOL = basilysgc_named_symbol("CLASS_OBJINTERNSYMBOL", BASILYS_GET); if (sy_CLASS_OBJINTERNSYMBOL && NULL == /*_.VALDATA___V510*/ curfptr[509]) /*_.VALDATA___V510*/ curfptr[509] = (void*) sy_CLASS_OBJINTERNSYMBOL; } /*getnamedsym:CLASS_OBJINTERNKEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINTERNKEYWORD = basilysgc_named_symbol("CLASS_OBJINTERNKEYWORD", BASILYS_GET); if (sy_CLASS_OBJINTERNKEYWORD && NULL == /*_.VALDATA___V516*/ curfptr[515]) /*_.VALDATA___V516*/ curfptr[515] = (void*) sy_CLASS_OBJINTERNKEYWORD; } /*getnamedsym:CLASS_OBJGETNAMEDCOMMON*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETNAMEDCOMMON = basilysgc_named_symbol("CLASS_OBJGETNAMEDCOMMON", BASILYS_GET); if (sy_CLASS_OBJGETNAMEDCOMMON && NULL == /*_.VALDATA___V522*/ curfptr[521]) /*_.VALDATA___V522*/ curfptr[521] = (void*) sy_CLASS_OBJGETNAMEDCOMMON; } /*getnamedsym:OBGNAMED_IOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBGNAMED_IOBJ = basilysgc_named_symbol("OBGNAMED_IOBJ", BASILYS_GET); if (sy_OBGNAMED_IOBJ && NULL == /*_.VALDATA___V530*/ curfptr[529]) /*_.VALDATA___V530*/ curfptr[529] = (void*) sy_OBGNAMED_IOBJ; } /*getnamedsym:CLASS_OBJGETNAMEDSYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETNAMEDSYMBOL = basilysgc_named_symbol("CLASS_OBJGETNAMEDSYMBOL", BASILYS_GET); if (sy_CLASS_OBJGETNAMEDSYMBOL && NULL == /*_.VALDATA___V532*/ curfptr[531]) /*_.VALDATA___V532*/ curfptr[531] = (void*) sy_CLASS_OBJGETNAMEDSYMBOL; } /*getnamedsym:CLASS_OBJGETNAMEDKEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETNAMEDKEYWORD = basilysgc_named_symbol("CLASS_OBJGETNAMEDKEYWORD", BASILYS_GET); if (sy_CLASS_OBJGETNAMEDKEYWORD && NULL == /*_.VALDATA___V538*/ curfptr[537]) /*_.VALDATA___V538*/ curfptr[537] = (void*) sy_CLASS_OBJGETNAMEDKEYWORD; } /*getnamedsym:CLASS_OBJAPPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJAPPLY = basilysgc_named_symbol("CLASS_OBJAPPLY", BASILYS_GET); if (sy_CLASS_OBJAPPLY && NULL == /*_.VALDATA___V544*/ curfptr[543]) /*_.VALDATA___V544*/ curfptr[543] = (void*) sy_CLASS_OBJAPPLY; } /*getnamedsym:OBAPP_CLOS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBAPP_CLOS = basilysgc_named_symbol("OBAPP_CLOS", BASILYS_GET); if (sy_OBAPP_CLOS && NULL == /*_.VALDATA___V554*/ curfptr[553]) /*_.VALDATA___V554*/ curfptr[553] = (void*) sy_OBAPP_CLOS; } /*getnamedsym:OBAPP_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBAPP_ARGS = basilysgc_named_symbol("OBAPP_ARGS", BASILYS_GET); if (sy_OBAPP_ARGS && NULL == /*_.VALDATA___V556*/ curfptr[555]) /*_.VALDATA___V556*/ curfptr[555] = (void*) sy_OBAPP_ARGS; } /*getnamedsym:CLASS_OBJMULTIAPPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMULTIAPPLY = basilysgc_named_symbol("CLASS_OBJMULTIAPPLY", BASILYS_GET); if (sy_CLASS_OBJMULTIAPPLY && NULL == /*_.VALDATA___V558*/ curfptr[557]) /*_.VALDATA___V558*/ curfptr[557] = (void*) sy_CLASS_OBJMULTIAPPLY; } /*getnamedsym:OBMULTAPP_XRES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBMULTAPP_XRES = basilysgc_named_symbol("OBMULTAPP_XRES", BASILYS_GET); if (sy_OBMULTAPP_XRES && NULL == /*_.VALDATA___V566*/ curfptr[565]) /*_.VALDATA___V566*/ curfptr[565] = (void*) sy_OBMULTAPP_XRES; } /*getnamedsym:CLASS_OBJMSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMSEND = basilysgc_named_symbol("CLASS_OBJMSEND", BASILYS_GET); if (sy_CLASS_OBJMSEND && NULL == /*_.VALDATA___V568*/ curfptr[567]) /*_.VALDATA___V568*/ curfptr[567] = (void*) sy_CLASS_OBJMSEND; } /*getnamedsym:OBMSND_SEL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBMSND_SEL = basilysgc_named_symbol("OBMSND_SEL", BASILYS_GET); if (sy_OBMSND_SEL && NULL == /*_.VALDATA___V580*/ curfptr[579]) /*_.VALDATA___V580*/ curfptr[579] = (void*) sy_OBMSND_SEL; } /*getnamedsym:OBMSND_RECV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBMSND_RECV = basilysgc_named_symbol("OBMSND_RECV", BASILYS_GET); if (sy_OBMSND_RECV && NULL == /*_.VALDATA___V582*/ curfptr[581]) /*_.VALDATA___V582*/ curfptr[581] = (void*) sy_OBMSND_RECV; } /*getnamedsym:OBMSND_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBMSND_ARGS = basilysgc_named_symbol("OBMSND_ARGS", BASILYS_GET); if (sy_OBMSND_ARGS && NULL == /*_.VALDATA___V584*/ curfptr[583]) /*_.VALDATA___V584*/ curfptr[583] = (void*) sy_OBMSND_ARGS; } /*getnamedsym:CLASS_OBJMULTIMSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMULTIMSEND = basilysgc_named_symbol("CLASS_OBJMULTIMSEND", BASILYS_GET); if (sy_CLASS_OBJMULTIMSEND && NULL == /*_.VALDATA___V586*/ curfptr[585]) /*_.VALDATA___V586*/ curfptr[585] = (void*) sy_CLASS_OBJMULTIMSEND; } /*getnamedsym:OBMULTSND_XRES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBMULTSND_XRES = basilysgc_named_symbol("OBMULTSND_XRES", BASILYS_GET); if (sy_OBMULTSND_XRES && NULL == /*_.VALDATA___V594*/ curfptr[593]) /*_.VALDATA___V594*/ curfptr[593] = (void*) sy_OBMULTSND_XRES; } /*getnamedsym:CLASS_OBJRAWALLOCOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJRAWALLOCOBJ = basilysgc_named_symbol("CLASS_OBJRAWALLOCOBJ", BASILYS_GET); if (sy_CLASS_OBJRAWALLOCOBJ && NULL == /*_.VALDATA___V596*/ curfptr[595]) /*_.VALDATA___V596*/ curfptr[595] = (void*) sy_CLASS_OBJRAWALLOCOBJ; } /*getnamedsym:OBRALLOBJ_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBRALLOBJ_CLASS = basilysgc_named_symbol("OBRALLOBJ_CLASS", BASILYS_GET); if (sy_OBRALLOBJ_CLASS && NULL == /*_.VALDATA___V608*/ curfptr[607]) /*_.VALDATA___V608*/ curfptr[607] = (void*) sy_OBRALLOBJ_CLASS; } /*getnamedsym:OBRALLOBJ_LEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBRALLOBJ_LEN = basilysgc_named_symbol("OBRALLOBJ_LEN", BASILYS_GET); if (sy_OBRALLOBJ_LEN && NULL == /*_.VALDATA___V610*/ curfptr[609]) /*_.VALDATA___V610*/ curfptr[609] = (void*) sy_OBRALLOBJ_LEN; } /*getnamedsym:OBRALLOBJ_CLASSNAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBRALLOBJ_CLASSNAME = basilysgc_named_symbol("OBRALLOBJ_CLASSNAME", BASILYS_GET); if (sy_OBRALLOBJ_CLASSNAME && NULL == /*_.VALDATA___V612*/ curfptr[611]) /*_.VALDATA___V612*/ curfptr[611] = (void*) sy_OBRALLOBJ_CLASSNAME; } /*getnamedsym:CLASS_OBJNEWCLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJNEWCLOSURE = basilysgc_named_symbol("CLASS_OBJNEWCLOSURE", BASILYS_GET); if (sy_CLASS_OBJNEWCLOSURE && NULL == /*_.VALDATA___V614*/ curfptr[613]) /*_.VALDATA___V614*/ curfptr[613] = (void*) sy_CLASS_OBJNEWCLOSURE; } /*getnamedsym:OBNCLO_DISCR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBNCLO_DISCR = basilysgc_named_symbol("OBNCLO_DISCR", BASILYS_GET); if (sy_OBNCLO_DISCR && NULL == /*_.VALDATA___V626*/ curfptr[625]) /*_.VALDATA___V626*/ curfptr[625] = (void*) sy_OBNCLO_DISCR; } /*getnamedsym:OBNCLO_ROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBNCLO_ROUT = basilysgc_named_symbol("OBNCLO_ROUT", BASILYS_GET); if (sy_OBNCLO_ROUT && NULL == /*_.VALDATA___V628*/ curfptr[627]) /*_.VALDATA___V628*/ curfptr[627] = (void*) sy_OBNCLO_ROUT; } /*getnamedsym:OBNCLO_LEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBNCLO_LEN = basilysgc_named_symbol("OBNCLO_LEN", BASILYS_GET); if (sy_OBNCLO_LEN && NULL == /*_.VALDATA___V630*/ curfptr[629]) /*_.VALDATA___V630*/ curfptr[629] = (void*) sy_OBNCLO_LEN; } /*getnamedsym:CLASS_OBJPUTUPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTUPLE = basilysgc_named_symbol("CLASS_OBJPUTUPLE", BASILYS_GET); if (sy_CLASS_OBJPUTUPLE && NULL == /*_.VALDATA___V632*/ curfptr[631]) /*_.VALDATA___V632*/ curfptr[631] = (void*) sy_CLASS_OBJPUTUPLE; } /*getnamedsym:OPUTU_TUPLED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPUTU_TUPLED = basilysgc_named_symbol("OPUTU_TUPLED", BASILYS_GET); if (sy_OPUTU_TUPLED && NULL == /*_.VALDATA___V644*/ curfptr[643]) /*_.VALDATA___V644*/ curfptr[643] = (void*) sy_OPUTU_TUPLED; } /*getnamedsym:OPUTU_OFFSET*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPUTU_OFFSET = basilysgc_named_symbol("OPUTU_OFFSET", BASILYS_GET); if (sy_OPUTU_OFFSET && NULL == /*_.VALDATA___V646*/ curfptr[645]) /*_.VALDATA___V646*/ curfptr[645] = (void*) sy_OPUTU_OFFSET; } /*getnamedsym:OPUTU_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPUTU_VALUE = basilysgc_named_symbol("OPUTU_VALUE", BASILYS_GET); if (sy_OPUTU_VALUE && NULL == /*_.VALDATA___V648*/ curfptr[647]) /*_.VALDATA___V648*/ curfptr[647] = (void*) sy_OPUTU_VALUE; } /*getnamedsym:CLASS_OBJPUTSLOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTSLOT = basilysgc_named_symbol("CLASS_OBJPUTSLOT", BASILYS_GET); if (sy_CLASS_OBJPUTSLOT && NULL == /*_.VALDATA___V650*/ curfptr[649]) /*_.VALDATA___V650*/ curfptr[649] = (void*) sy_CLASS_OBJPUTSLOT; } /*getnamedsym:OSLOT_ODATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OSLOT_ODATA = basilysgc_named_symbol("OSLOT_ODATA", BASILYS_GET); if (sy_OSLOT_ODATA && NULL == /*_.VALDATA___V664*/ curfptr[663]) /*_.VALDATA___V664*/ curfptr[663] = (void*) sy_OSLOT_ODATA; } /*getnamedsym:OSLOT_OFFSET*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OSLOT_OFFSET = basilysgc_named_symbol("OSLOT_OFFSET", BASILYS_GET); if (sy_OSLOT_OFFSET && NULL == /*_.VALDATA___V666*/ curfptr[665]) /*_.VALDATA___V666*/ curfptr[665] = (void*) sy_OSLOT_OFFSET; } /*getnamedsym:OSLOT_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OSLOT_FIELD = basilysgc_named_symbol("OSLOT_FIELD", BASILYS_GET); if (sy_OSLOT_FIELD && NULL == /*_.VALDATA___V668*/ curfptr[667]) /*_.VALDATA___V668*/ curfptr[667] = (void*) sy_OSLOT_FIELD; } /*getnamedsym:OSLOT_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OSLOT_VALUE = basilysgc_named_symbol("OSLOT_VALUE", BASILYS_GET); if (sy_OSLOT_VALUE && NULL == /*_.VALDATA___V670*/ curfptr[669]) /*_.VALDATA___V670*/ curfptr[669] = (void*) sy_OSLOT_VALUE; } /*getnamedsym:CLASS_OBJGETSLOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETSLOT = basilysgc_named_symbol("CLASS_OBJGETSLOT", BASILYS_GET); if (sy_CLASS_OBJGETSLOT && NULL == /*_.VALDATA___V672*/ curfptr[671]) /*_.VALDATA___V672*/ curfptr[671] = (void*) sy_CLASS_OBJGETSLOT; } /*getnamedsym:OGETSL_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OGETSL_OBJ = basilysgc_named_symbol("OGETSL_OBJ", BASILYS_GET); if (sy_OGETSL_OBJ && NULL == /*_.VALDATA___V682*/ curfptr[681]) /*_.VALDATA___V682*/ curfptr[681] = (void*) sy_OGETSL_OBJ; } /*getnamedsym:OGETSL_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OGETSL_FIELD = basilysgc_named_symbol("OGETSL_FIELD", BASILYS_GET); if (sy_OGETSL_FIELD && NULL == /*_.VALDATA___V684*/ curfptr[683]) /*_.VALDATA___V684*/ curfptr[683] = (void*) sy_OGETSL_FIELD; } /*getnamedsym:CLASS_OBJPUTCLOSUROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTCLOSUROUT = basilysgc_named_symbol("CLASS_OBJPUTCLOSUROUT", BASILYS_GET); if (sy_CLASS_OBJPUTCLOSUROUT && NULL == /*_.VALDATA___V686*/ curfptr[685]) /*_.VALDATA___V686*/ curfptr[685] = (void*) sy_CLASS_OBJPUTCLOSUROUT; } /*getnamedsym:OPCLOR_CLOS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPCLOR_CLOS = basilysgc_named_symbol("OPCLOR_CLOS", BASILYS_GET); if (sy_OPCLOR_CLOS && NULL == /*_.VALDATA___V696*/ curfptr[695]) /*_.VALDATA___V696*/ curfptr[695] = (void*) sy_OPCLOR_CLOS; } /*getnamedsym:OPCLOR_ROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPCLOR_ROUT = basilysgc_named_symbol("OPCLOR_ROUT", BASILYS_GET); if (sy_OPCLOR_ROUT && NULL == /*_.VALDATA___V698*/ curfptr[697]) /*_.VALDATA___V698*/ curfptr[697] = (void*) sy_OPCLOR_ROUT; } /*getnamedsym:CLASS_OBJPUTCLOSEDV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTCLOSEDV = basilysgc_named_symbol("CLASS_OBJPUTCLOSEDV", BASILYS_GET); if (sy_CLASS_OBJPUTCLOSEDV && NULL == /*_.VALDATA___V700*/ curfptr[699]) /*_.VALDATA___V700*/ curfptr[699] = (void*) sy_CLASS_OBJPUTCLOSEDV; } /*getnamedsym:OPCLOV_CLOS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPCLOV_CLOS = basilysgc_named_symbol("OPCLOV_CLOS", BASILYS_GET); if (sy_OPCLOV_CLOS && NULL == /*_.VALDATA___V712*/ curfptr[711]) /*_.VALDATA___V712*/ curfptr[711] = (void*) sy_OPCLOV_CLOS; } /*getnamedsym:OPCLOV_OFF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPCLOV_OFF = basilysgc_named_symbol("OPCLOV_OFF", BASILYS_GET); if (sy_OPCLOV_OFF && NULL == /*_.VALDATA___V714*/ curfptr[713]) /*_.VALDATA___V714*/ curfptr[713] = (void*) sy_OPCLOV_OFF; } /*getnamedsym:OPCLOV_CVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPCLOV_CVAL = basilysgc_named_symbol("OPCLOV_CVAL", BASILYS_GET); if (sy_OPCLOV_CVAL && NULL == /*_.VALDATA___V716*/ curfptr[715]) /*_.VALDATA___V716*/ curfptr[715] = (void*) sy_OPCLOV_CVAL; } /*getnamedsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTCLOSEDNOTNULLV = basilysgc_named_symbol("CLASS_OBJPUTCLOSEDNOTNULLV", BASILYS_GET); if (sy_CLASS_OBJPUTCLOSEDNOTNULLV && NULL == /*_.VALDATA___V718*/ curfptr[717]) /*_.VALDATA___V718*/ curfptr[717] = (void*) sy_CLASS_OBJPUTCLOSEDNOTNULLV; } /*getnamedsym:CLASS_OBJPUTROUTCONST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTROUTCONST = basilysgc_named_symbol("CLASS_OBJPUTROUTCONST", BASILYS_GET); if (sy_CLASS_OBJPUTROUTCONST && NULL == /*_.VALDATA___V724*/ curfptr[723]) /*_.VALDATA___V724*/ curfptr[723] = (void*) sy_CLASS_OBJPUTROUTCONST; } /*getnamedsym:OPRCONST_ROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPRCONST_ROUT = basilysgc_named_symbol("OPRCONST_ROUT", BASILYS_GET); if (sy_OPRCONST_ROUT && NULL == /*_.VALDATA___V736*/ curfptr[735]) /*_.VALDATA___V736*/ curfptr[735] = (void*) sy_OPRCONST_ROUT; } /*getnamedsym:OPRCONST_OFF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPRCONST_OFF = basilysgc_named_symbol("OPRCONST_OFF", BASILYS_GET); if (sy_OPRCONST_OFF && NULL == /*_.VALDATA___V738*/ curfptr[737]) /*_.VALDATA___V738*/ curfptr[737] = (void*) sy_OPRCONST_OFF; } /*getnamedsym:OPRCONST_CVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPRCONST_CVAL = basilysgc_named_symbol("OPRCONST_CVAL", BASILYS_GET); if (sy_OPRCONST_CVAL && NULL == /*_.VALDATA___V740*/ curfptr[739]) /*_.VALDATA___V740*/ curfptr[739] = (void*) sy_OPRCONST_CVAL; } /*getnamedsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTROUTCONSTNOTNULL = basilysgc_named_symbol("CLASS_OBJPUTROUTCONSTNOTNULL", BASILYS_GET); if (sy_CLASS_OBJPUTROUTCONSTNOTNULL && NULL == /*_.VALDATA___V742*/ curfptr[741]) /*_.VALDATA___V742*/ curfptr[741] = (void*) sy_CLASS_OBJPUTROUTCONSTNOTNULL; } /*getnamedsym:CLASS_OBJTOUCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJTOUCH = basilysgc_named_symbol("CLASS_OBJTOUCH", BASILYS_GET); if (sy_CLASS_OBJTOUCH && NULL == /*_.VALDATA___V748*/ curfptr[747]) /*_.VALDATA___V748*/ curfptr[747] = (void*) sy_CLASS_OBJTOUCH; } /*getnamedsym:OTOUCH_VAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OTOUCH_VAL = basilysgc_named_symbol("OTOUCH_VAL", BASILYS_GET); if (sy_OTOUCH_VAL && NULL == /*_.VALDATA___V758*/ curfptr[757]) /*_.VALDATA___V758*/ curfptr[757] = (void*) sy_OTOUCH_VAL; } /*getnamedsym:OTOUCH_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OTOUCH_COMMENT = basilysgc_named_symbol("OTOUCH_COMMENT", BASILYS_GET); if (sy_OTOUCH_COMMENT && NULL == /*_.VALDATA___V760*/ curfptr[759]) /*_.VALDATA___V760*/ curfptr[759] = (void*) sy_OTOUCH_COMMENT; } /*getnamedsym:CLASS_OBJSETPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJSETPREDEF = basilysgc_named_symbol("CLASS_OBJSETPREDEF", BASILYS_GET); if (sy_CLASS_OBJSETPREDEF && NULL == /*_.VALDATA___V762*/ curfptr[761]) /*_.VALDATA___V762*/ curfptr[761] = (void*) sy_CLASS_OBJSETPREDEF; } /*getnamedsym:OSPR_OBJECT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OSPR_OBJECT = basilysgc_named_symbol("OSPR_OBJECT", BASILYS_GET); if (sy_OSPR_OBJECT && NULL == /*_.VALDATA___V772*/ curfptr[771]) /*_.VALDATA___V772*/ curfptr[771] = (void*) sy_OSPR_OBJECT; } /*getnamedsym:OSPR_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OSPR_PREDEF = basilysgc_named_symbol("OSPR_PREDEF", BASILYS_GET); if (sy_OSPR_PREDEF && NULL == /*_.VALDATA___V774*/ curfptr[773]) /*_.VALDATA___V774*/ curfptr[773] = (void*) sy_OSPR_PREDEF; } /*getnamedsym:CLASS_ROUTINEOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ROUTINEOBJ = basilysgc_named_symbol("CLASS_ROUTINEOBJ", BASILYS_GET); if (sy_CLASS_ROUTINEOBJ && NULL == /*_.VALDATA___V776*/ curfptr[775]) /*_.VALDATA___V776*/ curfptr[775] = (void*) sy_CLASS_ROUTINEOBJ; } /*getnamedsym:CLASS_NAMED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NAMED = basilysgc_named_symbol("CLASS_NAMED", BASILYS_GET); if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V778*/ curfptr[777]) /*_.VALDATA___V778*/ curfptr[777] = (void*) sy_CLASS_NAMED; } /*getnamedsym:OBROUT_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_PROC = basilysgc_named_symbol("OBROUT_PROC", BASILYS_GET); if (sy_OBROUT_PROC && NULL == /*_.VALDATA___V798*/ curfptr[797]) /*_.VALDATA___V798*/ curfptr[797] = (void*) sy_OBROUT_PROC; } /*getnamedsym:OBROUT_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_BODY = basilysgc_named_symbol("OBROUT_BODY", BASILYS_GET); if (sy_OBROUT_BODY && NULL == /*_.VALDATA___V800*/ curfptr[799]) /*_.VALDATA___V800*/ curfptr[799] = (void*) sy_OBROUT_BODY; } /*getnamedsym:OBROUT_NBVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_NBVAL = basilysgc_named_symbol("OBROUT_NBVAL", BASILYS_GET); if (sy_OBROUT_NBVAL && NULL == /*_.VALDATA___V802*/ curfptr[801]) /*_.VALDATA___V802*/ curfptr[801] = (void*) sy_OBROUT_NBVAL; } /*getnamedsym:OBROUT_NBLONG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_NBLONG = basilysgc_named_symbol("OBROUT_NBLONG", BASILYS_GET); if (sy_OBROUT_NBLONG && NULL == /*_.VALDATA___V804*/ curfptr[803]) /*_.VALDATA___V804*/ curfptr[803] = (void*) sy_OBROUT_NBLONG; } /*getnamedsym:OBROUT_OTHERS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_OTHERS = basilysgc_named_symbol("OBROUT_OTHERS", BASILYS_GET); if (sy_OBROUT_OTHERS && NULL == /*_.VALDATA___V806*/ curfptr[805]) /*_.VALDATA___V806*/ curfptr[805] = (void*) sy_OBROUT_OTHERS; } /*getnamedsym:OBROUT_RETVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_RETVAL = basilysgc_named_symbol("OBROUT_RETVAL", BASILYS_GET); if (sy_OBROUT_RETVAL && NULL == /*_.VALDATA___V808*/ curfptr[807]) /*_.VALDATA___V808*/ curfptr[807] = (void*) sy_OBROUT_RETVAL; } /*getnamedsym:OBROUT_CNTCITER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBROUT_CNTCITER = basilysgc_named_symbol("OBROUT_CNTCITER", BASILYS_GET); if (sy_OBROUT_CNTCITER && NULL == /*_.VALDATA___V810*/ curfptr[809]) /*_.VALDATA___V810*/ curfptr[809] = (void*) sy_OBROUT_CNTCITER; } /*getnamedsym:CLASS_PROCROUTINEOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PROCROUTINEOBJ = basilysgc_named_symbol("CLASS_PROCROUTINEOBJ", BASILYS_GET); if (sy_CLASS_PROCROUTINEOBJ && NULL == /*_.VALDATA___V812*/ curfptr[811]) /*_.VALDATA___V812*/ curfptr[811] = (void*) sy_CLASS_PROCROUTINEOBJ; } /*getnamedsym:OPROUT_GETARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPROUT_GETARGS = basilysgc_named_symbol("OPROUT_GETARGS", BASILYS_GET); if (sy_OPROUT_GETARGS && NULL == /*_.VALDATA___V824*/ curfptr[823]) /*_.VALDATA___V824*/ curfptr[823] = (void*) sy_OPROUT_GETARGS; } /*getnamedsym:OPROUT_LOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPROUT_LOC = basilysgc_named_symbol("OPROUT_LOC", BASILYS_GET); if (sy_OPROUT_LOC && NULL == /*_.VALDATA___V826*/ curfptr[825]) /*_.VALDATA___V826*/ curfptr[825] = (void*) sy_OPROUT_LOC; } /*getnamedsym:OPROUT_FUNAM*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OPROUT_FUNAM = basilysgc_named_symbol("OPROUT_FUNAM", BASILYS_GET); if (sy_OPROUT_FUNAM && NULL == /*_.VALDATA___V828*/ curfptr[827]) /*_.VALDATA___V828*/ curfptr[827] = (void*) sy_OPROUT_FUNAM; } /*getnamedsym:CLASS_INITIALROUTINEOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_INITIALROUTINEOBJ = basilysgc_named_symbol("CLASS_INITIALROUTINEOBJ", BASILYS_GET); if (sy_CLASS_INITIALROUTINEOBJ && NULL == /*_.VALDATA___V830*/ curfptr[829]) /*_.VALDATA___V830*/ curfptr[829] = (void*) sy_CLASS_INITIALROUTINEOBJ; } /*getnamedsym:OIROUT_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIROUT_DATA = basilysgc_named_symbol("OIROUT_DATA", BASILYS_GET); if (sy_OIROUT_DATA && NULL == /*_.VALDATA___V842*/ curfptr[841]) /*_.VALDATA___V842*/ curfptr[841] = (void*) sy_OIROUT_DATA; } /*getnamedsym:OIROUT_PROLOG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIROUT_PROLOG = basilysgc_named_symbol("OIROUT_PROLOG", BASILYS_GET); if (sy_OIROUT_PROLOG && NULL == /*_.VALDATA___V844*/ curfptr[843]) /*_.VALDATA___V844*/ curfptr[843] = (void*) sy_OIROUT_PROLOG; } /*getnamedsym:OIROUT_FILL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OIROUT_FILL = basilysgc_named_symbol("OIROUT_FILL", BASILYS_GET); if (sy_OIROUT_FILL && NULL == /*_.VALDATA___V846*/ curfptr[845]) /*_.VALDATA___V846*/ curfptr[845] = (void*) sy_OIROUT_FILL; } /*getnamedsym:OUTPUT_C_DECLINIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_DECLINIT = basilysgc_named_symbol("OUTPUT_C_DECLINIT", BASILYS_GET); if (sy_OUTPUT_C_DECLINIT && NULL == /*_.VALDATA___V848*/ curfptr[847]) /*_.VALDATA___V848*/ curfptr[847] = (void*) sy_OUTPUT_C_DECLINIT; } /*getnamedsym:CLASS_SELECTOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SELECTOR = basilysgc_named_symbol("CLASS_SELECTOR", BASILYS_GET); if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V850*/ curfptr[849]) /*_.VALDATA___V850*/ curfptr[849] = (void*) sy_CLASS_SELECTOR; } /*getnamedsym:PUT_OBJDEST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PUT_OBJDEST = basilysgc_named_symbol("PUT_OBJDEST", BASILYS_GET); if (sy_PUT_OBJDEST && NULL == /*_.VALDATA___V854*/ curfptr[853]) /*_.VALDATA___V854*/ curfptr[853] = (void*) sy_PUT_OBJDEST; } /*getnamedsym:OUTPUT_C_CODE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_CODE = basilysgc_named_symbol("OUTPUT_C_CODE", BASILYS_GET); if (sy_OUTPUT_C_CODE && NULL == /*_.VALDATA___V858*/ curfptr[857]) /*_.VALDATA___V858*/ curfptr[857] = (void*) sy_OUTPUT_C_CODE; } /*getnamedsym:OUTPUT_C_INITFILL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_INITFILL = basilysgc_named_symbol("OUTPUT_C_INITFILL", BASILYS_GET); if (sy_OUTPUT_C_INITFILL && NULL == /*_.VALDATA___V862*/ curfptr[861]) /*_.VALDATA___V862*/ curfptr[861] = (void*) sy_OUTPUT_C_INITFILL; } /*getnamedsym:OUTPUT_C_INITPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_INITPREDEF = basilysgc_named_symbol("OUTPUT_C_INITPREDEF", BASILYS_GET); if (sy_OUTPUT_C_INITPREDEF && NULL == /*_.VALDATA___V866*/ curfptr[865]) /*_.VALDATA___V866*/ curfptr[865] = (void*) sy_OUTPUT_C_INITPREDEF; } /*getnamedsym:DEBUG_MSG_FUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DEBUG_MSG_FUN = basilysgc_named_symbol("DEBUG_MSG_FUN", BASILYS_GET); if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V872*/ curfptr[871]) /*_.VALDATA___V872*/ curfptr[871] = (void*) sy_DEBUG_MSG_FUN; } /*getnamedsym:DISPLAYDEBUGMSG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISPLAYDEBUGMSG = basilysgc_named_symbol("DISPLAYDEBUGMSG", BASILYS_GET); if (sy_DISPLAYDEBUGMSG && NULL == /*_.VALDATA___V874*/ curfptr[873]) /*_.VALDATA___V874*/ curfptr[873] = (void*) sy_DISPLAYDEBUGMSG; } /*getnamedsym:INSTALL_METHOD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INSTALL_METHOD = basilysgc_named_symbol("INSTALL_METHOD", BASILYS_GET); if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V876*/ curfptr[875]) /*_.VALDATA___V876*/ curfptr[875] = (void*) sy_INSTALL_METHOD; } /*getnamedsym:CLASS_NREP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP = basilysgc_named_symbol("CLASS_NREP", BASILYS_GET); if (sy_CLASS_NREP && NULL == /*_.VALDATA___V878*/ curfptr[877]) /*_.VALDATA___V878*/ curfptr[877] = (void*) sy_CLASS_NREP; } /*getnamedsym:COMPILE_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE_OBJ = basilysgc_named_symbol("COMPILE_OBJ", BASILYS_GET); if (sy_COMPILE_OBJ && NULL == /*_.VALDATA___V880*/ curfptr[879]) /*_.VALDATA___V880*/ curfptr[879] = (void*) sy_COMPILE_OBJ; } /*getnamedsym:DISCR_ANYRECV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_ANYRECV = basilysgc_named_symbol("DISCR_ANYRECV", BASILYS_GET); if (sy_DISCR_ANYRECV && NULL == /*_.VALDATA___V886*/ curfptr[885]) /*_.VALDATA___V886*/ curfptr[885] = (void*) sy_DISCR_ANYRECV; } /*getnamedsym:GET_CTYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GET_CTYPE = basilysgc_named_symbol("GET_CTYPE", BASILYS_GET); if (sy_GET_CTYPE && NULL == /*_.VALDATA___V890*/ curfptr[889]) /*_.VALDATA___V890*/ curfptr[889] = (void*) sy_GET_CTYPE; } /*getnamedsym:CTYPE_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_VALUE = basilysgc_named_symbol("CTYPE_VALUE", BASILYS_GET); if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V894*/ curfptr[893]) /*_.VALDATA___V894*/ curfptr[893] = (void*) sy_CTYPE_VALUE; } /*getnamedsym:DBGOUT_NAMEDOBJECT_METHOD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DBGOUT_NAMEDOBJECT_METHOD = basilysgc_named_symbol("DBGOUT_NAMEDOBJECT_METHOD", BASILYS_GET); if (sy_DBGOUT_NAMEDOBJECT_METHOD && NULL == /*_.VALDATA___V898*/ curfptr[897]) /*_.VALDATA___V898*/ curfptr[897] = (void*) sy_DBGOUT_NAMEDOBJECT_METHOD; } /*getnamedsym:DBG_OUTPUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DBG_OUTPUT = basilysgc_named_symbol("DBG_OUTPUT", BASILYS_GET); if (sy_DBG_OUTPUT && NULL == /*_.VALDATA___V900*/ curfptr[899]) /*_.VALDATA___V900*/ curfptr[899] = (void*) sy_DBG_OUTPUT; } /*getnamedsym:DISCR_LIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_LIST = basilysgc_named_symbol("DISCR_LIST", BASILYS_GET); if (sy_DISCR_LIST && NULL == /*_.VALDATA___V904*/ curfptr[903]) /*_.VALDATA___V904*/ curfptr[903] = (void*) sy_DISCR_LIST; } /*getnamedsym:CLASS_NREP_ROUTPROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_ROUTPROC = basilysgc_named_symbol("CLASS_NREP_ROUTPROC", BASILYS_GET); if (sy_CLASS_NREP_ROUTPROC && NULL == /*_.VALDATA___V920*/ curfptr[919]) /*_.VALDATA___V920*/ curfptr[919] = (void*) sy_CLASS_NREP_ROUTPROC; } /*getnamedsym:CLASS_MODULCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_MODULCONTEXT = basilysgc_named_symbol("CLASS_MODULCONTEXT", BASILYS_GET); if (sy_CLASS_MODULCONTEXT && NULL == /*_.VALDATA___V922*/ curfptr[921]) /*_.VALDATA___V922*/ curfptr[921] = (void*) sy_CLASS_MODULCONTEXT; } /*getnamedsym:DISCR_STRBUF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_STRBUF = basilysgc_named_symbol("DISCR_STRBUF", BASILYS_GET); if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V924*/ curfptr[923]) /*_.VALDATA___V924*/ curfptr[923] = (void*) sy_DISCR_STRBUF; } /*getnamedsym:DISCR_STRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_STRING = basilysgc_named_symbol("DISCR_STRING", BASILYS_GET); if (sy_DISCR_STRING && NULL == /*_.VALDATA___V926*/ curfptr[925]) /*_.VALDATA___V926*/ curfptr[925] = (void*) sy_DISCR_STRING; } /*getnamedsym:DISCR_INTEGER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_INTEGER = basilysgc_named_symbol("DISCR_INTEGER", BASILYS_GET); if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V928*/ curfptr[927]) /*_.VALDATA___V928*/ curfptr[927] = (void*) sy_DISCR_INTEGER; } /*getnamedsym:DISCR_MAPOBJECTS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MAPOBJECTS = basilysgc_named_symbol("DISCR_MAPOBJECTS", BASILYS_GET); if (sy_DISCR_MAPOBJECTS && NULL == /*_.VALDATA___V930*/ curfptr[929]) /*_.VALDATA___V930*/ curfptr[929] = (void*) sy_DISCR_MAPOBJECTS; } /*getnamedsym:CLASS_GENERCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_GENERCONTEXT = basilysgc_named_symbol("CLASS_GENERCONTEXT", BASILYS_GET); if (sy_CLASS_GENERCONTEXT && NULL == /*_.VALDATA___V932*/ curfptr[931]) /*_.VALDATA___V932*/ curfptr[931] = (void*) sy_CLASS_GENERCONTEXT; } /*getnamedsym:_RETVAL_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_RETVAL_ = basilysgc_named_symbol("_RETVAL_", BASILYS_GET); if (sy_RETVAL_ && NULL == /*_.VALDATA___V911*/ curfptr[910]) /*_.VALDATA___V911*/ curfptr[910] = (void*) sy_RETVAL_; } /*getnamedsym:MULTIPLE_MAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_MAP = basilysgc_named_symbol("MULTIPLE_MAP", BASILYS_GET); if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V934*/ curfptr[933]) /*_.VALDATA___V934*/ curfptr[933] = (void*) sy_MULTIPLE_MAP; } /*getnamedsym:CLASS_FORMAL_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FORMAL_BINDING = basilysgc_named_symbol("CLASS_FORMAL_BINDING", BASILYS_GET); if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V936*/ curfptr[935]) /*_.VALDATA___V936*/ curfptr[935] = (void*) sy_CLASS_FORMAL_BINDING; } /*getnamedsym:CTYPE_LONG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_LONG = basilysgc_named_symbol("CTYPE_LONG", BASILYS_GET); if (sy_CTYPE_LONG && NULL == /*_.VALDATA___V938*/ curfptr[937]) /*_.VALDATA___V938*/ curfptr[937] = (void*) sy_CTYPE_LONG; } /*getnamedsym:LIST_EVERY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_EVERY = basilysgc_named_symbol("LIST_EVERY", BASILYS_GET); if (sy_LIST_EVERY && NULL == /*_.VALDATA___V940*/ curfptr[939]) /*_.VALDATA___V940*/ curfptr[939] = (void*) sy_LIST_EVERY; } /*getnamedsym:INITIALSYSTEMDATA_OBJPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INITIALSYSTEMDATA_OBJPREDEF = basilysgc_named_symbol("INITIALSYSTEMDATA_OBJPREDEF", BASILYS_GET); if (sy_INITIALSYSTEMDATA_OBJPREDEF && NULL == /*_.VALDATA___V942*/ curfptr[941]) /*_.VALDATA___V942*/ curfptr[941] = (void*) sy_INITIALSYSTEMDATA_OBJPREDEF; } /*getnamedsym:INITIAL_SYSTEM_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INITIAL_SYSTEM_DATA = basilysgc_named_symbol("INITIAL_SYSTEM_DATA", BASILYS_GET); if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V945*/ curfptr[944]) /*_.VALDATA___V945*/ curfptr[944] = (void*) sy_INITIAL_SYSTEM_DATA; } /*getnamedsym:CLASS_NREP_INITPROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_INITPROC = basilysgc_named_symbol("CLASS_NREP_INITPROC", BASILYS_GET); if (sy_CLASS_NREP_INITPROC && NULL == /*_.VALDATA___V973*/ curfptr[972]) /*_.VALDATA___V973*/ curfptr[972] = (void*) sy_CLASS_NREP_INITPROC; } /*getnamedsym:CLASS_INITGENERCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_INITGENERCONTEXT = basilysgc_named_symbol("CLASS_INITGENERCONTEXT", BASILYS_GET); if (sy_CLASS_INITGENERCONTEXT && NULL == /*_.VALDATA___V975*/ curfptr[974]) /*_.VALDATA___V975*/ curfptr[974] = (void*) sy_CLASS_INITGENERCONTEXT; } /*getnamedsym:LIST_MAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_MAP = basilysgc_named_symbol("LIST_MAP", BASILYS_GET); if (sy_LIST_MAP && NULL == /*_.VALDATA___V977*/ curfptr[976]) /*_.VALDATA___V977*/ curfptr[976] = (void*) sy_LIST_MAP; } /*getnamedsym:_RETINIT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_RETINIT_ = basilysgc_named_symbol("_RETINIT_", BASILYS_GET); if (sy_RETINIT_ && NULL == /*_.VALDATA___V953*/ curfptr[952]) /*_.VALDATA___V953*/ curfptr[952] = (void*) sy_RETINIT_; } /*getnamedsym:_CONTENV_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CONTENV_ = basilysgc_named_symbol("_CONTENV_", BASILYS_GET); if (sy_CONTENV_ && NULL == /*_.VALDATA___V955*/ curfptr[954]) /*_.VALDATA___V955*/ curfptr[954] = (void*) sy_CONTENV_; } /*getnamedsym:_FRESHENV_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FRESHENV_ = basilysgc_named_symbol("_FRESHENV_", BASILYS_GET); if (sy_FRESHENV_ && NULL == /*_.VALDATA___V957*/ curfptr[956]) /*_.VALDATA___V957*/ curfptr[956] = (void*) sy_FRESHENV_; } /*getnamedsym:_PREVENV_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PREVENV_ = basilysgc_named_symbol("_PREVENV_", BASILYS_GET); if (sy_PREVENV_ && NULL == /*_.VALDATA___V959*/ curfptr[958]) /*_.VALDATA___V959*/ curfptr[958] = (void*) sy_PREVENV_; } /*getnamedsym:_VALEXPORT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALEXPORT_ = basilysgc_named_symbol("_VALEXPORT_", BASILYS_GET); if (sy_VALEXPORT_ && NULL == /*_.VALDATA___V961*/ curfptr[960]) /*_.VALDATA___V961*/ curfptr[960] = (void*) sy_VALEXPORT_; } /*getnamedsym:_VALIMPORT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALIMPORT_ = basilysgc_named_symbol("_VALIMPORT_", BASILYS_GET); if (sy_VALIMPORT_ && NULL == /*_.VALDATA___V963*/ curfptr[962]) /*_.VALDATA___V963*/ curfptr[962] = (void*) sy_VALIMPORT_; } /*getnamedsym:LIST1*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST1 = basilysgc_named_symbol("LIST1", BASILYS_GET); if (sy_LIST1 && NULL == /*_.VALDATA___V979*/ curfptr[978]) /*_.VALDATA___V979*/ curfptr[978] = (void*) sy_LIST1; } /*getnamedsym:SYSDATA_CONT_FRESH_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SYSDATA_CONT_FRESH_ENV = basilysgc_named_symbol("SYSDATA_CONT_FRESH_ENV", BASILYS_GET); if (sy_SYSDATA_CONT_FRESH_ENV && NULL == /*_.VALDATA___V981*/ curfptr[980]) /*_.VALDATA___V981*/ curfptr[980] = (void*) sy_SYSDATA_CONT_FRESH_ENV; } /*getnamedsym:DISCR_MULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MULTIPLE = basilysgc_named_symbol("DISCR_MULTIPLE", BASILYS_GET); if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V983*/ curfptr[982]) /*_.VALDATA___V983*/ curfptr[982] = (void*) sy_DISCR_MULTIPLE; } /*getnamedsym:DISCR_VERBATIMSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_VERBATIMSTRING = basilysgc_named_symbol("DISCR_VERBATIMSTRING", BASILYS_GET); if (sy_DISCR_VERBATIMSTRING && NULL == /*_.VALDATA___V985*/ curfptr[984]) /*_.VALDATA___V985*/ curfptr[984] = (void*) sy_DISCR_VERBATIMSTRING; } /*getnamedsym:CLASS_NREP_IMPORTEDVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_IMPORTEDVAL = basilysgc_named_symbol("CLASS_NREP_IMPORTEDVAL", BASILYS_GET); if (sy_CLASS_NREP_IMPORTEDVAL && NULL == /*_.VALDATA___V987*/ curfptr[986]) /*_.VALDATA___V987*/ curfptr[986] = (void*) sy_CLASS_NREP_IMPORTEDVAL; } /*getnamedsym:LIST_TO_MULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_TO_MULTIPLE = basilysgc_named_symbol("LIST_TO_MULTIPLE", BASILYS_GET); if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V989*/ curfptr[988]) /*_.VALDATA___V989*/ curfptr[988] = (void*) sy_LIST_TO_MULTIPLE; } /*getnamedsym:CLASS_NREP_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATA = basilysgc_named_symbol("CLASS_NREP_DATA", BASILYS_GET); if (sy_CLASS_NREP_DATA && NULL == /*_.VALDATA___V991*/ curfptr[990]) /*_.VALDATA___V991*/ curfptr[990] = (void*) sy_CLASS_NREP_DATA; } /*getnamedsym:MULTIPLE_EVERY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_EVERY = basilysgc_named_symbol("MULTIPLE_EVERY", BASILYS_GET); if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V993*/ curfptr[992]) /*_.VALDATA___V993*/ curfptr[992] = (void*) sy_MULTIPLE_EVERY; } /*getnamedsym:CLASS_NREP_DATAKEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATAKEYWORD = basilysgc_named_symbol("CLASS_NREP_DATAKEYWORD", BASILYS_GET); if (sy_CLASS_NREP_DATAKEYWORD && NULL == /*_.VALDATA___V995*/ curfptr[994]) /*_.VALDATA___V995*/ curfptr[994] = (void*) sy_CLASS_NREP_DATAKEYWORD; } /*getnamedsym:CLASS_NREP_DATASYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATASYMBOL = basilysgc_named_symbol("CLASS_NREP_DATASYMBOL", BASILYS_GET); if (sy_CLASS_NREP_DATASYMBOL && NULL == /*_.VALDATA___V997*/ curfptr[996]) /*_.VALDATA___V997*/ curfptr[996] = (void*) sy_CLASS_NREP_DATASYMBOL; } /*getnamedsym:SYSDATA_VALUE_IMPORTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SYSDATA_VALUE_IMPORTER = basilysgc_named_symbol("SYSDATA_VALUE_IMPORTER", BASILYS_GET); if (sy_SYSDATA_VALUE_IMPORTER && NULL == /*_.VALDATA___V999*/ curfptr[998]) /*_.VALDATA___V999*/ curfptr[998] = (void*) sy_SYSDATA_VALUE_IMPORTER; } /*getnamedsym:COMPILE2OBJ_INITPROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE2OBJ_INITPROC = basilysgc_named_symbol("COMPILE2OBJ_INITPROC", BASILYS_GET); if (sy_COMPILE2OBJ_INITPROC && NULL == /*_.VALDATA___V1001*/ curfptr[1000]) /*_.VALDATA___V1001*/ curfptr[1000] = (void*) sy_COMPILE2OBJ_INITPROC; } /*getnamedsym:COMPILE2OBJ_PROCEDURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE2OBJ_PROCEDURE = basilysgc_named_symbol("COMPILE2OBJ_PROCEDURE", BASILYS_GET); if (sy_COMPILE2OBJ_PROCEDURE && NULL == /*_.VALDATA___V1003*/ curfptr[1002]) /*_.VALDATA___V1003*/ curfptr[1002] = (void*) sy_COMPILE2OBJ_PROCEDURE; } /*getnamedsym:CLASS_CTYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CTYPE = basilysgc_named_symbol("CLASS_CTYPE", BASILYS_GET); if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V1005*/ curfptr[1004]) /*_.VALDATA___V1005*/ curfptr[1004] = (void*) sy_CLASS_CTYPE; } /*getnamedsym:CTYPE_VOID*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_VOID = basilysgc_named_symbol("CTYPE_VOID", BASILYS_GET); if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V1007*/ curfptr[1006]) /*_.VALDATA___V1007*/ curfptr[1006] = (void*) sy_CTYPE_VOID; } /*getnamedsym:CLASS_ANY_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ANY_BINDING = basilysgc_named_symbol("CLASS_ANY_BINDING", BASILYS_GET); if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V1013*/ curfptr[1012]) /*_.VALDATA___V1013*/ curfptr[1012] = (void*) sy_CLASS_ANY_BINDING; } /*getnamedsym:CLASS_LET_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_LET_BINDING = basilysgc_named_symbol("CLASS_LET_BINDING", BASILYS_GET); if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1015*/ curfptr[1014]) /*_.VALDATA___V1015*/ curfptr[1014] = (void*) sy_CLASS_LET_BINDING; } /*getnamedsym:CLASS_NREP_CHUNK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_CHUNK = basilysgc_named_symbol("CLASS_NREP_CHUNK", BASILYS_GET); if (sy_CLASS_NREP_CHUNK && NULL == /*_.VALDATA___V1020*/ curfptr[1019]) /*_.VALDATA___V1020*/ curfptr[1019] = (void*) sy_CLASS_NREP_CHUNK; } /*getnamedsym:CLASS_NREP_TYPEXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_TYPEXPR = basilysgc_named_symbol("CLASS_NREP_TYPEXPR", BASILYS_GET); if (sy_CLASS_NREP_TYPEXPR && NULL == /*_.VALDATA___V1024*/ curfptr[1023]) /*_.VALDATA___V1024*/ curfptr[1023] = (void*) sy_CLASS_NREP_TYPEXPR; } /*getnamedsym:CLASS_NREP_NIL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_NIL = basilysgc_named_symbol("CLASS_NREP_NIL", BASILYS_GET); if (sy_CLASS_NREP_NIL && NULL == /*_.VALDATA___V1028*/ curfptr[1027]) /*_.VALDATA___V1028*/ curfptr[1027] = (void*) sy_CLASS_NREP_NIL; } /*getnamedsym:CLASS_NREP_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_COMMENT = basilysgc_named_symbol("CLASS_NREP_COMMENT", BASILYS_GET); if (sy_CLASS_NREP_COMMENT && NULL == /*_.VALDATA___V1032*/ curfptr[1031]) /*_.VALDATA___V1032*/ curfptr[1031] = (void*) sy_CLASS_NREP_COMMENT; } /*getnamedsym:CLASS_NREP_LOCSYMOCC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_LOCSYMOCC = basilysgc_named_symbol("CLASS_NREP_LOCSYMOCC", BASILYS_GET); if (sy_CLASS_NREP_LOCSYMOCC && NULL == /*_.VALDATA___V1036*/ curfptr[1035]) /*_.VALDATA___V1036*/ curfptr[1035] = (void*) sy_CLASS_NREP_LOCSYMOCC; } /*getnamedsym:CLASS_NREP_CLOSEDOCC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_CLOSEDOCC = basilysgc_named_symbol("CLASS_NREP_CLOSEDOCC", BASILYS_GET); if (sy_CLASS_NREP_CLOSEDOCC && NULL == /*_.VALDATA___V1040*/ curfptr[1039]) /*_.VALDATA___V1040*/ curfptr[1039] = (void*) sy_CLASS_NREP_CLOSEDOCC; } /*getnamedsym:CLASS_NREP_CONSTOCC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_CONSTOCC = basilysgc_named_symbol("CLASS_NREP_CONSTOCC", BASILYS_GET); if (sy_CLASS_NREP_CONSTOCC && NULL == /*_.VALDATA___V1044*/ curfptr[1043]) /*_.VALDATA___V1044*/ curfptr[1043] = (void*) sy_CLASS_NREP_CONSTOCC; } /*getnamedsym:CLASS_SYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SYMBOL = basilysgc_named_symbol("CLASS_SYMBOL", BASILYS_GET); if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V1048*/ curfptr[1047]) /*_.VALDATA___V1048*/ curfptr[1047] = (void*) sy_CLASS_SYMBOL; } /*getnamedsym:CLASS_NREP_QUASICONSTANT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_QUASICONSTANT = basilysgc_named_symbol("CLASS_NREP_QUASICONSTANT", BASILYS_GET); if (sy_CLASS_NREP_QUASICONSTANT && NULL == /*_.VALDATA___V1052*/ curfptr[1051]) /*_.VALDATA___V1052*/ curfptr[1051] = (void*) sy_CLASS_NREP_QUASICONSTANT; } /*getnamedsym:CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); if (sy_CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1056*/ curfptr[1055]) /*_.VALDATA___V1056*/ curfptr[1055] = (void*) sy_CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:CLASS_NREP_FOREVER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_FOREVER = basilysgc_named_symbol("CLASS_NREP_FOREVER", BASILYS_GET); if (sy_CLASS_NREP_FOREVER && NULL == /*_.VALDATA___V1061*/ curfptr[1060]) /*_.VALDATA___V1061*/ curfptr[1060] = (void*) sy_CLASS_NREP_FOREVER; } /*getnamedsym:CLASS_LABEL_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_LABEL_BINDING = basilysgc_named_symbol("CLASS_LABEL_BINDING", BASILYS_GET); if (sy_CLASS_LABEL_BINDING && NULL == /*_.VALDATA___V1063*/ curfptr[1062]) /*_.VALDATA___V1063*/ curfptr[1062] = (void*) sy_CLASS_LABEL_BINDING; } /*getnamedsym:CLASS_CLONEDSYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CLONEDSYMBOL = basilysgc_named_symbol("CLASS_CLONEDSYMBOL", BASILYS_GET); if (sy_CLASS_CLONEDSYMBOL && NULL == /*_.VALDATA___V1065*/ curfptr[1064]) /*_.VALDATA___V1065*/ curfptr[1064] = (void*) sy_CLASS_CLONEDSYMBOL; } /*getnamedsym:CLASS_NREP_EXIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_EXIT = basilysgc_named_symbol("CLASS_NREP_EXIT", BASILYS_GET); if (sy_CLASS_NREP_EXIT && NULL == /*_.VALDATA___V1069*/ curfptr[1068]) /*_.VALDATA___V1069*/ curfptr[1068] = (void*) sy_CLASS_NREP_EXIT; } /*getnamedsym:CLASS_NREP_LET*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_LET = basilysgc_named_symbol("CLASS_NREP_LET", BASILYS_GET); if (sy_CLASS_NREP_LET && NULL == /*_.VALDATA___V1078*/ curfptr[1077]) /*_.VALDATA___V1078*/ curfptr[1077] = (void*) sy_CLASS_NREP_LET; } /*getnamedsym:CLASS_NORMLET_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMLET_BINDING = basilysgc_named_symbol("CLASS_NORMLET_BINDING", BASILYS_GET); if (sy_CLASS_NORMLET_BINDING && NULL == /*_.VALDATA___V1080*/ curfptr[1079]) /*_.VALDATA___V1080*/ curfptr[1079] = (void*) sy_CLASS_NORMLET_BINDING; } /*getnamedsym:CLASS_SEXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SEXPR = basilysgc_named_symbol("CLASS_SEXPR", BASILYS_GET); if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V1082*/ curfptr[1081]) /*_.VALDATA___V1082*/ curfptr[1081] = (void*) sy_CLASS_SEXPR; } /*getnamedsym:CLASS_NREP_CITERATION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_CITERATION = basilysgc_named_symbol("CLASS_NREP_CITERATION", BASILYS_GET); if (sy_CLASS_NREP_CITERATION && NULL == /*_.VALDATA___V1091*/ curfptr[1090]) /*_.VALDATA___V1091*/ curfptr[1090] = (void*) sy_CLASS_NREP_CITERATION; } /*getnamedsym:CLASS_CITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CITERATOR = basilysgc_named_symbol("CLASS_CITERATOR", BASILYS_GET); if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V1093*/ curfptr[1092]) /*_.VALDATA___V1093*/ curfptr[1092] = (void*) sy_CLASS_CITERATOR; } /*getnamedsym:CLASS_NREP_SETQ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_SETQ = basilysgc_named_symbol("CLASS_NREP_SETQ", BASILYS_GET); if (sy_CLASS_NREP_SETQ && NULL == /*_.VALDATA___V1097*/ curfptr[1096]) /*_.VALDATA___V1097*/ curfptr[1096] = (void*) sy_CLASS_NREP_SETQ; } /*getnamedsym:CLASS_NREP_PROGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_PROGN = basilysgc_named_symbol("CLASS_NREP_PROGN", BASILYS_GET); if (sy_CLASS_NREP_PROGN && NULL == /*_.VALDATA___V1102*/ curfptr[1101]) /*_.VALDATA___V1102*/ curfptr[1101] = (void*) sy_CLASS_NREP_PROGN; } /*getnamedsym:CLASS_NREP_MULTACC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_MULTACC = basilysgc_named_symbol("CLASS_NREP_MULTACC", BASILYS_GET); if (sy_CLASS_NREP_MULTACC && NULL == /*_.VALDATA___V1107*/ curfptr[1106]) /*_.VALDATA___V1107*/ curfptr[1106] = (void*) sy_CLASS_NREP_MULTACC; } /*getnamedsym:CLASS_NREP_FIELDACC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_FIELDACC = basilysgc_named_symbol("CLASS_NREP_FIELDACC", BASILYS_GET); if (sy_CLASS_NREP_FIELDACC && NULL == /*_.VALDATA___V1112*/ curfptr[1111]) /*_.VALDATA___V1112*/ curfptr[1111] = (void*) sy_CLASS_NREP_FIELDACC; } /*getnamedsym:CLASS_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FIELD = basilysgc_named_symbol("CLASS_FIELD", BASILYS_GET); if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V1114*/ curfptr[1113]) /*_.VALDATA___V1114*/ curfptr[1113] = (void*) sy_CLASS_FIELD; } /*getnamedsym:CLASS_NREP_DATAINSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATAINSTANCE = basilysgc_named_symbol("CLASS_NREP_DATAINSTANCE", BASILYS_GET); if (sy_CLASS_NREP_DATAINSTANCE && NULL == /*_.VALDATA___V1116*/ curfptr[1115]) /*_.VALDATA___V1116*/ curfptr[1115] = (void*) sy_CLASS_NREP_DATAINSTANCE; } /*getnamedsym:CLASS_NREP_UNSAFE_GET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_UNSAFE_GET_FIELD = basilysgc_named_symbol("CLASS_NREP_UNSAFE_GET_FIELD", BASILYS_GET); if (sy_CLASS_NREP_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1120*/ curfptr[1119]) /*_.VALDATA___V1120*/ curfptr[1119] = (void*) sy_CLASS_NREP_UNSAFE_GET_FIELD; } /*getnamedsym:CLASS_NREP_UNSAFE_PUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_UNSAFE_PUT_FIELDS = basilysgc_named_symbol("CLASS_NREP_UNSAFE_PUT_FIELDS", BASILYS_GET); if (sy_CLASS_NREP_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1125*/ curfptr[1124]) /*_.VALDATA___V1125*/ curfptr[1124] = (void*) sy_CLASS_NREP_UNSAFE_PUT_FIELDS; } /*getnamedsym:CLASS_NREP_FIELDASSIGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_FIELDASSIGN = basilysgc_named_symbol("CLASS_NREP_FIELDASSIGN", BASILYS_GET); if (sy_CLASS_NREP_FIELDASSIGN && NULL == /*_.VALDATA___V1127*/ curfptr[1126]) /*_.VALDATA___V1127*/ curfptr[1126] = (void*) sy_CLASS_NREP_FIELDASSIGN; } /*getnamedsym:CLASS_NREP_APPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_APPLY = basilysgc_named_symbol("CLASS_NREP_APPLY", BASILYS_GET); if (sy_CLASS_NREP_APPLY && NULL == /*_.VALDATA___V1132*/ curfptr[1131]) /*_.VALDATA___V1132*/ curfptr[1131] = (void*) sy_CLASS_NREP_APPLY; } /*getnamedsym:CLASS_NREP_MULTIAPPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_MULTIAPPLY = basilysgc_named_symbol("CLASS_NREP_MULTIAPPLY", BASILYS_GET); if (sy_CLASS_NREP_MULTIAPPLY && NULL == /*_.VALDATA___V1141*/ curfptr[1140]) /*_.VALDATA___V1141*/ curfptr[1140] = (void*) sy_CLASS_NREP_MULTIAPPLY; } /*getnamedsym:CLASS_NREP_MSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_MSEND = basilysgc_named_symbol("CLASS_NREP_MSEND", BASILYS_GET); if (sy_CLASS_NREP_MSEND && NULL == /*_.VALDATA___V1146*/ curfptr[1145]) /*_.VALDATA___V1146*/ curfptr[1145] = (void*) sy_CLASS_NREP_MSEND; } /*getnamedsym:CLASS_NREP_MULTIMSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_MULTIMSEND = basilysgc_named_symbol("CLASS_NREP_MULTIMSEND", BASILYS_GET); if (sy_CLASS_NREP_MULTIMSEND && NULL == /*_.VALDATA___V1155*/ curfptr[1154]) /*_.VALDATA___V1155*/ curfptr[1154] = (void*) sy_CLASS_NREP_MULTIMSEND; } /*getnamedsym:CLASS_VALUE_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_VALUE_BINDING = basilysgc_named_symbol("CLASS_VALUE_BINDING", BASILYS_GET); if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V1161*/ curfptr[1160]) /*_.VALDATA___V1161*/ curfptr[1160] = (void*) sy_CLASS_VALUE_BINDING; } /*getnamedsym:CLASS_FIXED_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FIXED_BINDING = basilysgc_named_symbol("CLASS_FIXED_BINDING", BASILYS_GET); if (sy_CLASS_FIXED_BINDING && NULL == /*_.VALDATA___V1165*/ curfptr[1164]) /*_.VALDATA___V1165*/ curfptr[1164] = (void*) sy_CLASS_FIXED_BINDING; } /*getnamedsym:DISCR_NULLRECV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_NULLRECV = basilysgc_named_symbol("DISCR_NULLRECV", BASILYS_GET); if (sy_DISCR_NULLRECV && NULL == /*_.VALDATA___V1173*/ curfptr[1172]) /*_.VALDATA___V1173*/ curfptr[1172] = (void*) sy_DISCR_NULLRECV; } /*getnamedsym:CLASS_NREP_IF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_IF = basilysgc_named_symbol("CLASS_NREP_IF", BASILYS_GET); if (sy_CLASS_NREP_IF && NULL == /*_.VALDATA___V1185*/ curfptr[1184]) /*_.VALDATA___V1185*/ curfptr[1184] = (void*) sy_CLASS_NREP_IF; } /*getnamedsym:CLASS_NREP_IFISA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_IFISA = basilysgc_named_symbol("CLASS_NREP_IFISA", BASILYS_GET); if (sy_CLASS_NREP_IFISA && NULL == /*_.VALDATA___V1189*/ curfptr[1188]) /*_.VALDATA___V1189*/ curfptr[1188] = (void*) sy_CLASS_NREP_IFISA; } /*getnamedsym:CLASS_NREP_CPPIF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_CPPIF = basilysgc_named_symbol("CLASS_NREP_CPPIF", BASILYS_GET); if (sy_CLASS_NREP_CPPIF && NULL == /*_.VALDATA___V1195*/ curfptr[1194]) /*_.VALDATA___V1195*/ curfptr[1194] = (void*) sy_CLASS_NREP_CPPIF; } /*getnamedsym:CLASS_NREP_RETURN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_RETURN = basilysgc_named_symbol("CLASS_NREP_RETURN", BASILYS_GET); if (sy_CLASS_NREP_RETURN && NULL == /*_.VALDATA___V1202*/ curfptr[1201]) /*_.VALDATA___V1202*/ curfptr[1201] = (void*) sy_CLASS_NREP_RETURN; } /*getnamedsym:DISCRCLOSURE_OBJPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCRCLOSURE_OBJPREDEF = basilysgc_named_symbol("DISCRCLOSURE_OBJPREDEF", BASILYS_GET); if (sy_DISCRCLOSURE_OBJPREDEF && NULL == /*_.VALDATA___V1205*/ curfptr[1204]) /*_.VALDATA___V1205*/ curfptr[1204] = (void*) sy_DISCRCLOSURE_OBJPREDEF; } /*getnamedsym:DISCR_CLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_CLOSURE = basilysgc_named_symbol("DISCR_CLOSURE", BASILYS_GET); if (sy_DISCR_CLOSURE && NULL == /*_.VALDATA___V1208*/ curfptr[1207]) /*_.VALDATA___V1208*/ curfptr[1207] = (void*) sy_DISCR_CLOSURE; } /*getnamedsym:CLASS_NREP_LAMBDA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_LAMBDA = basilysgc_named_symbol("CLASS_NREP_LAMBDA", BASILYS_GET); if (sy_CLASS_NREP_LAMBDA && NULL == /*_.VALDATA___V1213*/ curfptr[1212]) /*_.VALDATA___V1213*/ curfptr[1212] = (void*) sy_CLASS_NREP_LAMBDA; } /*getnamedsym:CLASS_NREP_MAKE_INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_MAKE_INSTANCE = basilysgc_named_symbol("CLASS_NREP_MAKE_INSTANCE", BASILYS_GET); if (sy_CLASS_NREP_MAKE_INSTANCE && NULL == /*_.VALDATA___V1220*/ curfptr[1219]) /*_.VALDATA___V1220*/ curfptr[1219] = (void*) sy_CLASS_NREP_MAKE_INSTANCE; } /*getnamedsym:CLASS_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CLASS = basilysgc_named_symbol("CLASS_CLASS", BASILYS_GET); if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V1222*/ curfptr[1221]) /*_.VALDATA___V1222*/ curfptr[1221] = (void*) sy_CLASS_CLASS; } /*getnamedsym:INST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INST = basilysgc_named_symbol("INST", BASILYS_GET); if (sy_INST && NULL == /*_.VALDATA___V1216*/ curfptr[1215]) /*_.VALDATA___V1216*/ curfptr[1215] = (void*) sy_INST; } /*getnamedsym:CLASS_NREP_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_PREDEF = basilysgc_named_symbol("CLASS_NREP_PREDEF", BASILYS_GET); if (sy_CLASS_NREP_PREDEF && NULL == /*_.VALDATA___V1228*/ curfptr[1227]) /*_.VALDATA___V1228*/ curfptr[1227] = (void*) sy_CLASS_NREP_PREDEF; } /*getnamedsym:_VALDATA_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALDATA_ = basilysgc_named_symbol("_VALDATA_", BASILYS_GET); if (sy_VALDATA_ && NULL == /*_.VALDATA___V1231*/ curfptr[1230]) /*_.VALDATA___V1231*/ curfptr[1230] = (void*) sy_VALDATA_; } /*getnamedsym:_VALUEDATA_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALUEDATA_ = basilysgc_named_symbol("_VALUEDATA_", BASILYS_GET); if (sy_VALUEDATA_ && NULL == /*_.VALDATA___V1233*/ curfptr[1232]) /*_.VALDATA___V1233*/ curfptr[1232] = (void*) sy_VALUEDATA_; } /*getnamedsym:CLASS_NREP_DATATUPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATATUPLE = basilysgc_named_symbol("CLASS_NREP_DATATUPLE", BASILYS_GET); if (sy_CLASS_NREP_DATATUPLE && NULL == /*_.VALDATA___V1254*/ curfptr[1253]) /*_.VALDATA___V1254*/ curfptr[1253] = (void*) sy_CLASS_NREP_DATATUPLE; } /*getnamedsym:_VALTUP_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALTUP_ = basilysgc_named_symbol("_VALTUP_", BASILYS_GET); if (sy_VALTUP_ && NULL == /*_.VALDATA___V1248*/ curfptr[1247]) /*_.VALDATA___V1248*/ curfptr[1247] = (void*) sy_VALTUP_; } /*getnamedsym:_INITUP_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INITUP_ = basilysgc_named_symbol("_INITUP_", BASILYS_GET); if (sy_INITUP_ && NULL == /*_.VALDATA___V1250*/ curfptr[1249]) /*_.VALDATA___V1250*/ curfptr[1249] = (void*) sy_INITUP_; } /*getnamedsym:CLASS_NREP_DATASTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATASTRING = basilysgc_named_symbol("CLASS_NREP_DATASTRING", BASILYS_GET); if (sy_CLASS_NREP_DATASTRING && NULL == /*_.VALDATA___V1260*/ curfptr[1259]) /*_.VALDATA___V1260*/ curfptr[1259] = (void*) sy_CLASS_NREP_DATASTRING; } /*getnamedsym:_VALSTR_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALSTR_ = basilysgc_named_symbol("_VALSTR_", BASILYS_GET); if (sy_VALSTR_ && NULL == /*_.VALDATA___V1257*/ curfptr[1256]) /*_.VALDATA___V1257*/ curfptr[1256] = (void*) sy_VALSTR_; } /*getnamedsym:CLASS_NREP_DATACLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATACLOSURE = basilysgc_named_symbol("CLASS_NREP_DATACLOSURE", BASILYS_GET); if (sy_CLASS_NREP_DATACLOSURE && NULL == /*_.VALDATA___V1269*/ curfptr[1268]) /*_.VALDATA___V1269*/ curfptr[1268] = (void*) sy_CLASS_NREP_DATACLOSURE; } /*getnamedsym:_VALCLO_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALCLO_ = basilysgc_named_symbol("_VALCLO_", BASILYS_GET); if (sy_VALCLO_ && NULL == /*_.VALDATA___V1263*/ curfptr[1262]) /*_.VALDATA___V1263*/ curfptr[1262] = (void*) sy_VALCLO_; } /*getnamedsym:_DATACLOSURE_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DATACLOSURE_ = basilysgc_named_symbol("_DATACLOSURE_", BASILYS_GET); if (sy_DATACLOSURE_ && NULL == /*_.VALDATA___V1265*/ curfptr[1264]) /*_.VALDATA___V1265*/ curfptr[1264] = (void*) sy_DATACLOSURE_; } /*getnamedsym:CLASS_NREP_DATAROUTINE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_DATAROUTINE = basilysgc_named_symbol("CLASS_NREP_DATAROUTINE", BASILYS_GET); if (sy_CLASS_NREP_DATAROUTINE && NULL == /*_.VALDATA___V1271*/ curfptr[1270]) /*_.VALDATA___V1271*/ curfptr[1270] = (void*) sy_CLASS_NREP_DATAROUTINE; } /*getnamedsym:_VALROUT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALROUT_ = basilysgc_named_symbol("_VALROUT_", BASILYS_GET); if (sy_VALROUT_ && NULL == /*_.VALDATA___V1274*/ curfptr[1273]) /*_.VALDATA___V1274*/ curfptr[1273] = (void*) sy_VALROUT_; } /*getnamedsym:_IROUTVAL_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_IROUTVAL_ = basilysgc_named_symbol("_IROUTVAL_", BASILYS_GET); if (sy_IROUTVAL_ && NULL == /*_.VALDATA___V1276*/ curfptr[1275]) /*_.VALDATA___V1276*/ curfptr[1275] = (void*) sy_IROUTVAL_; } /*getnamedsym:CLASS_NREP_QUASIDATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_QUASIDATA = basilysgc_named_symbol("CLASS_NREP_QUASIDATA", BASILYS_GET); if (sy_CLASS_NREP_QUASIDATA && NULL == /*_.VALDATA___V1280*/ curfptr[1279]) /*_.VALDATA___V1280*/ curfptr[1279] = (void*) sy_CLASS_NREP_QUASIDATA; } /*getnamedsym:CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); if (sy_CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1284*/ curfptr[1283]) /*_.VALDATA___V1284*/ curfptr[1283] = (void*) sy_CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT = basilysgc_named_symbol("CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", BASILYS_GET); if (sy_CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1288*/ curfptr[1287]) /*_.VALDATA___V1288*/ curfptr[1287] = (void*) sy_CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; } /*getnamedsym:CLASS_NREP_STORE_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_STORE_PREDEFINED = basilysgc_named_symbol("CLASS_NREP_STORE_PREDEFINED", BASILYS_GET); if (sy_CLASS_NREP_STORE_PREDEFINED && NULL == /*_.VALDATA___V1292*/ curfptr[1291]) /*_.VALDATA___V1292*/ curfptr[1291] = (void*) sy_CLASS_NREP_STORE_PREDEFINED; } /*getnamedsym:CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); if (sy_CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1298*/ curfptr[1297]) /*_.VALDATA___V1298*/ curfptr[1297] = (void*) sy_CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:COMPILE_MATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE_MATCHER = basilysgc_named_symbol("COMPILE_MATCHER", BASILYS_GET); if (sy_COMPILE_MATCHER && NULL == /*_.VALDATA___V1300*/ curfptr[1299]) /*_.VALDATA___V1300*/ curfptr[1299] = (void*) sy_COMPILE_MATCHER; } /*getnamedsym:CLASS_MATCHCOMPILCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_MATCHCOMPILCONTEXT = basilysgc_named_symbol("CLASS_MATCHCOMPILCONTEXT", BASILYS_GET); if (sy_CLASS_MATCHCOMPILCONTEXT && NULL == /*_.VALDATA___V1304*/ curfptr[1303]) /*_.VALDATA___V1304*/ curfptr[1303] = (void*) sy_CLASS_MATCHCOMPILCONTEXT; } /*getnamedsym:CLASS_PROPED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PROPED = basilysgc_named_symbol("CLASS_PROPED", BASILYS_GET); if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V1306*/ curfptr[1305]) /*_.VALDATA___V1306*/ curfptr[1305] = (void*) sy_CLASS_PROPED; } /*getnamedsym:MCX_LOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MCX_LOC = basilysgc_named_symbol("MCX_LOC", BASILYS_GET); if (sy_MCX_LOC && NULL == /*_.VALDATA___V1324*/ curfptr[1323]) /*_.VALDATA___V1324*/ curfptr[1323] = (void*) sy_MCX_LOC; } /*getnamedsym:MCX_NORMTESTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MCX_NORMTESTER = basilysgc_named_symbol("MCX_NORMTESTER", BASILYS_GET); if (sy_MCX_NORMTESTER && NULL == /*_.VALDATA___V1326*/ curfptr[1325]) /*_.VALDATA___V1326*/ curfptr[1325] = (void*) sy_MCX_NORMTESTER; } /*getnamedsym:MCX_GOTOTHEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MCX_GOTOTHEN = basilysgc_named_symbol("MCX_GOTOTHEN", BASILYS_GET); if (sy_MCX_GOTOTHEN && NULL == /*_.VALDATA___V1328*/ curfptr[1327]) /*_.VALDATA___V1328*/ curfptr[1327] = (void*) sy_MCX_GOTOTHEN; } /*getnamedsym:MCX_GOTOELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MCX_GOTOELSE = basilysgc_named_symbol("MCX_GOTOELSE", BASILYS_GET); if (sy_MCX_GOTOELSE && NULL == /*_.VALDATA___V1330*/ curfptr[1329]) /*_.VALDATA___V1330*/ curfptr[1329] = (void*) sy_MCX_GOTOELSE; } /*getnamedsym:MCX_OLIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MCX_OLIST = basilysgc_named_symbol("MCX_OLIST", BASILYS_GET); if (sy_MCX_OLIST && NULL == /*_.VALDATA___V1332*/ curfptr[1331]) /*_.VALDATA___V1332*/ curfptr[1331] = (void*) sy_MCX_OLIST; } /*getnamedsym:MCX_PREFIX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MCX_PREFIX = basilysgc_named_symbol("MCX_PREFIX", BASILYS_GET); if (sy_MCX_PREFIX && NULL == /*_.VALDATA___V1334*/ curfptr[1333]) /*_.VALDATA___V1334*/ curfptr[1333] = (void*) sy_MCX_PREFIX; } /*getnamedsym:COMPILE_TESTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE_TESTER = basilysgc_named_symbol("COMPILE_TESTER", BASILYS_GET); if (sy_COMPILE_TESTER && NULL == /*_.VALDATA___V1336*/ curfptr[1335]) /*_.VALDATA___V1336*/ curfptr[1335] = (void*) sy_COMPILE_TESTER; } /*getnamedsym:CLASS_TESTERCOMPILCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_TESTERCOMPILCONTEXT = basilysgc_named_symbol("CLASS_TESTERCOMPILCONTEXT", BASILYS_GET); if (sy_CLASS_TESTERCOMPILCONTEXT && NULL == /*_.VALDATA___V1340*/ curfptr[1339]) /*_.VALDATA___V1340*/ curfptr[1339] = (void*) sy_CLASS_TESTERCOMPILCONTEXT; } /*getnamedsym:TCX_NRMATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_TCX_NRMATCH = basilysgc_named_symbol("TCX_NRMATCH", BASILYS_GET); if (sy_TCX_NRMATCH && NULL == /*_.VALDATA___V1350*/ curfptr[1349]) /*_.VALDATA___V1350*/ curfptr[1349] = (void*) sy_TCX_NRMATCH; } /*getnamedsym:TCX_FREELIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_TCX_FREELIST = basilysgc_named_symbol("TCX_FREELIST", BASILYS_GET); if (sy_TCX_FREELIST && NULL == /*_.VALDATA___V1352*/ curfptr[1351]) /*_.VALDATA___V1352*/ curfptr[1351] = (void*) sy_TCX_FREELIST; } /*getnamedsym:CLASS_NORMTESTER_ANY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMTESTER_ANY = basilysgc_named_symbol("CLASS_NORMTESTER_ANY", BASILYS_GET); if (sy_CLASS_NORMTESTER_ANY && NULL == /*_.VALDATA___V1356*/ curfptr[1355]) /*_.VALDATA___V1356*/ curfptr[1355] = (void*) sy_CLASS_NORMTESTER_ANY; } /*getnamedsym:CLASS_NREP_MATCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_MATCH = basilysgc_named_symbol("CLASS_NREP_MATCH", BASILYS_GET); if (sy_CLASS_NREP_MATCH && NULL == /*_.VALDATA___V1363*/ curfptr[1362]) /*_.VALDATA___V1363*/ curfptr[1362] = (void*) sy_CLASS_NREP_MATCH; } /*getnamedsym:LIST_APPEND2LIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_APPEND2LIST = basilysgc_named_symbol("LIST_APPEND2LIST", BASILYS_GET); if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V1365*/ curfptr[1364]) /*_.VALDATA___V1365*/ curfptr[1364] = (void*) sy_LIST_APPEND2LIST; } /*getnamedsym:CLASS_NORMTESTER_SUCCESS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMTESTER_SUCCESS = basilysgc_named_symbol("CLASS_NORMTESTER_SUCCESS", BASILYS_GET); if (sy_CLASS_NORMTESTER_SUCCESS && NULL == /*_.VALDATA___V1367*/ curfptr[1366]) /*_.VALDATA___V1367*/ curfptr[1366] = (void*) sy_CLASS_NORMTESTER_SUCCESS; } /*getnamedsym:MAPOBJECT_EVERY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MAPOBJECT_EVERY = basilysgc_named_symbol("MAPOBJECT_EVERY", BASILYS_GET); if (sy_MAPOBJECT_EVERY && NULL == /*_.VALDATA___V1369*/ curfptr[1368]) /*_.VALDATA___V1369*/ curfptr[1368] = (void*) sy_MAPOBJECT_EVERY; } /*getnamedsym:LIST_FIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_FIND = basilysgc_named_symbol("LIST_FIND", BASILYS_GET); if (sy_LIST_FIND && NULL == /*_.VALDATA___V1371*/ curfptr[1370]) /*_.VALDATA___V1371*/ curfptr[1370] = (void*) sy_LIST_FIND; } /*getnamedsym:CLASS_NREP_SYMOCC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_SYMOCC = basilysgc_named_symbol("CLASS_NREP_SYMOCC", BASILYS_GET); if (sy_CLASS_NREP_SYMOCC && NULL == /*_.VALDATA___V1380*/ curfptr[1379]) /*_.VALDATA___V1380*/ curfptr[1379] = (void*) sy_CLASS_NREP_SYMOCC; } /*getnamedsym:CLASS_NORMTESTER_MATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMTESTER_MATCHER = basilysgc_named_symbol("CLASS_NORMTESTER_MATCHER", BASILYS_GET); if (sy_CLASS_NORMTESTER_MATCHER && NULL == /*_.VALDATA___V1384*/ curfptr[1383]) /*_.VALDATA___V1384*/ curfptr[1383] = (void*) sy_CLASS_NORMTESTER_MATCHER; } /*getnamedsym:CLASS_NORMTESTER_INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMTESTER_INSTANCE = basilysgc_named_symbol("CLASS_NORMTESTER_INSTANCE", BASILYS_GET); if (sy_CLASS_NORMTESTER_INSTANCE && NULL == /*_.VALDATA___V1388*/ curfptr[1387]) /*_.VALDATA___V1388*/ curfptr[1387] = (void*) sy_CLASS_NORMTESTER_INSTANCE; } /*getnamedsym:CLASS_NORMTESTER_SAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMTESTER_SAME = basilysgc_named_symbol("CLASS_NORMTESTER_SAME", BASILYS_GET); if (sy_CLASS_NORMTESTER_SAME && NULL == /*_.VALDATA___V1392*/ curfptr[1391]) /*_.VALDATA___V1392*/ curfptr[1391] = (void*) sy_CLASS_NORMTESTER_SAME; } /*getnamedsym:LIST2*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST2 = basilysgc_named_symbol("LIST2", BASILYS_GET); if (sy_LIST2 && NULL == /*_.VALDATA___V1396*/ curfptr[1395]) /*_.VALDATA___V1396*/ curfptr[1395] = (void*) sy_LIST2; } /*getnamedsym:CLASS_CMATCHER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CMATCHER = basilysgc_named_symbol("CLASS_CMATCHER", BASILYS_GET); if (sy_CLASS_CMATCHER && NULL == /*_.VALDATA___V1404*/ curfptr[1403]) /*_.VALDATA___V1404*/ curfptr[1403] = (void*) sy_CLASS_CMATCHER; } /*getnamedsym:MULTIPLE_EVERY_BOTH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_EVERY_BOTH = basilysgc_named_symbol("MULTIPLE_EVERY_BOTH", BASILYS_GET); if (sy_MULTIPLE_EVERY_BOTH && NULL == /*_.VALDATA___V1406*/ curfptr[1405]) /*_.VALDATA___V1406*/ curfptr[1405] = (void*) sy_MULTIPLE_EVERY_BOTH; } /**COMMENT: get the value importer **/; { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 12, "SYSDATA_VALUE_IMPORTER");/*_.VALIMPORT___V6*/ curfptr[5] = slot; }; /**COMMENT: before getting imported values **/; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_OBJCODE__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NAMED__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_SELECTOR__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISPLAYDEBUGMSG__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.INSTALL_METHOD__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.COMPILE_OBJ__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_ANYRECV__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.GET_CTYPE__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CTYPE_VALUE__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DBGOUT_NAMEDOBJECT_METHOD__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DBG_OUTPUT__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_LIST__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V920*/ curfptr[919]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_MODULCONTEXT__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_STRBUF__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_STRING__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_INTEGER__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_MAPOBJECTS__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_GENERCONTEXT__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.MULTIPLE_MAP__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CTYPE_LONG__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST_EVERY__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_INITPROC__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST_MAP__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V977*/ curfptr[976]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST1__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.SYSDATA_CONT_FRESH_ENV__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_MULTIPLE__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST_TO_MULTIPLE__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATA__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.MULTIPLE_EVERY__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.SYSDATA_VALUE_IMPORTER__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V999*/ curfptr[998]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_CTYPE__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CTYPE_VOID__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_ANY_BINDING__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1013*/ curfptr[1012]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_LET_BINDING__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1015*/ curfptr[1014]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_CHUNK__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_TYPEXPR__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_NIL__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1028*/ curfptr[1027]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_COMMENT__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_CLOSEDOCC__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_SYMBOL__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_QUASICONSTANT__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_FOREVER__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_LABEL_BINDING__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_CLONEDSYMBOL__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_EXIT__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_LET__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_SEXPR__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1082*/ curfptr[1081]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_CITERATION__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_CITERATOR__V68*/ curfptr[67] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_SETQ__V69*/ curfptr[68] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_PROGN__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_MULTACC__V71*/ curfptr[70] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_FIELDACC__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1112*/ curfptr[1111]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_FIELD__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATAINSTANCE__V74*/ curfptr[73] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_UNSAFE_GET_FIELD__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V76*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_APPLY__V78*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_MULTIAPPLY__V79*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_MSEND__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_MULTIMSEND__V81*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_VALUE_BINDING__V82*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1161*/ curfptr[1160]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_FIXED_BINDING__V83*/ curfptr[82] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1165*/ curfptr[1164]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISCR_NULLRECV__V84*/ curfptr[83] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_IF__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_IFISA__V86*/ curfptr[85] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_CPPIF__V87*/ curfptr[86] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_RETURN__V88*/ curfptr[87] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_LAMBDA__V89*/ curfptr[88] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_MAKE_INSTANCE__V90*/ curfptr[89] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_CLASS__V91*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1222*/ curfptr[1221]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_PREDEF__V92*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATATUPLE__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATASTRING__V94*/ curfptr[93] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATACLOSURE__V95*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATAROUTINE__V96*/ curfptr[95] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_QUASIDATA__V97*/ curfptr[96] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V99*/ curfptr[98] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_STORE_PREDEFINED__V100*/ curfptr[99] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V101*/ curfptr[100] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_PROPED__V102*/ curfptr[101] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_MATCH__V104*/ curfptr[103] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1363*/ curfptr[1362]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST_APPEND2LIST__V105*/ curfptr[104] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NORMTESTER_SUCCESS__V106*/ curfptr[105] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.MAPOBJECT_EVERY__V107*/ curfptr[106] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST_FIND__V108*/ curfptr[107] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1371*/ curfptr[1370]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_SYMOCC__V109*/ curfptr[108] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1380*/ curfptr[1379]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NORMTESTER_MATCHER__V110*/ curfptr[109] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NORMTESTER_INSTANCE__V111*/ curfptr[110] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NORMTESTER_SAME__V112*/ curfptr[111] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1392*/ curfptr[1391]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.LIST2__V113*/ curfptr[112] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_CMATCHER__V114*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.MULTIPLE_EVERY_BOTH__V115*/ curfptr[114] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /**COMMENT: after getting imported values **/; /**initial routine cdata initializer**/ memset(predefinited, 0, sizeof(predefinited)); initialize_module_cdata(&curfram__, predefinited); /**initial routine body**/ /**COMMENT: start of oinibody **/; /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])))); ((basilysobject_ptr_t)(/*_.VALDATA___V116*/ curfptr[115]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V117*/ curfptr[116]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V116*/ curfptr[115]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])))); ((basilysobject_ptr_t)(/*_.VALDATA___V118*/ curfptr[117]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V119*/ curfptr[118]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])))); ((basilysobject_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V121*/ curfptr[120]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])))); ((basilysobject_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V122*/ curfptr[121]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V122*/ curfptr[121])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V122*/ curfptr[121]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V122*/ curfptr[121]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V122*/ curfptr[121])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V122*/ curfptr[121]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V122*/ curfptr[121]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])))); ((basilysobject_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V122*/ curfptr[121]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])))); ((basilysobject_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V124*/ curfptr[123]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122])))); ((basilysobject_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V125*/ curfptr[124]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V125*/ curfptr[124])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V125*/ curfptr[124]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V125*/ curfptr[124]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119])))); ((basilysobject_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V125*/ curfptr[124]); BASILYS_LOCATION("warmelt-genobj.melt:34:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V120*/ curfptr[119]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125])))); ((basilysobject_ptr_t)(/*_.VALDATA___V126*/ curfptr[125]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V127*/ curfptr[126]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V126*/ curfptr[125]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127])))); ((basilysobject_ptr_t)(/*_.VALDATA___V128*/ curfptr[127]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V129*/ curfptr[128]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V128*/ curfptr[127]); BASILYS_LOCATION("warmelt-genobj.melt:41:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])))); ((basilysobject_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V131*/ curfptr[130]); BASILYS_LOCATION("warmelt-genobj.melt:41:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])))); ((basilysobject_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V132*/ curfptr[131]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V132*/ curfptr[131])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V132*/ curfptr[131]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V132*/ curfptr[131]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V132*/ curfptr[131])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V132*/ curfptr[131]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V132*/ curfptr[131]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V132*/ curfptr[131])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V132*/ curfptr[131]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V132*/ curfptr[131]); BASILYS_LOCATION("warmelt-genobj.melt:41:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])))); ((basilysobject_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V132*/ curfptr[131]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V133*/ curfptr[132]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V133*/ curfptr[132])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V133*/ curfptr[132]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V133*/ curfptr[132]); BASILYS_LOCATION("warmelt-genobj.melt:41:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129])))); ((basilysobject_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V133*/ curfptr[132]); BASILYS_LOCATION("warmelt-genobj.melt:41:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V130*/ curfptr[129]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])))); ((basilysobject_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V135*/ curfptr[134]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V134*/ curfptr[133]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])))); ((basilysobject_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V137*/ curfptr[136]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])))); ((basilysobject_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V138*/ curfptr[137])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V138*/ curfptr[137]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V138*/ curfptr[137]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])))); ((basilysobject_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V138*/ curfptr[137]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])))); ((basilysobject_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V140*/ curfptr[139]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])))); ((basilysobject_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V139*/ curfptr[138]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])))); ((basilysobject_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V142*/ curfptr[141]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])))); ((basilysobject_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V141*/ curfptr[140]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])))); ((basilysobject_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V144*/ curfptr[143]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])))); ((basilysobject_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V145*/ curfptr[144])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V145*/ curfptr[144]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V145*/ curfptr[144]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135])))); ((basilysobject_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V145*/ curfptr[144]); BASILYS_LOCATION("warmelt-genobj.melt:47:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V136*/ curfptr[135]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])))); ((basilysobject_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V147*/ curfptr[146]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V146*/ curfptr[145]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])))); ((basilysobject_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V149*/ curfptr[148]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V148*/ curfptr[147]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V150*/ curfptr[149])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V150*/ curfptr[149])))); ((basilysobject_ptr_t)(/*_.VALDATA___V150*/ curfptr[149]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V151*/ curfptr[150]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V150*/ curfptr[149]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])))); ((basilysobject_ptr_t)(/*_.VALDATA___V152*/ curfptr[151]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V153*/ curfptr[152]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V152*/ curfptr[151]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])))); ((basilysobject_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V155*/ curfptr[154]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])))); ((basilysobject_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V156*/ curfptr[155])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V156*/ curfptr[155]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V156*/ curfptr[155]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])))); ((basilysobject_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V156*/ curfptr[155]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])))); ((basilysobject_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V158*/ curfptr[157]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])))); ((basilysobject_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V157*/ curfptr[156]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V160*/ curfptr[159]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V159*/ curfptr[158]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])))); ((basilysobject_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160])))); ((basilysobject_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V161*/ curfptr[160]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V163*/ curfptr[162])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V163*/ curfptr[162]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V163*/ curfptr[162]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153])))); ((basilysobject_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V163*/ curfptr[162]); BASILYS_LOCATION("warmelt-genobj.melt:56:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V154*/ curfptr[153]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163])))); ((basilysobject_ptr_t)(/*_.VALDATA___V164*/ curfptr[163]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V165*/ curfptr[164]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V164*/ curfptr[163]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165])))); ((basilysobject_ptr_t)(/*_.VALDATA___V166*/ curfptr[165]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V167*/ curfptr[166]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V166*/ curfptr[165]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])))); ((basilysobject_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V169*/ curfptr[168]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V168*/ curfptr[167]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169])))); ((basilysobject_ptr_t)(/*_.VALDATA___V170*/ curfptr[169]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V171*/ curfptr[170]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V170*/ curfptr[169]); BASILYS_LOCATION("warmelt-genobj.melt:65:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])))); ((basilysobject_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V173*/ curfptr[172]); BASILYS_LOCATION("warmelt-genobj.melt:65:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])))); ((basilysobject_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V154*/ curfptr[153]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V174*/ curfptr[173])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V174*/ curfptr[173]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V174*/ curfptr[173]); BASILYS_LOCATION("warmelt-genobj.melt:65:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])))); ((basilysobject_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V174*/ curfptr[173]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V175*/ curfptr[174])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V175*/ curfptr[174]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V161*/ curfptr[160]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V175*/ curfptr[174]); BASILYS_LOCATION("warmelt-genobj.melt:65:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171])))); ((basilysobject_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V175*/ curfptr[174]); BASILYS_LOCATION("warmelt-genobj.melt:65:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V172*/ curfptr[171]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175])))); ((basilysobject_ptr_t)(/*_.VALDATA___V176*/ curfptr[175]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V177*/ curfptr[176]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V176*/ curfptr[175]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])))); ((basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V179*/ curfptr[178]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])))); ((basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V180*/ curfptr[179])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V180*/ curfptr[179]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V180*/ curfptr[179]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])))); ((basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V180*/ curfptr[179]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])))); ((basilysobject_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V182*/ curfptr[181]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])))); ((basilysobject_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V178*/ curfptr[177]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V181*/ curfptr[180]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V183*/ curfptr[182]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V183*/ curfptr[182])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V183*/ curfptr[182]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V183*/ curfptr[182]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V183*/ curfptr[182])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V183*/ curfptr[182]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V183*/ curfptr[182]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177])))); ((basilysobject_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V183*/ curfptr[182]); BASILYS_LOCATION("warmelt-genobj.melt:71:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V178*/ curfptr[177]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183])))); ((basilysobject_ptr_t)(/*_.VALDATA___V184*/ curfptr[183]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V185*/ curfptr[184]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V184*/ curfptr[183]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])))); ((basilysobject_ptr_t)(/*_.VALDATA___V186*/ curfptr[185]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V187*/ curfptr[186]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V186*/ curfptr[185]); BASILYS_LOCATION("warmelt-genobj.melt:77:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])))); ((basilysobject_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V189*/ curfptr[188]); BASILYS_LOCATION("warmelt-genobj.melt:77:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])))); ((basilysobject_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V190*/ curfptr[189])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V190*/ curfptr[189]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V190*/ curfptr[189]); BASILYS_LOCATION("warmelt-genobj.melt:77:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])))); ((basilysobject_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V190*/ curfptr[189]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V191*/ curfptr[190]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V191*/ curfptr[190])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V191*/ curfptr[190]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V191*/ curfptr[190]); BASILYS_LOCATION("warmelt-genobj.melt:77:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187])))); ((basilysobject_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V191*/ curfptr[190]); BASILYS_LOCATION("warmelt-genobj.melt:77:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V188*/ curfptr[187]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])))); ((basilysobject_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V193*/ curfptr[192]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V192*/ curfptr[191]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])))); ((basilysobject_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V195*/ curfptr[194]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])))); ((basilysobject_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V196*/ curfptr[195])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V196*/ curfptr[195]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V196*/ curfptr[195]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])))); ((basilysobject_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V196*/ curfptr[195]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])))); ((basilysobject_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V198*/ curfptr[197]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196])))); ((basilysobject_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V197*/ curfptr[196]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])))); ((basilysobject_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V200*/ curfptr[199]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])))); ((basilysobject_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V199*/ curfptr[198]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])))); ((basilysobject_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V202*/ curfptr[201]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200])))); ((basilysobject_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V201*/ curfptr[200]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])))); ((basilysobject_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V204*/ curfptr[203]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])))); ((basilysobject_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V203*/ curfptr[202]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V205*/ curfptr[204])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V205*/ curfptr[204]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V205*/ curfptr[204]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193])))); ((basilysobject_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V205*/ curfptr[204]); BASILYS_LOCATION("warmelt-genobj.melt:82:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V194*/ curfptr[193]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])))); ((basilysobject_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V207*/ curfptr[206]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V206*/ curfptr[205]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207])))); ((basilysobject_ptr_t)(/*_.VALDATA___V208*/ curfptr[207]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V209*/ curfptr[208]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V208*/ curfptr[207]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209])))); ((basilysobject_ptr_t)(/*_.VALDATA___V210*/ curfptr[209]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V211*/ curfptr[210]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V210*/ curfptr[209]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])))); ((basilysobject_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V213*/ curfptr[212]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V212*/ curfptr[211]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213])))); ((basilysobject_ptr_t)(/*_.VALDATA___V214*/ curfptr[213]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V215*/ curfptr[214]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V214*/ curfptr[213]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])))); ((basilysobject_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V217*/ curfptr[216]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])))); ((basilysobject_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V218*/ curfptr[217]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])))); ((basilysobject_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V218*/ curfptr[217]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])))); ((basilysobject_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V220*/ curfptr[219]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])))); ((basilysobject_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V219*/ curfptr[218]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V221*/ curfptr[220])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V221*/ curfptr[220]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V221*/ curfptr[220]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])))); ((basilysobject_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V221*/ curfptr[220]); BASILYS_LOCATION("warmelt-genobj.melt:92:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V216*/ curfptr[215]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])))); ((basilysobject_ptr_t)(/*_.VALDATA___V222*/ curfptr[221]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V223*/ curfptr[222]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V222*/ curfptr[221]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])))); ((basilysobject_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V225*/ curfptr[224]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V224*/ curfptr[223]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])))); ((basilysobject_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])))); ((basilysobject_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V228*/ curfptr[227])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V228*/ curfptr[227]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V228*/ curfptr[227]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])))); ((basilysobject_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V228*/ curfptr[227]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])))); ((basilysobject_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V230*/ curfptr[229]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])))); ((basilysobject_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V226*/ curfptr[225]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V229*/ curfptr[228]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V231*/ curfptr[230])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V231*/ curfptr[230]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V231*/ curfptr[230]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225])))); ((basilysobject_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V231*/ curfptr[230]); BASILYS_LOCATION("warmelt-genobj.melt:100:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V226*/ curfptr[225]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231])))); ((basilysobject_ptr_t)(/*_.VALDATA___V232*/ curfptr[231]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V233*/ curfptr[232]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V232*/ curfptr[231]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233])))); ((basilysobject_ptr_t)(/*_.VALDATA___V234*/ curfptr[233]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V235*/ curfptr[234]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V234*/ curfptr[233]); BASILYS_LOCATION("warmelt-genobj.melt:109:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])))); ((basilysobject_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V237*/ curfptr[236]); BASILYS_LOCATION("warmelt-genobj.melt:109:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])))); ((basilysobject_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V238*/ curfptr[237])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V238*/ curfptr[237]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V238*/ curfptr[237]); BASILYS_LOCATION("warmelt-genobj.melt:109:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])))); ((basilysobject_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V238*/ curfptr[237]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V239*/ curfptr[238])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V239*/ curfptr[238]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-genobj.melt:109:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235])))); ((basilysobject_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-genobj.melt:109:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V236*/ curfptr[235]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V240*/ curfptr[239])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V240*/ curfptr[239])))); ((basilysobject_ptr_t)(/*_.VALDATA___V240*/ curfptr[239]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V241*/ curfptr[240]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V240*/ curfptr[239]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V243*/ curfptr[242]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V244*/ curfptr[243])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V244*/ curfptr[243]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V244*/ curfptr[243]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V244*/ curfptr[243]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])))); ((basilysobject_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V246*/ curfptr[245]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])))); ((basilysobject_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V242*/ curfptr[241]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V245*/ curfptr[244]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V247*/ curfptr[246])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V247*/ curfptr[246]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V247*/ curfptr[246]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V247*/ curfptr[246]); BASILYS_LOCATION("warmelt-genobj.melt:115:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V242*/ curfptr[241]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])))); ((basilysobject_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V249*/ curfptr[248]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V248*/ curfptr[247]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V250*/ curfptr[249])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V250*/ curfptr[249])))); ((basilysobject_ptr_t)(/*_.VALDATA___V250*/ curfptr[249]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V251*/ curfptr[250]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V250*/ curfptr[249]); BASILYS_LOCATION("warmelt-genobj.melt:122:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V253*/ curfptr[252]); BASILYS_LOCATION("warmelt-genobj.melt:122:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V194*/ curfptr[193]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V254*/ curfptr[253])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V254*/ curfptr[253]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V254*/ curfptr[253]); BASILYS_LOCATION("warmelt-genobj.melt:122:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V254*/ curfptr[253]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V197*/ curfptr[196]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V201*/ curfptr[200]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V255*/ curfptr[254])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V255*/ curfptr[254]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-genobj.melt:122:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-genobj.melt:122:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V252*/ curfptr[251]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255])))); ((basilysobject_ptr_t)(/*_.VALDATA___V256*/ curfptr[255]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V257*/ curfptr[256]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V256*/ curfptr[255]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V259*/ curfptr[258]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V260*/ curfptr[259])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V260*/ curfptr[259]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V260*/ curfptr[259]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V260*/ curfptr[259]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])))); ((basilysobject_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V262*/ curfptr[261]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])))); ((basilysobject_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V261*/ curfptr[260]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V263*/ curfptr[262])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V263*/ curfptr[262]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257])))); ((basilysobject_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-genobj.melt:129:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V258*/ curfptr[257]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263])))); ((basilysobject_ptr_t)(/*_.VALDATA___V264*/ curfptr[263]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V265*/ curfptr[264]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V264*/ curfptr[263]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])))); ((basilysobject_ptr_t)(/*_.VALDATA___V266*/ curfptr[265]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V267*/ curfptr[266]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V266*/ curfptr[265]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V269*/ curfptr[268]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V258*/ curfptr[257]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V270*/ curfptr[269])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V270*/ curfptr[269]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V270*/ curfptr[269]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V270*/ curfptr[269]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])))); ((basilysobject_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V272*/ curfptr[271]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])))); ((basilysobject_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V268*/ curfptr[267]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V271*/ curfptr[270]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V123*/ curfptr[122]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V273*/ curfptr[272])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V273*/ curfptr[272]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V273*/ curfptr[272]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V273*/ curfptr[272]); BASILYS_LOCATION("warmelt-genobj.melt:135:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V268*/ curfptr[267]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273])))); ((basilysobject_ptr_t)(/*_.VALDATA___V274*/ curfptr[273]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V275*/ curfptr[274]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V274*/ curfptr[273]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275])))); ((basilysobject_ptr_t)(/*_.VALDATA___V276*/ curfptr[275]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V277*/ curfptr[276]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V276*/ curfptr[275]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V279*/ curfptr[278]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V280*/ curfptr[279])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V280*/ curfptr[279]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V280*/ curfptr[279]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V280*/ curfptr[279]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])))); ((basilysobject_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V282*/ curfptr[281]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280])))); ((basilysobject_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V283*/ curfptr[282]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V283*/ curfptr[282])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V283*/ curfptr[282]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277])))); ((basilysobject_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-genobj.melt:141:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V278*/ curfptr[277]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])))); ((basilysobject_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V285*/ curfptr[284]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V284*/ curfptr[283]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])))); ((basilysobject_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V287*/ curfptr[286]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V286*/ curfptr[285]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])))); ((basilysobject_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V289*/ curfptr[288]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])))); ((basilysobject_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V290*/ curfptr[289]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V290*/ curfptr[289])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V290*/ curfptr[289]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V290*/ curfptr[289]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V290*/ curfptr[289])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V290*/ curfptr[289]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V290*/ curfptr[289]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V290*/ curfptr[289])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V290*/ curfptr[289]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V290*/ curfptr[289]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])))); ((basilysobject_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V290*/ curfptr[289]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])))); ((basilysobject_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V292*/ curfptr[291]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])))); ((basilysobject_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V288*/ curfptr[287]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V291*/ curfptr[290]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V293*/ curfptr[292]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V293*/ curfptr[292])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V293*/ curfptr[292]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V293*/ curfptr[292]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V293*/ curfptr[292])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V293*/ curfptr[292]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V293*/ curfptr[292]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287])))); ((basilysobject_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V293*/ curfptr[292]); BASILYS_LOCATION("warmelt-genobj.melt:146:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V288*/ curfptr[287]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])))); ((basilysobject_ptr_t)(/*_.VALDATA___V294*/ curfptr[293]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V295*/ curfptr[294]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V294*/ curfptr[293]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])))); ((basilysobject_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V297*/ curfptr[296]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V296*/ curfptr[295]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])))); ((basilysobject_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V299*/ curfptr[298]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])))); ((basilysobject_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V300*/ curfptr[299]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V300*/ curfptr[299])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V300*/ curfptr[299]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V300*/ curfptr[299]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V300*/ curfptr[299])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V300*/ curfptr[299]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V300*/ curfptr[299]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V300*/ curfptr[299])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V300*/ curfptr[299]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V300*/ curfptr[299]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])))); ((basilysobject_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V300*/ curfptr[299]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])))); ((basilysobject_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V302*/ curfptr[301]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300])))); ((basilysobject_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V303*/ curfptr[302]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V303*/ curfptr[302])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V303*/ curfptr[302]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V303*/ curfptr[302]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V303*/ curfptr[302])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V303*/ curfptr[302]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V303*/ curfptr[302]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])))); ((basilysobject_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V303*/ curfptr[302]); BASILYS_LOCATION("warmelt-genobj.melt:153:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V298*/ curfptr[297]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])))); ((basilysobject_ptr_t)(/*_.VALDATA___V304*/ curfptr[303]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V305*/ curfptr[304]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V304*/ curfptr[303]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])))); ((basilysobject_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V307*/ curfptr[306]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V306*/ curfptr[305]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V309*/ curfptr[308]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V310*/ curfptr[309]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V310*/ curfptr[309]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])))); ((basilysobject_ptr_t)(/*_.VALDATA___V311*/ curfptr[310]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V312*/ curfptr[311]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])))); ((basilysobject_ptr_t)(/*_.VALDATA___V311*/ curfptr[310]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V311*/ curfptr[310]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V313*/ curfptr[312]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V313*/ curfptr[312])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V313*/ curfptr[312]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V313*/ curfptr[312]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V313*/ curfptr[312])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V313*/ curfptr[312]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V313*/ curfptr[312]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V313*/ curfptr[312])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V313*/ curfptr[312]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V313*/ curfptr[312]); BASILYS_LOCATION("warmelt-genobj.melt:159:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V308*/ curfptr[307]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])))); ((basilysobject_ptr_t)(/*_.VALDATA___V314*/ curfptr[313]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V315*/ curfptr[314]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V314*/ curfptr[313]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])))); ((basilysobject_ptr_t)(/*_.VALDATA___V316*/ curfptr[315]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V317*/ curfptr[316]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V316*/ curfptr[315]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V319*/ curfptr[318]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V320*/ curfptr[319]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V320*/ curfptr[319])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V320*/ curfptr[319]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V320*/ curfptr[319]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V320*/ curfptr[319])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V320*/ curfptr[319]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V320*/ curfptr[319]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V320*/ curfptr[319])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V320*/ curfptr[319]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V320*/ curfptr[319]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V320*/ curfptr[319]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V322*/ curfptr[321]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V318*/ curfptr[317]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])))); ((basilysobject_ptr_t)(/*_.VALDATA___V323*/ curfptr[322]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V324*/ curfptr[323]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322])))); ((basilysobject_ptr_t)(/*_.VALDATA___V323*/ curfptr[322]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V318*/ curfptr[317]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V323*/ curfptr[322]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V325*/ curfptr[324])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V325*/ curfptr[324]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V323*/ curfptr[322]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V325*/ curfptr[324]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V325*/ curfptr[324]); BASILYS_LOCATION("warmelt-genobj.melt:165:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V318*/ curfptr[317]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])))); ((basilysobject_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V327*/ curfptr[326]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V326*/ curfptr[325]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])))); ((basilysobject_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V329*/ curfptr[328]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V328*/ curfptr[327]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329])))); ((basilysobject_ptr_t)(/*_.VALDATA___V330*/ curfptr[329]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V331*/ curfptr[330]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V330*/ curfptr[329]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])))); ((basilysobject_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V333*/ curfptr[332]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])))); ((basilysobject_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V334*/ curfptr[333]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V334*/ curfptr[333])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V334*/ curfptr[333]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V334*/ curfptr[333]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V334*/ curfptr[333])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V334*/ curfptr[333]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V334*/ curfptr[333]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V334*/ curfptr[333])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V334*/ curfptr[333]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V334*/ curfptr[333]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])))); ((basilysobject_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V334*/ curfptr[333]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V336*/ curfptr[335]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V332*/ curfptr[331]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])))); ((basilysobject_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V338*/ curfptr[337]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])))); ((basilysobject_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V332*/ curfptr[331]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V337*/ curfptr[336]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V339*/ curfptr[338]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V339*/ curfptr[338])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V339*/ curfptr[338]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V339*/ curfptr[338]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V339*/ curfptr[338])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V339*/ curfptr[338]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V339*/ curfptr[338]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V339*/ curfptr[338])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V339*/ curfptr[338]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V339*/ curfptr[338]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331])))); ((basilysobject_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V339*/ curfptr[338]); BASILYS_LOCATION("warmelt-genobj.melt:173:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V332*/ curfptr[331]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339])))); ((basilysobject_ptr_t)(/*_.VALDATA___V340*/ curfptr[339]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V341*/ curfptr[340]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V340*/ curfptr[339]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])))); ((basilysobject_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V343*/ curfptr[342]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V342*/ curfptr[341]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])))); ((basilysobject_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V345*/ curfptr[344]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V344*/ curfptr[343]); BASILYS_LOCATION("warmelt-genobj.melt:180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])))); ((basilysobject_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V347*/ curfptr[346]); BASILYS_LOCATION("warmelt-genobj.melt:180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])))); ((basilysobject_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V348*/ curfptr[347]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V348*/ curfptr[347])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V348*/ curfptr[347]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V348*/ curfptr[347]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V348*/ curfptr[347])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V348*/ curfptr[347]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V348*/ curfptr[347]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V348*/ curfptr[347])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V348*/ curfptr[347]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V348*/ curfptr[347]); BASILYS_LOCATION("warmelt-genobj.melt:180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])))); ((basilysobject_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V348*/ curfptr[347]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V349*/ curfptr[348]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V349*/ curfptr[348])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V349*/ curfptr[348]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V349*/ curfptr[348]); BASILYS_LOCATION("warmelt-genobj.melt:180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345])))); ((basilysobject_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V349*/ curfptr[348]); BASILYS_LOCATION("warmelt-genobj.melt:180:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V346*/ curfptr[345]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349])))); ((basilysobject_ptr_t)(/*_.VALDATA___V350*/ curfptr[349]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V351*/ curfptr[350]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V350*/ curfptr[349]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V353*/ curfptr[352]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V354*/ curfptr[353])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V354*/ curfptr[353]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V354*/ curfptr[353]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V354*/ curfptr[353]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])))); ((basilysobject_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V356*/ curfptr[355]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354])))); ((basilysobject_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V355*/ curfptr[354]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V357*/ curfptr[356]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V357*/ curfptr[356])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V357*/ curfptr[356]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V357*/ curfptr[356]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V357*/ curfptr[356])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V357*/ curfptr[356]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V357*/ curfptr[356]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V357*/ curfptr[356]); BASILYS_LOCATION("warmelt-genobj.melt:186:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V352*/ curfptr[351]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])))); ((basilysobject_ptr_t)(/*_.VALDATA___V358*/ curfptr[357]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V359*/ curfptr[358]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V358*/ curfptr[357]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])))); ((basilysobject_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V361*/ curfptr[360]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V360*/ curfptr[359]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])))); ((basilysobject_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V363*/ curfptr[362]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])))); ((basilysobject_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V364*/ curfptr[363]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V364*/ curfptr[363])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V364*/ curfptr[363]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V364*/ curfptr[363]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V364*/ curfptr[363])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V364*/ curfptr[363]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V364*/ curfptr[363]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V364*/ curfptr[363])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V364*/ curfptr[363]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V364*/ curfptr[363]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])))); ((basilysobject_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V364*/ curfptr[363]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])))); ((basilysobject_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V366*/ curfptr[365]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364])))); ((basilysobject_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V365*/ curfptr[364]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])))); ((basilysobject_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V368*/ curfptr[367]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366])))); ((basilysobject_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V367*/ curfptr[366]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V369*/ curfptr[368]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V369*/ curfptr[368])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V369*/ curfptr[368]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V369*/ curfptr[368]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V369*/ curfptr[368])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V369*/ curfptr[368]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V369*/ curfptr[368]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V369*/ curfptr[368])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V369*/ curfptr[368]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V369*/ curfptr[368]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])))); ((basilysobject_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V369*/ curfptr[368]); BASILYS_LOCATION("warmelt-genobj.melt:194:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V362*/ curfptr[361]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])))); ((basilysobject_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V371*/ curfptr[370]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V370*/ curfptr[369]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371])))); ((basilysobject_ptr_t)(/*_.VALDATA___V372*/ curfptr[371]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V373*/ curfptr[372]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V372*/ curfptr[371]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])))); ((basilysobject_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V375*/ curfptr[374]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V374*/ curfptr[373]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V362*/ curfptr[361]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V378*/ curfptr[377])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V378*/ curfptr[377]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V378*/ curfptr[377]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V378*/ curfptr[377]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])))); ((basilysobject_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V380*/ curfptr[379]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378])))); ((basilysobject_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V379*/ curfptr[378]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V381*/ curfptr[380])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V381*/ curfptr[380]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V381*/ curfptr[380]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375])))); ((basilysobject_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V381*/ curfptr[380]); BASILYS_LOCATION("warmelt-genobj.melt:201:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V376*/ curfptr[375]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])))); ((basilysobject_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V383*/ curfptr[382]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V382*/ curfptr[381]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])))); ((basilysobject_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V385*/ curfptr[384]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V384*/ curfptr[383]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])))); ((basilysobject_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V387*/ curfptr[386]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])))); ((basilysobject_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V362*/ curfptr[361]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V388*/ curfptr[387])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V388*/ curfptr[387]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V388*/ curfptr[387]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])))); ((basilysobject_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V388*/ curfptr[387]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])))); ((basilysobject_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V390*/ curfptr[389]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])))); ((basilysobject_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V389*/ curfptr[388]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V391*/ curfptr[390])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V391*/ curfptr[390]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V391*/ curfptr[390]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385])))); ((basilysobject_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V391*/ curfptr[390]); BASILYS_LOCATION("warmelt-genobj.melt:209:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V386*/ curfptr[385]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])))); ((basilysobject_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V393*/ curfptr[392]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V392*/ curfptr[391]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V394*/ curfptr[393])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V394*/ curfptr[393])))); ((basilysobject_ptr_t)(/*_.VALDATA___V394*/ curfptr[393]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V395*/ curfptr[394]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V394*/ curfptr[393]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])))); ((basilysobject_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])))); ((basilysobject_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V398*/ curfptr[397]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V398*/ curfptr[397])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V398*/ curfptr[397]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V398*/ curfptr[397]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V398*/ curfptr[397])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V398*/ curfptr[397]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V398*/ curfptr[397]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V398*/ curfptr[397])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V398*/ curfptr[397]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V398*/ curfptr[397]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])))); ((basilysobject_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V398*/ curfptr[397]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])))); ((basilysobject_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V400*/ curfptr[399]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398])))); ((basilysobject_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V399*/ curfptr[398]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])))); ((basilysobject_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V402*/ curfptr[401]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400])))); ((basilysobject_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V401*/ curfptr[400]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V403*/ curfptr[402]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V403*/ curfptr[402])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V403*/ curfptr[402]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V403*/ curfptr[402]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V403*/ curfptr[402])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V403*/ curfptr[402]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V403*/ curfptr[402]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V403*/ curfptr[402])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V403*/ curfptr[402]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V403*/ curfptr[402]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395])))); ((basilysobject_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V403*/ curfptr[402]); BASILYS_LOCATION("warmelt-genobj.melt:217:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V396*/ curfptr[395]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])))); ((basilysobject_ptr_t)(/*_.VALDATA___V404*/ curfptr[403]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V405*/ curfptr[404]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V404*/ curfptr[403]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405])))); ((basilysobject_ptr_t)(/*_.VALDATA___V406*/ curfptr[405]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V407*/ curfptr[406]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V406*/ curfptr[405]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407])))); ((basilysobject_ptr_t)(/*_.VALDATA___V408*/ curfptr[407]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V409*/ curfptr[408]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V408*/ curfptr[407]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])))); ((basilysobject_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V411*/ curfptr[410]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])))); ((basilysobject_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V412*/ curfptr[411]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V412*/ curfptr[411])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V412*/ curfptr[411]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V412*/ curfptr[411]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V412*/ curfptr[411])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V412*/ curfptr[411]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V412*/ curfptr[411]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V412*/ curfptr[411])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V412*/ curfptr[411]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V412*/ curfptr[411]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])))); ((basilysobject_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V412*/ curfptr[411]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])))); ((basilysobject_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V414*/ curfptr[413]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412])))); ((basilysobject_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V413*/ curfptr[412]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])))); ((basilysobject_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V416*/ curfptr[415]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])))); ((basilysobject_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V415*/ curfptr[414]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V417*/ curfptr[416]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V417*/ curfptr[416])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V417*/ curfptr[416]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V417*/ curfptr[416]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V417*/ curfptr[416])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V417*/ curfptr[416]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V417*/ curfptr[416]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V417*/ curfptr[416])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V417*/ curfptr[416]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V417*/ curfptr[416]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409])))); ((basilysobject_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V417*/ curfptr[416]); BASILYS_LOCATION("warmelt-genobj.melt:224:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V410*/ curfptr[409]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])))); ((basilysobject_ptr_t)(/*_.VALDATA___V418*/ curfptr[417]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V419*/ curfptr[418]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V418*/ curfptr[417]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])))); ((basilysobject_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V421*/ curfptr[420]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V420*/ curfptr[419]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])))); ((basilysobject_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V423*/ curfptr[422]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V422*/ curfptr[421]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])))); ((basilysobject_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V425*/ curfptr[424]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])))); ((basilysobject_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V362*/ curfptr[361]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V426*/ curfptr[425])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V426*/ curfptr[425]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V426*/ curfptr[425]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])))); ((basilysobject_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V426*/ curfptr[425]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])))); ((basilysobject_ptr_t)(/*_.VALDATA___V427*/ curfptr[426]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V428*/ curfptr[427]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426])))); ((basilysobject_ptr_t)(/*_.VALDATA___V427*/ curfptr[426]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V424*/ curfptr[423]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V427*/ curfptr[426]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])))); ((basilysobject_ptr_t)(/*_.VALDATA___V429*/ curfptr[428]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V430*/ curfptr[429]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428])))); ((basilysobject_ptr_t)(/*_.VALDATA___V429*/ curfptr[428]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V424*/ curfptr[423]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V429*/ curfptr[428]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V427*/ curfptr[426]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V431*/ curfptr[430])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V431*/ curfptr[430]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V429*/ curfptr[428]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V431*/ curfptr[430]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423])))); ((basilysobject_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V431*/ curfptr[430]); BASILYS_LOCATION("warmelt-genobj.melt:231:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V424*/ curfptr[423]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])))); ((basilysobject_ptr_t)(/*_.VALDATA___V432*/ curfptr[431]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V433*/ curfptr[432]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V432*/ curfptr[431]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])))); ((basilysobject_ptr_t)(/*_.VALDATA___V434*/ curfptr[433]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V435*/ curfptr[434]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V434*/ curfptr[433]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])))); ((basilysobject_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V437*/ curfptr[436]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V436*/ curfptr[435]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])))); ((basilysobject_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V439*/ curfptr[438]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])))); ((basilysobject_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V440*/ curfptr[439]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V440*/ curfptr[439])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V440*/ curfptr[439]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V440*/ curfptr[439]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V440*/ curfptr[439])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V440*/ curfptr[439]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V440*/ curfptr[439]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V440*/ curfptr[439])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V440*/ curfptr[439]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V440*/ curfptr[439]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])))); ((basilysobject_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V440*/ curfptr[439]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])))); ((basilysobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V442*/ curfptr[441]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])))); ((basilysobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V438*/ curfptr[437]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V441*/ curfptr[440]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V443*/ curfptr[442]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V443*/ curfptr[442])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V443*/ curfptr[442]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V443*/ curfptr[442]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V443*/ curfptr[442])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V443*/ curfptr[442]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V443*/ curfptr[442]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437])))); ((basilysobject_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V443*/ curfptr[442]); BASILYS_LOCATION("warmelt-genobj.melt:238:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V438*/ curfptr[437]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V445*/ curfptr[444]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V444*/ curfptr[443]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])))); ((basilysobject_ptr_t)(/*_.VALDATA___V446*/ curfptr[445]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V447*/ curfptr[446]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V446*/ curfptr[445]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])))); ((basilysobject_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V449*/ curfptr[448]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])))); ((basilysobject_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V362*/ curfptr[361]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V450*/ curfptr[449])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V450*/ curfptr[449]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V450*/ curfptr[449]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])))); ((basilysobject_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V450*/ curfptr[449]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])))); ((basilysobject_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V452*/ curfptr[451]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])))); ((basilysobject_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V451*/ curfptr[450]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])))); ((basilysobject_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V454*/ curfptr[453]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])))); ((basilysobject_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V453*/ curfptr[452]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])))); ((basilysobject_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V456*/ curfptr[455]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])))); ((basilysobject_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V455*/ curfptr[454]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V457*/ curfptr[456])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V457*/ curfptr[456]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V457*/ curfptr[456]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])))); ((basilysobject_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V457*/ curfptr[456]); BASILYS_LOCATION("warmelt-genobj.melt:244:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V448*/ curfptr[447]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])))); ((basilysobject_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V459*/ curfptr[458]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V458*/ curfptr[457]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459])))); ((basilysobject_ptr_t)(/*_.VALDATA___V460*/ curfptr[459]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V461*/ curfptr[460]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V460*/ curfptr[459]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])))); ((basilysobject_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V463*/ curfptr[462]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V462*/ curfptr[461]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])))); ((basilysobject_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V465*/ curfptr[464]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V464*/ curfptr[463]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])))); ((basilysobject_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V467*/ curfptr[466]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])))); ((basilysobject_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V468*/ curfptr[467])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V468*/ curfptr[467]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V468*/ curfptr[467]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])))); ((basilysobject_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V468*/ curfptr[467]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])))); ((basilysobject_ptr_t)(/*_.VALDATA___V469*/ curfptr[468]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V470*/ curfptr[469]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468])))); ((basilysobject_ptr_t)(/*_.VALDATA___V469*/ curfptr[468]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V469*/ curfptr[468]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])))); ((basilysobject_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V472*/ curfptr[471]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470])))); ((basilysobject_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V471*/ curfptr[470]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])))); ((basilysobject_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V474*/ curfptr[473]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472])))); ((basilysobject_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V473*/ curfptr[472]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V469*/ curfptr[468]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V471*/ curfptr[470]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V475*/ curfptr[474])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V475*/ curfptr[474]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V475*/ curfptr[474]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])))); ((basilysobject_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V475*/ curfptr[474]); BASILYS_LOCATION("warmelt-genobj.melt:252:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V466*/ curfptr[465]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])))); ((basilysobject_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V477*/ curfptr[476]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V476*/ curfptr[475]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477])))); ((basilysobject_ptr_t)(/*_.VALDATA___V478*/ curfptr[477]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V479*/ curfptr[478]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V478*/ curfptr[477]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])))); ((basilysobject_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V481*/ curfptr[480]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V480*/ curfptr[479]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])))); ((basilysobject_ptr_t)(/*_.VALDATA___V482*/ curfptr[481]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V483*/ curfptr[482]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V482*/ curfptr[481]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V485*/ curfptr[484]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V486*/ curfptr[485])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V486*/ curfptr[485]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V486*/ curfptr[485]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V486*/ curfptr[485]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])))); ((basilysobject_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V488*/ curfptr[487]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])))); ((basilysobject_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V484*/ curfptr[483]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488])))); ((basilysobject_ptr_t)(/*_.VALDATA___V489*/ curfptr[488]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V490*/ curfptr[489]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488])))); ((basilysobject_ptr_t)(/*_.VALDATA___V489*/ curfptr[488]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V484*/ curfptr[483]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V489*/ curfptr[488]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])))); ((basilysobject_ptr_t)(/*_.VALDATA___V491*/ curfptr[490]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V492*/ curfptr[491]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])))); ((basilysobject_ptr_t)(/*_.VALDATA___V491*/ curfptr[490]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V484*/ curfptr[483]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V491*/ curfptr[490]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V493*/ curfptr[492])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V493*/ curfptr[492]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-genobj.melt:260:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V484*/ curfptr[483]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])))); ((basilysobject_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V495*/ curfptr[494]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V494*/ curfptr[493]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495])))); ((basilysobject_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V497*/ curfptr[496]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V496*/ curfptr[495]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])))); ((basilysobject_ptr_t)(/*_.VALDATA___V498*/ curfptr[497]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V499*/ curfptr[498]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V498*/ curfptr[497]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])))); ((basilysobject_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V501*/ curfptr[500]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V500*/ curfptr[499]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])))); ((basilysobject_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V503*/ curfptr[502]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])))); ((basilysobject_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V504*/ curfptr[503]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V504*/ curfptr[503])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V504*/ curfptr[503]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V504*/ curfptr[503]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V504*/ curfptr[503])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V504*/ curfptr[503]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V504*/ curfptr[503]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V504*/ curfptr[503])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V504*/ curfptr[503]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V504*/ curfptr[503]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])))); ((basilysobject_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V504*/ curfptr[503]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V506*/ curfptr[505]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V502*/ curfptr[501]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V505*/ curfptr[504]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V507*/ curfptr[506])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V507*/ curfptr[506]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501])))); ((basilysobject_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-genobj.melt:269:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V502*/ curfptr[501]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])))); ((basilysobject_ptr_t)(/*_.VALDATA___V508*/ curfptr[507]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V509*/ curfptr[508]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V508*/ curfptr[507]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])))); ((basilysobject_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V511*/ curfptr[510]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V510*/ curfptr[509]); BASILYS_LOCATION("warmelt-genobj.melt:275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])))); ((basilysobject_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-genobj.melt:275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])))); ((basilysobject_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V502*/ curfptr[501]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V514*/ curfptr[513])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V514*/ curfptr[513]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V514*/ curfptr[513]); BASILYS_LOCATION("warmelt-genobj.melt:275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])))); ((basilysobject_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V514*/ curfptr[513]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V515*/ curfptr[514]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V515*/ curfptr[514])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V515*/ curfptr[514]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V515*/ curfptr[514]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V515*/ curfptr[514])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V515*/ curfptr[514]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V515*/ curfptr[514]); BASILYS_LOCATION("warmelt-genobj.melt:275:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511])))); ((basilysobject_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V515*/ curfptr[514]); BASILYS_LOCATION("warmelt-genobj.melt:275:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V512*/ curfptr[511]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])))); ((basilysobject_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V517*/ curfptr[516]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V516*/ curfptr[515]); BASILYS_LOCATION("warmelt-genobj.melt:280:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])))); ((basilysobject_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V519*/ curfptr[518]); BASILYS_LOCATION("warmelt-genobj.melt:280:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])))); ((basilysobject_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V502*/ curfptr[501]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V520*/ curfptr[519])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V520*/ curfptr[519]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V502*/ curfptr[501]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V520*/ curfptr[519]); BASILYS_LOCATION("warmelt-genobj.melt:280:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])))); ((basilysobject_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V520*/ curfptr[519]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V521*/ curfptr[520]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V521*/ curfptr[520])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V521*/ curfptr[520]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V521*/ curfptr[520]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V521*/ curfptr[520])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V521*/ curfptr[520]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V521*/ curfptr[520]); BASILYS_LOCATION("warmelt-genobj.melt:280:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])))); ((basilysobject_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V521*/ curfptr[520]); BASILYS_LOCATION("warmelt-genobj.melt:280:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V518*/ curfptr[517]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])))); ((basilysobject_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V523*/ curfptr[522]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V522*/ curfptr[521]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])))); ((basilysobject_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V525*/ curfptr[524]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])))); ((basilysobject_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V526*/ curfptr[525]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V526*/ curfptr[525])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V526*/ curfptr[525]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V526*/ curfptr[525]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V526*/ curfptr[525])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V526*/ curfptr[525]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V526*/ curfptr[525]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V526*/ curfptr[525])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V526*/ curfptr[525]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V526*/ curfptr[525]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])))); ((basilysobject_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V526*/ curfptr[525]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])))); ((basilysobject_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V528*/ curfptr[527]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])))); ((basilysobject_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V524*/ curfptr[523]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V527*/ curfptr[526]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V529*/ curfptr[528])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V529*/ curfptr[528]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V529*/ curfptr[528]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])))); ((basilysobject_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V529*/ curfptr[528]); BASILYS_LOCATION("warmelt-genobj.melt:286:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V524*/ curfptr[523]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529])))); ((basilysobject_ptr_t)(/*_.VALDATA___V530*/ curfptr[529]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V531*/ curfptr[530]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V530*/ curfptr[529]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531])))); ((basilysobject_ptr_t)(/*_.VALDATA___V532*/ curfptr[531]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V533*/ curfptr[532]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V532*/ curfptr[531]); BASILYS_LOCATION("warmelt-genobj.melt:292:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])))); ((basilysobject_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V535*/ curfptr[534]); BASILYS_LOCATION("warmelt-genobj.melt:292:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])))); ((basilysobject_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V524*/ curfptr[523]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V536*/ curfptr[535])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V536*/ curfptr[535]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V536*/ curfptr[535]); BASILYS_LOCATION("warmelt-genobj.melt:292:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])))); ((basilysobject_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V536*/ curfptr[535]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V537*/ curfptr[536]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V537*/ curfptr[536])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V537*/ curfptr[536]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V537*/ curfptr[536]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V537*/ curfptr[536])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V537*/ curfptr[536]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V537*/ curfptr[536]); BASILYS_LOCATION("warmelt-genobj.melt:292:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533])))); ((basilysobject_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V537*/ curfptr[536]); BASILYS_LOCATION("warmelt-genobj.melt:292:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V534*/ curfptr[533]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V538*/ curfptr[537])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V538*/ curfptr[537])))); ((basilysobject_ptr_t)(/*_.VALDATA___V538*/ curfptr[537]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V539*/ curfptr[538]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V538*/ curfptr[537]); BASILYS_LOCATION("warmelt-genobj.melt:297:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])))); ((basilysobject_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V541*/ curfptr[540]); BASILYS_LOCATION("warmelt-genobj.melt:297:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])))); ((basilysobject_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V524*/ curfptr[523]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V542*/ curfptr[541])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V542*/ curfptr[541]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V542*/ curfptr[541]); BASILYS_LOCATION("warmelt-genobj.melt:297:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])))); ((basilysobject_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V542*/ curfptr[541]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V543*/ curfptr[542])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V543*/ curfptr[542]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V543*/ curfptr[542]); BASILYS_LOCATION("warmelt-genobj.melt:297:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539])))); ((basilysobject_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V543*/ curfptr[542]); BASILYS_LOCATION("warmelt-genobj.melt:297:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V540*/ curfptr[539]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])))); ((basilysobject_ptr_t)(/*_.VALDATA___V544*/ curfptr[543]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V545*/ curfptr[544]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V544*/ curfptr[543]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])))); ((basilysobject_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])))); ((basilysobject_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V548*/ curfptr[547])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V548*/ curfptr[547]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V548*/ curfptr[547]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])))); ((basilysobject_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V548*/ curfptr[547]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])))); ((basilysobject_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V550*/ curfptr[549]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548])))); ((basilysobject_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V546*/ curfptr[545]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V549*/ curfptr[548]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])))); ((basilysobject_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V552*/ curfptr[551]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550])))); ((basilysobject_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V546*/ curfptr[545]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V551*/ curfptr[550]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V553*/ curfptr[552])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V553*/ curfptr[552]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V553*/ curfptr[552]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545])))); ((basilysobject_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V553*/ curfptr[552]); BASILYS_LOCATION("warmelt-genobj.melt:303:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V546*/ curfptr[545]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])))); ((basilysobject_ptr_t)(/*_.VALDATA___V554*/ curfptr[553]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V555*/ curfptr[554]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V554*/ curfptr[553]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])))); ((basilysobject_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V557*/ curfptr[556]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V556*/ curfptr[555]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])))); ((basilysobject_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V559*/ curfptr[558]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V558*/ curfptr[557]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V561*/ curfptr[560]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V546*/ curfptr[545]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V562*/ curfptr[561])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V562*/ curfptr[561]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V562*/ curfptr[561]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V562*/ curfptr[561]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V564*/ curfptr[563]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V560*/ curfptr[559]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V565*/ curfptr[564])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V565*/ curfptr[564]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V565*/ curfptr[564]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])))); ((basilysobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V565*/ curfptr[564]); BASILYS_LOCATION("warmelt-genobj.melt:310:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V560*/ curfptr[559]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])))); ((basilysobject_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V567*/ curfptr[566]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V566*/ curfptr[565]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])))); ((basilysobject_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V569*/ curfptr[568]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V568*/ curfptr[567]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])))); ((basilysobject_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V571*/ curfptr[570]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])))); ((basilysobject_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V572*/ curfptr[571])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V572*/ curfptr[571]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])))); ((basilysobject_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V572*/ curfptr[571]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])))); ((basilysobject_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V574*/ curfptr[573]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])))); ((basilysobject_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V573*/ curfptr[572]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])))); ((basilysobject_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V576*/ curfptr[575]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])))); ((basilysobject_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V575*/ curfptr[574]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])))); ((basilysobject_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V578*/ curfptr[577]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])))); ((basilysobject_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V577*/ curfptr[576]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V579*/ curfptr[578])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V579*/ curfptr[578]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V579*/ curfptr[578]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])))); ((basilysobject_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V579*/ curfptr[578]); BASILYS_LOCATION("warmelt-genobj.melt:316:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V570*/ curfptr[569]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V580*/ curfptr[579])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V580*/ curfptr[579])))); ((basilysobject_ptr_t)(/*_.VALDATA___V580*/ curfptr[579]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V581*/ curfptr[580]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V580*/ curfptr[579]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])))); ((basilysobject_ptr_t)(/*_.VALDATA___V582*/ curfptr[581]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V583*/ curfptr[582]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V582*/ curfptr[581]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])))); ((basilysobject_ptr_t)(/*_.VALDATA___V584*/ curfptr[583]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V585*/ curfptr[584]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V584*/ curfptr[583]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585])))); ((basilysobject_ptr_t)(/*_.VALDATA___V586*/ curfptr[585]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V587*/ curfptr[586]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V586*/ curfptr[585]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])))); ((basilysobject_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V589*/ curfptr[588]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])))); ((basilysobject_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V570*/ curfptr[569]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V590*/ curfptr[589])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V590*/ curfptr[589]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V590*/ curfptr[589]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])))); ((basilysobject_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V590*/ curfptr[589]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])))); ((basilysobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V592*/ curfptr[591]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])))); ((basilysobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V588*/ curfptr[587]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V591*/ curfptr[590]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V593*/ curfptr[592])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V593*/ curfptr[592]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V593*/ curfptr[592]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587])))); ((basilysobject_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V593*/ curfptr[592]); BASILYS_LOCATION("warmelt-genobj.melt:324:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V588*/ curfptr[587]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593])))); ((basilysobject_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V595*/ curfptr[594]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V594*/ curfptr[593]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])))); ((basilysobject_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V597*/ curfptr[596]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V596*/ curfptr[595]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V599*/ curfptr[598]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V600*/ curfptr[599])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V600*/ curfptr[599]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V600*/ curfptr[599]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V600*/ curfptr[599]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])))); ((basilysobject_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V602*/ curfptr[601]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])))); ((basilysobject_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V598*/ curfptr[597]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V601*/ curfptr[600]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])))); ((basilysobject_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V604*/ curfptr[603]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])))); ((basilysobject_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V598*/ curfptr[597]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V603*/ curfptr[602]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])))); ((basilysobject_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V606*/ curfptr[605]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])))); ((basilysobject_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V598*/ curfptr[597]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V605*/ curfptr[604]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V607*/ curfptr[606])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V607*/ curfptr[606]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V607*/ curfptr[606]); BASILYS_LOCATION("warmelt-genobj.melt:330:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V598*/ curfptr[597]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V608*/ curfptr[607])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V608*/ curfptr[607])))); ((basilysobject_ptr_t)(/*_.VALDATA___V608*/ curfptr[607]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V609*/ curfptr[608]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V608*/ curfptr[607]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])))); ((basilysobject_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V611*/ curfptr[610]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V610*/ curfptr[609]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])))); ((basilysobject_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V613*/ curfptr[612]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V612*/ curfptr[611]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])))); ((basilysobject_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V615*/ curfptr[614]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V614*/ curfptr[613]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])))); ((basilysobject_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V617*/ curfptr[616]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])))); ((basilysobject_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V618*/ curfptr[617]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])))); ((basilysobject_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V618*/ curfptr[617]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])))); ((basilysobject_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V620*/ curfptr[619]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])))); ((basilysobject_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V616*/ curfptr[615]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V619*/ curfptr[618]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])))); ((basilysobject_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V622*/ curfptr[621]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])))); ((basilysobject_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V616*/ curfptr[615]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V621*/ curfptr[620]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])))); ((basilysobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V624*/ curfptr[623]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])))); ((basilysobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V616*/ curfptr[615]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V623*/ curfptr[622]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V625*/ curfptr[624])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V625*/ curfptr[624]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V625*/ curfptr[624]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])))); ((basilysobject_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V625*/ curfptr[624]); BASILYS_LOCATION("warmelt-genobj.melt:340:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V616*/ curfptr[615]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625])))); ((basilysobject_ptr_t)(/*_.VALDATA___V626*/ curfptr[625]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V627*/ curfptr[626]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V626*/ curfptr[625]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])))); ((basilysobject_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V629*/ curfptr[628]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V628*/ curfptr[627]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629])))); ((basilysobject_ptr_t)(/*_.VALDATA___V630*/ curfptr[629]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V631*/ curfptr[630]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V630*/ curfptr[629]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])))); ((basilysobject_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V633*/ curfptr[632]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V632*/ curfptr[631]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V635*/ curfptr[634]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V636*/ curfptr[635])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V636*/ curfptr[635]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V636*/ curfptr[635]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V636*/ curfptr[635]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])))); ((basilysobject_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V638*/ curfptr[637]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])))); ((basilysobject_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V634*/ curfptr[633]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V637*/ curfptr[636]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])))); ((basilysobject_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V640*/ curfptr[639]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])))); ((basilysobject_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V634*/ curfptr[633]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V639*/ curfptr[638]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])))); ((basilysobject_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V642*/ curfptr[641]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])))); ((basilysobject_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V634*/ curfptr[633]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V641*/ curfptr[640]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V643*/ curfptr[642])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V643*/ curfptr[642]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V643*/ curfptr[642]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633])))); ((basilysobject_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V643*/ curfptr[642]); BASILYS_LOCATION("warmelt-genobj.melt:348:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V634*/ curfptr[633]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])))); ((basilysobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V645*/ curfptr[644]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V644*/ curfptr[643]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])))); ((basilysobject_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V647*/ curfptr[646]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V646*/ curfptr[645]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])))); ((basilysobject_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V649*/ curfptr[648]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V648*/ curfptr[647]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649])))); ((basilysobject_ptr_t)(/*_.VALDATA___V650*/ curfptr[649]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V651*/ curfptr[650]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V650*/ curfptr[649]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])))); ((basilysobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V653*/ curfptr[652]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])))); ((basilysobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V654*/ curfptr[653]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])))); ((basilysobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V654*/ curfptr[653]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])))); ((basilysobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V656*/ curfptr[655]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])))); ((basilysobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V655*/ curfptr[654]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])))); ((basilysobject_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V658*/ curfptr[657]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])))); ((basilysobject_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V657*/ curfptr[656]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V660*/ curfptr[659]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V659*/ curfptr[658]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])))); ((basilysobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V662*/ curfptr[661]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])))); ((basilysobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V661*/ curfptr[660]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V663*/ curfptr[662])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V663*/ curfptr[662]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V663*/ curfptr[662]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])))); ((basilysobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V663*/ curfptr[662]); BASILYS_LOCATION("warmelt-genobj.melt:356:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V652*/ curfptr[651]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])))); ((basilysobject_ptr_t)(/*_.VALDATA___V664*/ curfptr[663]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V665*/ curfptr[664]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V664*/ curfptr[663]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665])))); ((basilysobject_ptr_t)(/*_.VALDATA___V666*/ curfptr[665]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V667*/ curfptr[666]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V666*/ curfptr[665]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])))); ((basilysobject_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V669*/ curfptr[668]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V668*/ curfptr[667]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V670*/ curfptr[669])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V670*/ curfptr[669])))); ((basilysobject_ptr_t)(/*_.VALDATA___V670*/ curfptr[669]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V671*/ curfptr[670]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V670*/ curfptr[669]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])))); ((basilysobject_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V673*/ curfptr[672]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V672*/ curfptr[671]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])))); ((basilysobject_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V675*/ curfptr[674]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])))); ((basilysobject_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V298*/ curfptr[297]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V676*/ curfptr[675])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V676*/ curfptr[675]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V676*/ curfptr[675]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])))); ((basilysobject_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V676*/ curfptr[675]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])))); ((basilysobject_ptr_t)(/*_.VALDATA___V677*/ curfptr[676]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V678*/ curfptr[677]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676])))); ((basilysobject_ptr_t)(/*_.VALDATA___V677*/ curfptr[676]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V677*/ curfptr[676]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])))); ((basilysobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V680*/ curfptr[679]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])))); ((basilysobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V679*/ curfptr[678]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V301*/ curfptr[300]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V677*/ curfptr[676]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V681*/ curfptr[680])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V681*/ curfptr[680]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V681*/ curfptr[680]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])))); ((basilysobject_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V681*/ curfptr[680]); BASILYS_LOCATION("warmelt-genobj.melt:366:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V674*/ curfptr[673]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])))); ((basilysobject_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V683*/ curfptr[682]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V682*/ curfptr[681]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])))); ((basilysobject_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V685*/ curfptr[684]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V684*/ curfptr[683]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V686*/ curfptr[685])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V686*/ curfptr[685])))); ((basilysobject_ptr_t)(/*_.VALDATA___V686*/ curfptr[685]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V687*/ curfptr[686]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V686*/ curfptr[685]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])))); ((basilysobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V689*/ curfptr[688]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])))); ((basilysobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V690*/ curfptr[689])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V690*/ curfptr[689]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V690*/ curfptr[689]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])))); ((basilysobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V690*/ curfptr[689]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])))); ((basilysobject_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V692*/ curfptr[691]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])))); ((basilysobject_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V688*/ curfptr[687]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V691*/ curfptr[690]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])))); ((basilysobject_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V694*/ curfptr[693]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])))); ((basilysobject_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V688*/ curfptr[687]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V693*/ curfptr[692]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V695*/ curfptr[694]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V695*/ curfptr[694])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V695*/ curfptr[694]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V695*/ curfptr[694]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V695*/ curfptr[694])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V695*/ curfptr[694]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V695*/ curfptr[694]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V695*/ curfptr[694])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V695*/ curfptr[694]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V695*/ curfptr[694]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])))); ((basilysobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V695*/ curfptr[694]); BASILYS_LOCATION("warmelt-genobj.melt:373:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V688*/ curfptr[687]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V696*/ curfptr[695])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V696*/ curfptr[695])))); ((basilysobject_ptr_t)(/*_.VALDATA___V696*/ curfptr[695]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V697*/ curfptr[696]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V696*/ curfptr[695]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])))); ((basilysobject_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V699*/ curfptr[698]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V698*/ curfptr[697]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])))); ((basilysobject_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V701*/ curfptr[700]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V700*/ curfptr[699]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])))); ((basilysobject_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V703*/ curfptr[702]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])))); ((basilysobject_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V704*/ curfptr[703]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V704*/ curfptr[703])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V704*/ curfptr[703]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V704*/ curfptr[703]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V704*/ curfptr[703])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V704*/ curfptr[703]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V704*/ curfptr[703]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V704*/ curfptr[703])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V704*/ curfptr[703]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V704*/ curfptr[703]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])))); ((basilysobject_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V704*/ curfptr[703]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V706*/ curfptr[705]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])))); ((basilysobject_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V708*/ curfptr[707]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706])))); ((basilysobject_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V707*/ curfptr[706]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])))); ((basilysobject_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V710*/ curfptr[709]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])))); ((basilysobject_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V709*/ curfptr[708]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V711*/ curfptr[710])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V711*/ curfptr[710]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V711*/ curfptr[710]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])))); ((basilysobject_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V711*/ curfptr[710]); BASILYS_LOCATION("warmelt-genobj.melt:380:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V702*/ curfptr[701]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])))); ((basilysobject_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V713*/ curfptr[712]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V712*/ curfptr[711]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])))); ((basilysobject_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V715*/ curfptr[714]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V714*/ curfptr[713]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])))); ((basilysobject_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V717*/ curfptr[716]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V716*/ curfptr[715]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])))); ((basilysobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V719*/ curfptr[718]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V718*/ curfptr[717]); BASILYS_LOCATION("warmelt-genobj.melt:388:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])))); ((basilysobject_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V721*/ curfptr[720]); BASILYS_LOCATION("warmelt-genobj.melt:388:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])))); ((basilysobject_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V702*/ curfptr[701]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V722*/ curfptr[721])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V722*/ curfptr[721]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V722*/ curfptr[721]); BASILYS_LOCATION("warmelt-genobj.melt:388:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])))); ((basilysobject_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V722*/ curfptr[721]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V723*/ curfptr[722]); BASILYS_LOCATION("warmelt-genobj.melt:388:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])))); ((basilysobject_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V723*/ curfptr[722]); BASILYS_LOCATION("warmelt-genobj.melt:388:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V720*/ curfptr[719]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])))); ((basilysobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V725*/ curfptr[724]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V724*/ curfptr[723]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])))); ((basilysobject_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V727*/ curfptr[726]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])))); ((basilysobject_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V728*/ curfptr[727]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V728*/ curfptr[727])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V728*/ curfptr[727]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V728*/ curfptr[727]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V728*/ curfptr[727])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V728*/ curfptr[727]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V728*/ curfptr[727]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V728*/ curfptr[727])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V728*/ curfptr[727]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V728*/ curfptr[727]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])))); ((basilysobject_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V728*/ curfptr[727]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V729*/ curfptr[728])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V729*/ curfptr[728])))); ((basilysobject_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V730*/ curfptr[729]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V729*/ curfptr[728])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V729*/ curfptr[728])))); ((basilysobject_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V729*/ curfptr[728]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])))); ((basilysobject_ptr_t)(/*_.VALDATA___V731*/ curfptr[730]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V732*/ curfptr[731]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730])))); ((basilysobject_ptr_t)(/*_.VALDATA___V731*/ curfptr[730]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V731*/ curfptr[730]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])))); ((basilysobject_ptr_t)(/*_.VALDATA___V733*/ curfptr[732]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V734*/ curfptr[733]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732])))); ((basilysobject_ptr_t)(/*_.VALDATA___V733*/ curfptr[732]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V733*/ curfptr[732]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V735*/ curfptr[734])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V735*/ curfptr[734]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V735*/ curfptr[734]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])))); ((basilysobject_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V735*/ curfptr[734]); BASILYS_LOCATION("warmelt-genobj.melt:394:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V726*/ curfptr[725]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V736*/ curfptr[735])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V736*/ curfptr[735])))); ((basilysobject_ptr_t)(/*_.VALDATA___V736*/ curfptr[735]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V737*/ curfptr[736]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V736*/ curfptr[735]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])))); ((basilysobject_ptr_t)(/*_.VALDATA___V738*/ curfptr[737]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V739*/ curfptr[738]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V738*/ curfptr[737]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739])))); ((basilysobject_ptr_t)(/*_.VALDATA___V740*/ curfptr[739]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V741*/ curfptr[740]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V740*/ curfptr[739]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])))); ((basilysobject_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V743*/ curfptr[742]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V742*/ curfptr[741]); BASILYS_LOCATION("warmelt-genobj.melt:402:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V745*/ curfptr[744]); BASILYS_LOCATION("warmelt-genobj.melt:402:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V726*/ curfptr[725]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V746*/ curfptr[745])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V746*/ curfptr[745]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V746*/ curfptr[745]); BASILYS_LOCATION("warmelt-genobj.melt:402:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V746*/ curfptr[745]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V731*/ curfptr[730]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V747*/ curfptr[746])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V747*/ curfptr[746]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V733*/ curfptr[732]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V747*/ curfptr[746]); BASILYS_LOCATION("warmelt-genobj.melt:402:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])))); ((basilysobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V747*/ curfptr[746]); BASILYS_LOCATION("warmelt-genobj.melt:402:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V744*/ curfptr[743]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])))); ((basilysobject_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V749*/ curfptr[748]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V748*/ curfptr[747]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])))); ((basilysobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V751*/ curfptr[750]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])))); ((basilysobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V752*/ curfptr[751])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V752*/ curfptr[751]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V752*/ curfptr[751]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])))); ((basilysobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V752*/ curfptr[751]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])))); ((basilysobject_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V754*/ curfptr[753]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752])))); ((basilysobject_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V753*/ curfptr[752]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])))); ((basilysobject_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V756*/ curfptr[755]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754])))); ((basilysobject_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V755*/ curfptr[754]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V757*/ curfptr[756]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V757*/ curfptr[756])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V757*/ curfptr[756]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V757*/ curfptr[756]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V757*/ curfptr[756])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V757*/ curfptr[756]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V757*/ curfptr[756]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V757*/ curfptr[756])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V757*/ curfptr[756]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V757*/ curfptr[756]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])))); ((basilysobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V757*/ curfptr[756]); BASILYS_LOCATION("warmelt-genobj.melt:408:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V750*/ curfptr[749]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])))); ((basilysobject_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V759*/ curfptr[758]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V758*/ curfptr[757]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V760*/ curfptr[759])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V760*/ curfptr[759])))); ((basilysobject_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V761*/ curfptr[760]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V760*/ curfptr[759]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])))); ((basilysobject_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V763*/ curfptr[762]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V762*/ curfptr[761]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])))); ((basilysobject_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V765*/ curfptr[764]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])))); ((basilysobject_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V278*/ curfptr[277]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V766*/ curfptr[765])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V766*/ curfptr[765])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V766*/ curfptr[765])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V766*/ curfptr[765]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])))); ((basilysobject_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V766*/ curfptr[765]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])))); ((basilysobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V768*/ curfptr[767]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])))); ((basilysobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V764*/ curfptr[763]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V767*/ curfptr[766]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])))); ((basilysobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V770*/ curfptr[769]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])))); ((basilysobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V764*/ curfptr[763]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V769*/ curfptr[768]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V771*/ curfptr[770])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V771*/ curfptr[770]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V771*/ curfptr[770]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])))); ((basilysobject_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V771*/ curfptr[770]); BASILYS_LOCATION("warmelt-genobj.melt:415:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V764*/ curfptr[763]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771])))); ((basilysobject_ptr_t)(/*_.VALDATA___V772*/ curfptr[771]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V773*/ curfptr[772]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V772*/ curfptr[771]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])))); ((basilysobject_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V775*/ curfptr[774]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V774*/ curfptr[773]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V776*/ curfptr[775])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V776*/ curfptr[775])))); ((basilysobject_ptr_t)(/*_.VALDATA___V776*/ curfptr[775]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V777*/ curfptr[776]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V776*/ curfptr[775]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])))); ((basilysobject_ptr_t)(/*_.VALDATA___V778*/ curfptr[777]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V779*/ curfptr[778]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V778*/ curfptr[777]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])))); ((basilysobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V781*/ curfptr[780]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])))); ((basilysobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_NAMED__V8*/ curfptr[7]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V782*/ curfptr[781]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V782*/ curfptr[781])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V782*/ curfptr[781]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V782*/ curfptr[781]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V782*/ curfptr[781])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V782*/ curfptr[781]))->tabval[1] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),5))), (1)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V782*/ curfptr[781]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V782*/ curfptr[781])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V782*/ curfptr[781]))->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V782*/ curfptr[781]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])))); ((basilysobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V782*/ curfptr[781]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])))); ((basilysobject_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V784*/ curfptr[783]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])))); ((basilysobject_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V783*/ curfptr[782]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])))); ((basilysobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V786*/ curfptr[785]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])))); ((basilysobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V785*/ curfptr[784]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])))); ((basilysobject_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V788*/ curfptr[787]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])))); ((basilysobject_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V787*/ curfptr[786]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])))); ((basilysobject_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V790*/ curfptr[789]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])))); ((basilysobject_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V789*/ curfptr[788]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790])))); ((basilysobject_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V792*/ curfptr[791]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790])))); ((basilysobject_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V791*/ curfptr[790]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])))); ((basilysobject_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V794*/ curfptr[793]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])))); ((basilysobject_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V793*/ curfptr[792]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])))); ((basilysobject_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V796*/ curfptr[795]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794])))); ((basilysobject_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V795*/ curfptr[794]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),6))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[1] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),6))), (1)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V797*/ curfptr[796])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V797*/ curfptr[796]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V797*/ curfptr[796]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])))); ((basilysobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V797*/ curfptr[796]); BASILYS_LOCATION("warmelt-genobj.melt:423:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V780*/ curfptr[779]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])))); ((basilysobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V799*/ curfptr[798]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V798*/ curfptr[797]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V800*/ curfptr[799])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V800*/ curfptr[799])))); ((basilysobject_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V801*/ curfptr[800]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V800*/ curfptr[799]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])))); ((basilysobject_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V803*/ curfptr[802]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V802*/ curfptr[801]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])))); ((basilysobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V805*/ curfptr[804]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V804*/ curfptr[803]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V806*/ curfptr[805])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V806*/ curfptr[805])))); ((basilysobject_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V807*/ curfptr[806]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V806*/ curfptr[805]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])))); ((basilysobject_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V809*/ curfptr[808]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V808*/ curfptr[807]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])))); ((basilysobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V811*/ curfptr[810]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V810*/ curfptr[809]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])))); ((basilysobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V813*/ curfptr[812]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V812*/ curfptr[811]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])))); ((basilysobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V815*/ curfptr[814]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])))); ((basilysobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))->tabval[1] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),5))), (1)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V816*/ curfptr[815])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V816*/ curfptr[815]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V816*/ curfptr[815]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])))); ((basilysobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V816*/ curfptr[815]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])))); ((basilysobject_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V818*/ curfptr[817]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])))); ((basilysobject_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V817*/ curfptr[816]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])))); ((basilysobject_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V820*/ curfptr[819]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])))); ((basilysobject_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V819*/ curfptr[818]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V822*/ curfptr[821]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V821*/ curfptr[820]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),6))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[1] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),6))), (1)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (9>=0 && 9< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (10>=0 && 10< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (11>=0 && 11< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V823*/ curfptr[822])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V823*/ curfptr[822]))->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V823*/ curfptr[822]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])))); ((basilysobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V823*/ curfptr[822]); BASILYS_LOCATION("warmelt-genobj.melt:438:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V814*/ curfptr[813]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])))); ((basilysobject_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V825*/ curfptr[824]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V824*/ curfptr[823]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])))); ((basilysobject_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V827*/ curfptr[826]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V826*/ curfptr[825]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827])))); ((basilysobject_ptr_t)(/*_.VALDATA___V828*/ curfptr[827]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V829*/ curfptr[828]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V828*/ curfptr[827]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829])))); ((basilysobject_ptr_t)(/*_.VALDATA___V830*/ curfptr[829]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V831*/ curfptr[830]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V830*/ curfptr[829]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])))); ((basilysobject_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V833*/ curfptr[832]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])))); ((basilysobject_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V780*/ curfptr[779]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))->tabval[1] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),5))), (1)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V834*/ curfptr[833])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V834*/ curfptr[833]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])))); ((basilysobject_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])))); ((basilysobject_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V836*/ curfptr[835]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])))); ((basilysobject_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V835*/ curfptr[834]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])))); ((basilysobject_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V838*/ curfptr[837]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])))); ((basilysobject_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V837*/ curfptr[836]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V839*/ curfptr[838])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V839*/ curfptr[838])))); ((basilysobject_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V840*/ curfptr[839]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V839*/ curfptr[838])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V839*/ curfptr[838])))); ((basilysobject_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V839*/ curfptr[838]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),6))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[1] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]),6))), (1)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V795*/ curfptr[794]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (9>=0 && 9< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (10>=0 && 10< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (11>=0 && 11< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V841*/ curfptr[840])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V841*/ curfptr[840]))->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V841*/ curfptr[840]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831])))); ((basilysobject_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V841*/ curfptr[840]); BASILYS_LOCATION("warmelt-genobj.melt:446:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V832*/ curfptr[831]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])))); ((basilysobject_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V843*/ curfptr[842]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V842*/ curfptr[841]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V844*/ curfptr[843])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V844*/ curfptr[843])))); ((basilysobject_ptr_t)(/*_.VALDATA___V844*/ curfptr[843]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V845*/ curfptr[844]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V844*/ curfptr[843]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])))); ((basilysobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V847*/ curfptr[846]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V846*/ curfptr[845]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])))); ((basilysobject_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V849*/ curfptr[848]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V848*/ curfptr[847]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V850*/ curfptr[849])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V850*/ curfptr[849])))); ((basilysobject_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V851*/ curfptr[850]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V850*/ curfptr[849]); BASILYS_LOCATION("warmelt-genobj.melt:520:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])))); ((basilysobject_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V853*/ curfptr[852]); BASILYS_LOCATION("warmelt-genobj.melt:520:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V852*/ curfptr[851]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V854*/ curfptr[853])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V854*/ curfptr[853])))); ((basilysobject_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V855*/ curfptr[854]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V854*/ curfptr[853]); BASILYS_LOCATION("warmelt-genobj.melt:527:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855])))); ((basilysobject_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V857*/ curfptr[856]); BASILYS_LOCATION("warmelt-genobj.melt:527:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V856*/ curfptr[855]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V858*/ curfptr[857])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V858*/ curfptr[857])))); ((basilysobject_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V859*/ curfptr[858]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V858*/ curfptr[857]); BASILYS_LOCATION("warmelt-genobj.melt:538:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V860*/ curfptr[859])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V860*/ curfptr[859])))); ((basilysobject_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V861*/ curfptr[860]); BASILYS_LOCATION("warmelt-genobj.melt:538:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V860*/ curfptr[859]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])))); ((basilysobject_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V863*/ curfptr[862]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V862*/ curfptr[861]); BASILYS_LOCATION("warmelt-genobj.melt:544:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V864*/ curfptr[863])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V864*/ curfptr[863])))); ((basilysobject_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V865*/ curfptr[864]); BASILYS_LOCATION("warmelt-genobj.melt:544:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V864*/ curfptr[863]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V866*/ curfptr[865])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V866*/ curfptr[865])))); ((basilysobject_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V867*/ curfptr[866]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V866*/ curfptr[865]); BASILYS_LOCATION("warmelt-genobj.melt:550:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V868*/ curfptr[867])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V868*/ curfptr[867])))); ((basilysobject_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V869*/ curfptr[868]); BASILYS_LOCATION("warmelt-genobj.melt:550:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V868*/ curfptr[867]); BASILYS_LOCATION("warmelt-genobj.melt:564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_755__COMPILOBJ_CATCHALL_NREP#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_755__COMPILOBJ_CATCHALL_NREP#1", NULL != (/*_.DISPLAYDEBUGMSG__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V870*/ curfptr[869])->tabval[1] = (basilys_ptr_t)(/*_.DISPLAYDEBUGMSG__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-genobj.melt:564:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V870*/ curfptr[869]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V871*/ curfptr[870])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V870*/ curfptr[869])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V871*/ curfptr[870])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V870*/ curfptr[869]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V871*/ curfptr[870]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871])))); ((basilysobject_ptr_t)(/*_.VALDATA___V872*/ curfptr[871]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V873*/ curfptr[872]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V872*/ curfptr[871]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])))); ((basilysobject_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V875*/ curfptr[874]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V874*/ curfptr[873]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])))); ((basilysobject_ptr_t)(/*_.VALDATA___V876*/ curfptr[875]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V877*/ curfptr[876]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V876*/ curfptr[875]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877])))); ((basilysobject_ptr_t)(/*_.VALDATA___V878*/ curfptr[877]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V879*/ curfptr[878]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V878*/ curfptr[877]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879])))); ((basilysobject_ptr_t)(/*_.VALDATA___V880*/ curfptr[879]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V881*/ curfptr[880]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V880*/ curfptr[879]); BASILYS_LOCATION("warmelt-genobj.melt:574:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V882*/ curfptr[881])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_767__PUTOBJDEST_CATCHALL_OBJCODE#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V882*/ curfptr[881])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:574:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V882*/ curfptr[881]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V883*/ curfptr[882])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V882*/ curfptr[881])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V883*/ curfptr[882])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V882*/ curfptr[881]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V883*/ curfptr[882]); BASILYS_LOCATION("warmelt-genobj.melt:584:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V884*/ curfptr[883])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_769__PUTOBJDEST_CATCHALL_ANYDISCR#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V884*/ curfptr[883])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:584:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V884*/ curfptr[883]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V885*/ curfptr[884])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V884*/ curfptr[883])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V885*/ curfptr[884])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V884*/ curfptr[883]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V885*/ curfptr[884]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885])))); ((basilysobject_ptr_t)(/*_.VALDATA___V886*/ curfptr[885]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V887*/ curfptr[886]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V886*/ curfptr[885]); BASILYS_LOCATION("warmelt-genobj.melt:595:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V888*/ curfptr[887])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V120*/ curfptr[119]); ((basilysroutine_ptr_t)/*_.VALROUT___V888*/ curfptr[887])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-genobj.melt:595:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V888*/ curfptr[887]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V889*/ curfptr[888])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V888*/ curfptr[887])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V889*/ curfptr[888])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V888*/ curfptr[887]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V889*/ curfptr[888]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])))); ((basilysobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V891*/ curfptr[890]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V890*/ curfptr[889]); BASILYS_LOCATION("warmelt-genobj.melt:605:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V892*/ curfptr[891])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_777__GECTYP_OBJNIL#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V892*/ curfptr[891])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:605:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V892*/ curfptr[891])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_777__GECTYP_OBJNIL#1", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V892*/ curfptr[891])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:605:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V892*/ curfptr[891]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V893*/ curfptr[892])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V892*/ curfptr[891])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V893*/ curfptr[892])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V892*/ curfptr[891]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V893*/ curfptr[892]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])))); ((basilysobject_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V895*/ curfptr[894]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V894*/ curfptr[893]); BASILYS_LOCATION("warmelt-genobj.melt:612:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V896*/ curfptr[895])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_781__DBGOUT_ROUTINEOBJ#0", NULL != (/*_.DBGOUT_NAMEDOBJECT_METHOD__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V896*/ curfptr[895])->tabval[0] = (basilys_ptr_t)(/*_.DBGOUT_NAMEDOBJECT_METHOD__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-genobj.melt:612:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V896*/ curfptr[895]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V897*/ curfptr[896])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V896*/ curfptr[895])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V897*/ curfptr[896])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V896*/ curfptr[895]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V897*/ curfptr[896]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])))); ((basilysobject_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V899*/ curfptr[898]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V898*/ curfptr[897]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])))); ((basilysobject_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V901*/ curfptr[900]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V900*/ curfptr[899]); BASILYS_LOCATION("warmelt-genobj.melt:620:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V902*/ curfptr[901])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V298*/ curfptr[297]); ((basilysroutine_ptr_t)/*_.VALROUT___V902*/ curfptr[901])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]); BASILYS_LOCATION("warmelt-genobj.melt:620:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V902*/ curfptr[901])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_787__PUTOBJDEST_OBJDESTINSTR#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V902*/ curfptr[901])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:620:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V902*/ curfptr[901])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_787__PUTOBJDEST_OBJDESTINSTR#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V902*/ curfptr[901])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:620:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V902*/ curfptr[901]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V903*/ curfptr[902])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V902*/ curfptr[901])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V903*/ curfptr[902])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V902*/ curfptr[901]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V903*/ curfptr[902]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])))); ((basilysobject_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V905*/ curfptr[904]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V904*/ curfptr[903]); BASILYS_LOCATION("warmelt-genobj.melt:657:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V906*/ curfptr[905])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V346*/ curfptr[345]); ((basilysroutine_ptr_t)/*_.VALROUT___V906*/ curfptr[905])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]); BASILYS_LOCATION("warmelt-genobj.melt:657:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V906*/ curfptr[905]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V907*/ curfptr[906])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V906*/ curfptr[905])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V907*/ curfptr[906])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V906*/ curfptr[905]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V907*/ curfptr[906]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#1", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#2", NULL != (/*_.CLASS_MODULCONTEXT__V22*/ curfptr[21])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V22*/ curfptr[21]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#4", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V814*/ curfptr[813]); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#7", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#8", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#9", NULL != (/*_.DISCR_MAPOBJECTS__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#10", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V780*/ curfptr[779]); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#5", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#6", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#7", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_884__GET_FREE_OBJLOCPTR#8", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V910*/ curfptr[909])->tabval[8] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:1097:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V910*/ curfptr[909]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V910*/ curfptr[909])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V909*/ curfptr[908])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V910*/ curfptr[909]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])))); ((basilysobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V912*/ curfptr[911]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V911*/ curfptr[910]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#12", NULL != (/*_.VALDATA___V911*/ curfptr[910])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#13", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[13] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#14", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#15", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[15] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[16] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#17", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[17] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V780*/ curfptr[779]); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#5", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#6", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[6] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#7", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_886__GET_FREE_OBJLOCLONG#8", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V914*/ curfptr[913])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:1148:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V914*/ curfptr[913]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V913*/ curfptr[912])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V914*/ curfptr[913])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V913*/ curfptr[912])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V914*/ curfptr[913]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V913*/ curfptr[912]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V913*/ curfptr[912]); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V913*/ curfptr[912]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#2", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#3", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V913*/ curfptr[912]); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V913*/ curfptr[912]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#5", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#7", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V780*/ curfptr[779]); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#9", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#11", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#12", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_888__GET_FREE_OBJLOCTYPED#13", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V916*/ curfptr[915])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:1189:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V916*/ curfptr[915]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V916*/ curfptr[915])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V915*/ curfptr[914])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V916*/ curfptr[915]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[19] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V318*/ curfptr[317]); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__LAMBDA_#1", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_813__LAMBDA_#3", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V913*/ curfptr[912]); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V913*/ curfptr[912]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V318*/ curfptr[317]); ((basilysroutine_ptr_t)/*_.VALROUT___V917*/ curfptr[916])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]); BASILYS_LOCATION("warmelt-genobj.melt:722:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V917*/ curfptr[916]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#21", NULL != (/*_.VALROUT___V917*/ curfptr[916])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V917*/ curfptr[916]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#22", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#23", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[23] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#24", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[24] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:759:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V918*/ curfptr[917])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_820__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V918*/ curfptr[917])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:759:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V918*/ curfptr[917]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#25", NULL != (/*_.VALROUT___V918*/ curfptr[917])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[25] = (basilys_ptr_t)(/*_.VALROUT___V918*/ curfptr[917]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_793__COMPILE2OBJ_PROCEDURE#26", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V908*/ curfptr[907])->tabval[26] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:668:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V908*/ curfptr[907]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V919*/ curfptr[918])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V908*/ curfptr[907])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V919*/ curfptr[918])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V908*/ curfptr[907]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V919*/ curfptr[918]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V920*/ curfptr[919])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V920*/ curfptr[919])))); ((basilysobject_ptr_t)(/*_.VALDATA___V920*/ curfptr[919]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V921*/ curfptr[920]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V920*/ curfptr[919]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])))); ((basilysobject_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V923*/ curfptr[922]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V922*/ curfptr[921]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])))); ((basilysobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V925*/ curfptr[924]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V924*/ curfptr[923]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])))); ((basilysobject_ptr_t)(/*_.VALDATA___V926*/ curfptr[925]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V927*/ curfptr[926]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V926*/ curfptr[925]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927])))); ((basilysobject_ptr_t)(/*_.VALDATA___V928*/ curfptr[927]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V929*/ curfptr[928]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V928*/ curfptr[927]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])))); ((basilysobject_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V931*/ curfptr[930]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V930*/ curfptr[929]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])))); ((basilysobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V933*/ curfptr[932]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V932*/ curfptr[931]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V934*/ curfptr[933])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V934*/ curfptr[933])))); ((basilysobject_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V935*/ curfptr[934]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V934*/ curfptr[933]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V936*/ curfptr[935])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V936*/ curfptr[935])))); ((basilysobject_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V937*/ curfptr[936]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V936*/ curfptr[935]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937])))); ((basilysobject_ptr_t)(/*_.VALDATA___V938*/ curfptr[937]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V939*/ curfptr[938]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V938*/ curfptr[937]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939])))); ((basilysobject_ptr_t)(/*_.VALDATA___V940*/ curfptr[939]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V941*/ curfptr[940]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V940*/ curfptr[939]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V942*/ curfptr[941])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V942*/ curfptr[941])))); ((basilysobject_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V943*/ curfptr[942]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V942*/ curfptr[941]); BASILYS_LOCATION("warmelt-genobj.melt:778:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])))); ((basilysobject_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))->obj_vartab[0] = (basilys_ptr_t)( /*_.CTYPE_VALUE__V17*/ curfptr[16]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V945*/ curfptr[944])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V945*/ curfptr[944])))); ((basilysobject_ptr_t)(/*_.VALDATA___V945*/ curfptr[944]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V946*/ curfptr[945]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V945*/ curfptr[944]); BASILYS_LOCATION("warmelt-genobj.melt:778:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])))); ((basilysobject_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALDATA___V945*/ curfptr[944]); BASILYS_LOCATION("warmelt-genobj.melt:778:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V944*/ curfptr[943]); BASILYS_LOCATION("warmelt-genobj.melt:783:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V288*/ curfptr[287]); ((basilysroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]); BASILYS_LOCATION("warmelt-genobj.melt:783:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V947*/ curfptr[946]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V948*/ curfptr[947])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V948*/ curfptr[947])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V947*/ curfptr[946]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V948*/ curfptr[947]); BASILYS_LOCATION("warmelt-genobj.melt:785:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V949*/ curfptr[948])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V288*/ curfptr[287]); ((basilysroutine_ptr_t)/*_.VALROUT___V949*/ curfptr[948])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V288*/ curfptr[287]); BASILYS_LOCATION("warmelt-genobj.melt:785:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V949*/ curfptr[948])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_828__APPEND_COMMENTCONST#1", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V949*/ curfptr[948])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:785:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V949*/ curfptr[948]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V950*/ curfptr[949])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V949*/ curfptr[948])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V950*/ curfptr[949])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V949*/ curfptr[948]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V950*/ curfptr[949]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#0", NULL != (/*_.CLASS_NREP_INITPROC__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_INITPROC__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#1", NULL != (/*_.CLASS_MODULCONTEXT__V22*/ curfptr[21])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V22*/ curfptr[21]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#3", NULL != (/*_.DISCR_MAPOBJECTS__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#6", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#7", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#8", NULL != (/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#9", NULL != (/*_.LIST_MAP__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[9] = (basilys_ptr_t)(/*_.LIST_MAP__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[10] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:828:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V952*/ curfptr[951])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_838__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V952*/ curfptr[951])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:828:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V952*/ curfptr[951]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#11", NULL != (/*_.VALROUT___V952*/ curfptr[951])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V952*/ curfptr[951]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])))); ((basilysobject_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V954*/ curfptr[953]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V953*/ curfptr[952]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#13", NULL != (/*_.VALDATA___V953*/ curfptr[952])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954])))); ((basilysobject_ptr_t)(/*_.VALDATA___V955*/ curfptr[954]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V956*/ curfptr[955]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V955*/ curfptr[954]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#14", NULL != (/*_.VALDATA___V955*/ curfptr[954])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])))); ((basilysobject_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V958*/ curfptr[957]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V957*/ curfptr[956]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#15", NULL != (/*_.VALDATA___V957*/ curfptr[956])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])))); ((basilysobject_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V960*/ curfptr[959]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V959*/ curfptr[958]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#16", NULL != (/*_.VALDATA___V959*/ curfptr[958])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])))); ((basilysobject_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V962*/ curfptr[961]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V961*/ curfptr[960]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#17", NULL != (/*_.VALDATA___V961*/ curfptr[960])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V963*/ curfptr[962])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V963*/ curfptr[962])))); ((basilysobject_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V964*/ curfptr[963]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V963*/ curfptr[962]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#18", NULL != (/*_.VALDATA___V963*/ curfptr[962])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V950*/ curfptr[949]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[19] = (basilys_ptr_t)(/*_.VALCLO___V950*/ curfptr[949]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V674*/ curfptr[673]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#21", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[21] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V944*/ curfptr[943]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#23", NULL != (/*_.SYSDATA_CONT_FRESH_ENV__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[23] = (basilys_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#25", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[25] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#26", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[26] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V546*/ curfptr[545]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[27] = (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V376*/ curfptr[375]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[28] = (basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[30] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#31", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[31] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#32", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[32] = (basilys_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[33] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:917:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_859__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V965*/ curfptr[964])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:917:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_859__LAMBDA_#1", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V965*/ curfptr[964])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-genobj.melt:917:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V965*/ curfptr[964])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:917:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V965*/ curfptr[964]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#34", NULL != (/*_.VALROUT___V965*/ curfptr[964])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[34] = (basilys_ptr_t)(/*_.VALROUT___V965*/ curfptr[964]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#35", NULL != (/*_.LIST_TO_MULTIPLE__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[35] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#36", NULL != (/*_.CLASS_NREP_DATA__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[36] = (basilys_ptr_t)(/*_.CLASS_NREP_DATA__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#37", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[37] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:948:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V966*/ curfptr[965])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_864__LAMBDA_#0", NULL != (/*_.CLASS_NREP_DATA__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V966*/ curfptr[965])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_DATA__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-genobj.melt:948:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V966*/ curfptr[965])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_864__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V966*/ curfptr[965])->tabval[1] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:948:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V966*/ curfptr[965]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#38", NULL != (/*_.VALROUT___V966*/ curfptr[965])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[38] = (basilys_ptr_t)(/*_.VALROUT___V966*/ curfptr[965]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#39", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[39] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#40", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[40] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:963:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V967*/ curfptr[966])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_867__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V967*/ curfptr[966])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:963:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V967*/ curfptr[966])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_867__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V967*/ curfptr[966])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:963:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V967*/ curfptr[966]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#41", NULL != (/*_.VALROUT___V967*/ curfptr[966])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[41] = (basilys_ptr_t)(/*_.VALROUT___V967*/ curfptr[966]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#42", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[42] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[43] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#44", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[44] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#45", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[45] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V540*/ curfptr[539]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[46] = (basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#47", NULL != (/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[47] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V534*/ curfptr[533]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[48] = (basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V968*/ curfptr[967])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_870__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V968*/ curfptr[967])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_870__LAMBDA_#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V968*/ curfptr[967])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V540*/ curfptr[539]); ((basilysroutine_ptr_t)/*_.VALROUT___V968*/ curfptr[967])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V540*/ curfptr[539]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_870__LAMBDA_#4", NULL != (/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V968*/ curfptr[967])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V534*/ curfptr[533]); ((basilysroutine_ptr_t)/*_.VALROUT___V968*/ curfptr[967])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]); BASILYS_LOCATION("warmelt-genobj.melt:972:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V968*/ curfptr[967]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#49", NULL != (/*_.VALROUT___V968*/ curfptr[967])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[49] = (basilys_ptr_t)(/*_.VALROUT___V968*/ curfptr[967]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#50", NULL != (/*_.SYSDATA_VALUE_IMPORTER__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[50] = (basilys_ptr_t)(/*_.SYSDATA_VALUE_IMPORTER__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#51", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[51] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#52", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[52] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#53", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[53] = (basilys_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#54", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[54] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V546*/ curfptr[545]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[55] = (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#56", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[56] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#57", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[57] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_877__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V969*/ curfptr[968])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_877__LAMBDA_#1", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V969*/ curfptr[968])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_877__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V969*/ curfptr[968])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V546*/ curfptr[545]); ((basilysroutine_ptr_t)/*_.VALROUT___V969*/ curfptr[968])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_877__LAMBDA_#4", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V969*/ curfptr[968])->tabval[4] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_877__LAMBDA_#5", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V969*/ curfptr[968])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:1010:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V969*/ curfptr[968]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#58", NULL != (/*_.VALROUT___V969*/ curfptr[968])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[58] = (basilys_ptr_t)(/*_.VALROUT___V969*/ curfptr[968]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#59", NULL != (/*_.VALROUT___V970*/ curfptr[969])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[59] = (basilys_ptr_t)(/*_.VALROUT___V970*/ curfptr[969]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[60] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#61", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[61] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#62", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[62] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V518*/ curfptr[517]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[63] = (basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#64", NULL != (/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[64] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V512*/ curfptr[511]); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[65] = (basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V971*/ curfptr[970])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_879__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V971*/ curfptr[970])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_879__LAMBDA_#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V971*/ curfptr[970])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V518*/ curfptr[517]); ((basilysroutine_ptr_t)/*_.VALROUT___V971*/ curfptr[970])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_879__LAMBDA_#4", NULL != (/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V971*/ curfptr[970])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V512*/ curfptr[511]); ((basilysroutine_ptr_t)/*_.VALROUT___V971*/ curfptr[970])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V512*/ curfptr[511]); BASILYS_LOCATION("warmelt-genobj.melt:1040:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V971*/ curfptr[970]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_830__COMPILE2OBJ_INITPROC#66", NULL != (/*_.VALROUT___V971*/ curfptr[970])); ((basilysroutine_ptr_t)/*_.VALROUT___V951*/ curfptr[950])->tabval[66] = (basilys_ptr_t)(/*_.VALROUT___V971*/ curfptr[970]); BASILYS_LOCATION("warmelt-genobj.melt:789:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V951*/ curfptr[950]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V972*/ curfptr[971])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V951*/ curfptr[950])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V972*/ curfptr[971])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V951*/ curfptr[950]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V972*/ curfptr[971]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972])))); ((basilysobject_ptr_t)(/*_.VALDATA___V973*/ curfptr[972]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V974*/ curfptr[973]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V973*/ curfptr[972]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974])))); ((basilysobject_ptr_t)(/*_.VALDATA___V975*/ curfptr[974]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V976*/ curfptr[975]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V975*/ curfptr[974]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V977*/ curfptr[976])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V977*/ curfptr[976])))); ((basilysobject_ptr_t)(/*_.VALDATA___V977*/ curfptr[976]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V978*/ curfptr[977]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V977*/ curfptr[976]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])))); ((basilysobject_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V980*/ curfptr[979]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V979*/ curfptr[978]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])))); ((basilysobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V982*/ curfptr[981]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V981*/ curfptr[980]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V983*/ curfptr[982])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V983*/ curfptr[982])))); ((basilysobject_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V984*/ curfptr[983]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V983*/ curfptr[982]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984])))); ((basilysobject_ptr_t)(/*_.VALDATA___V985*/ curfptr[984]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V986*/ curfptr[985]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V985*/ curfptr[984]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])))); ((basilysobject_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V988*/ curfptr[987]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V987*/ curfptr[986]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])))); ((basilysobject_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V990*/ curfptr[989]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V989*/ curfptr[988]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V991*/ curfptr[990])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V991*/ curfptr[990])))); ((basilysobject_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V992*/ curfptr[991]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V991*/ curfptr[990]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V993*/ curfptr[992])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V993*/ curfptr[992])))); ((basilysobject_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V994*/ curfptr[993]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V993*/ curfptr[992]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])))); ((basilysobject_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V996*/ curfptr[995]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V995*/ curfptr[994]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996])))); ((basilysobject_ptr_t)(/*_.VALDATA___V997*/ curfptr[996]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V998*/ curfptr[997]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V997*/ curfptr[996]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V999*/ curfptr[998])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V999*/ curfptr[998])))); ((basilysobject_ptr_t)(/*_.VALDATA___V999*/ curfptr[998]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1000*/ curfptr[999]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V999*/ curfptr[998]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1002*/ curfptr[1001]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1001*/ curfptr[1000]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1004*/ curfptr[1003]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1003*/ curfptr[1002]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1006*/ curfptr[1005]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1005*/ curfptr[1004]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1008*/ curfptr[1007]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1007*/ curfptr[1006]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__DISPOSE_OBJLOC#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__DISPOSE_OBJLOC#2", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__DISPOSE_OBJLOC#3", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__DISPOSE_OBJLOC#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__DISPOSE_OBJLOC#5", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_894__DISPOSE_OBJLOC#6", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[6] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V780*/ curfptr[779]); ((basilysroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:1248:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1009*/ curfptr[1008]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1010*/ curfptr[1009])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1010*/ curfptr[1009])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1009*/ curfptr[1008]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1010*/ curfptr[1009]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_896__DISPOSE_BND_OBJ#0", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_896__DISPOSE_BND_OBJ#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_896__DISPOSE_BND_OBJ#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_896__DISPOSE_BND_OBJ#3", NULL != (/*_.CLASS_LET_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_896__DISPOSE_BND_OBJ#4", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ curfptr[1009]); ((basilysroutine_ptr_t)/*_.VALROUT___V1011*/ curfptr[1010])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1010*/ curfptr[1009]); BASILYS_LOCATION("warmelt-genobj.melt:1277:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1011*/ curfptr[1010]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1011*/ curfptr[1010])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1012*/ curfptr[1011])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1011*/ curfptr[1010]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1012*/ curfptr[1011]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1013*/ curfptr[1012])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1013*/ curfptr[1012])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1013*/ curfptr[1012]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1014*/ curfptr[1013]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1013*/ curfptr[1012]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1015*/ curfptr[1014])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1015*/ curfptr[1014])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1015*/ curfptr[1014]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1016*/ curfptr[1015]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1015*/ curfptr[1014]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#0", NULL != (/*_.CLASS_NREP_CHUNK__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_CHUNK__V50*/ curfptr[49]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#3", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#4", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#5", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#7", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[8] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1314:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1018*/ curfptr[1017])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_906__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1018*/ curfptr[1017])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1314:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1018*/ curfptr[1017])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_906__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1018*/ curfptr[1017])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:1314:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1018*/ curfptr[1017])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_906__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1018*/ curfptr[1017])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1314:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1018*/ curfptr[1017]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_902__COMPILOBJ_NREP_CHUNK#9", NULL != (/*_.VALROUT___V1018*/ curfptr[1017])); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1018*/ curfptr[1017]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V268*/ curfptr[267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1017*/ curfptr[1016])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:1300:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1017*/ curfptr[1016]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1019*/ curfptr[1018])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1017*/ curfptr[1016])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1019*/ curfptr[1018])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1017*/ curfptr[1016]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1019*/ curfptr[1018]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1021*/ curfptr[1020]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1020*/ curfptr[1019]); BASILYS_LOCATION("warmelt-genobj.melt:1339:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1022*/ curfptr[1021])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_907__GETCTYPE_TYPEXPR#0", NULL != (/*_.CLASS_NREP_TYPEXPR__V51*/ curfptr[50])); ((basilysroutine_ptr_t)/*_.VALROUT___V1022*/ curfptr[1021])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_TYPEXPR__V51*/ curfptr[50]); BASILYS_LOCATION("warmelt-genobj.melt:1339:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1022*/ curfptr[1021]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1023*/ curfptr[1022])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1022*/ curfptr[1021])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1023*/ curfptr[1022])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1022*/ curfptr[1021]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1023*/ curfptr[1022]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1025*/ curfptr[1024]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1024*/ curfptr[1023]); BASILYS_LOCATION("warmelt-genobj.melt:1345:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_911__COMPILOBJ_NREP_NIL#0", NULL != (/*_.CLASS_NREP_NIL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_NIL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-genobj.melt:1345:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_911__COMPILOBJ_NREP_NIL#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1345:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_911__COMPILOBJ_NREP_NIL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1345:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V188*/ curfptr[187]); ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]); BASILYS_LOCATION("warmelt-genobj.melt:1345:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_911__COMPILOBJ_NREP_NIL#4", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1026*/ curfptr[1025])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:1345:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1026*/ curfptr[1025]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1027*/ curfptr[1026])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1026*/ curfptr[1025])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1027*/ curfptr[1026])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1026*/ curfptr[1025]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1027*/ curfptr[1026]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1028*/ curfptr[1027])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1028*/ curfptr[1027])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1028*/ curfptr[1027]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1029*/ curfptr[1028]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1028*/ curfptr[1027]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__COMPILOBJ_NREP_COMMENT#0", NULL != (/*_.CLASS_NREP_COMMENT__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V1030*/ curfptr[1029])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_COMMENT__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__COMPILOBJ_NREP_COMMENT#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1030*/ curfptr[1029])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__COMPILOBJ_NREP_COMMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1030*/ curfptr[1029])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__COMPILOBJ_NREP_COMMENT#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1030*/ curfptr[1029])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_915__COMPILOBJ_NREP_COMMENT#4", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1030*/ curfptr[1029])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1030*/ curfptr[1029])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:1357:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1030*/ curfptr[1029]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1031*/ curfptr[1030])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1030*/ curfptr[1029])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1031*/ curfptr[1030])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1030*/ curfptr[1029]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1031*/ curfptr[1030]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1033*/ curfptr[1032]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1032*/ curfptr[1031]); BASILYS_LOCATION("warmelt-genobj.melt:1381:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1034*/ curfptr[1033])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_919__COMPILOBJ_NREP_LOCSYMOCC#0", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1034*/ curfptr[1033])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-genobj.melt:1381:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1034*/ curfptr[1033])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_919__COMPILOBJ_NREP_LOCSYMOCC#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1034*/ curfptr[1033])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1381:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1034*/ curfptr[1033])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_919__COMPILOBJ_NREP_LOCSYMOCC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1034*/ curfptr[1033])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1381:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1034*/ curfptr[1033])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_919__COMPILOBJ_NREP_LOCSYMOCC#3", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1034*/ curfptr[1033])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1381:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1034*/ curfptr[1033])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1034*/ curfptr[1033])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1381:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1034*/ curfptr[1033]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1035*/ curfptr[1034])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1034*/ curfptr[1033])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1035*/ curfptr[1034])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1034*/ curfptr[1033]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1035*/ curfptr[1034]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1037*/ curfptr[1036]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1036*/ curfptr[1035]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_923__COMPILOBJ_NREP_CLOSEDOCC#0", NULL != (/*_.CLASS_NREP_CLOSEDOCC__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_CLOSEDOCC__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_923__COMPILOBJ_NREP_CLOSEDOCC#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_923__COMPILOBJ_NREP_CLOSEDOCC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_923__COMPILOBJ_NREP_CLOSEDOCC#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V154*/ curfptr[153]); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_923__COMPILOBJ_NREP_CLOSEDOCC#5", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_923__COMPILOBJ_NREP_CLOSEDOCC#6", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1038*/ curfptr[1037])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:1418:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1038*/ curfptr[1037]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1039*/ curfptr[1038])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1038*/ curfptr[1037])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1039*/ curfptr[1038])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1038*/ curfptr[1037]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1039*/ curfptr[1038]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1041*/ curfptr[1040]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1040*/ curfptr[1039]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CONSTOCC#0", NULL != (/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CONSTOCC#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CONSTOCC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CONSTOCC#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V172*/ curfptr[171]); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CONSTOCC#5", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CONSTOCC#6", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1042*/ curfptr[1041])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:1472:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1042*/ curfptr[1041]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1043*/ curfptr[1042])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1042*/ curfptr[1041])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1043*/ curfptr[1042])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1042*/ curfptr[1041]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1043*/ curfptr[1042]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1045*/ curfptr[1044]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1044*/ curfptr[1043]); BASILYS_LOCATION("warmelt-genobj.melt:1524:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1046*/ curfptr[1045])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_931__COMPILOBJ_NREP_IMPORTEDVAL#0", NULL != (/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1046*/ curfptr[1045])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-genobj.melt:1524:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1046*/ curfptr[1045])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_931__COMPILOBJ_NREP_IMPORTEDVAL#1", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1046*/ curfptr[1045])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-genobj.melt:1524:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1046*/ curfptr[1045])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_931__COMPILOBJ_NREP_IMPORTEDVAL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1046*/ curfptr[1045])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1524:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1046*/ curfptr[1045])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_931__COMPILOBJ_NREP_IMPORTEDVAL#3", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1046*/ curfptr[1045])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:1524:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1046*/ curfptr[1045])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1046*/ curfptr[1045])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1524:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1046*/ curfptr[1045]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1047*/ curfptr[1046])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1046*/ curfptr[1045])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1047*/ curfptr[1046])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1046*/ curfptr[1045]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1047*/ curfptr[1046]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1049*/ curfptr[1048]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1048*/ curfptr[1047]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#1", NULL != (/*_.CLASS_NREP_QUASICONSTANT__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASICONSTANT__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#5", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V172*/ curfptr[171]); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#7", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#8", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#9", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_935__COMPILOBJ_NREP_QUASICONSTANT#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1050*/ curfptr[1049])->tabval[10] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1541:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1050*/ curfptr[1049]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1051*/ curfptr[1050])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1050*/ curfptr[1049])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1051*/ curfptr[1050])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1050*/ curfptr[1049]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1051*/ curfptr[1050]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1053*/ curfptr[1052]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1052*/ curfptr[1051]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1051*/ curfptr[1050]); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V1051*/ curfptr[1050]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#4", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V268*/ curfptr[267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#6", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[6] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_939__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#7", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:1600:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1054*/ curfptr[1053]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1055*/ curfptr[1054])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1055*/ curfptr[1054])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1054*/ curfptr[1053]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1055*/ curfptr[1054]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1057*/ curfptr[1056]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1056*/ curfptr[1055]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#1", NULL != (/*_.CLASS_NREP_FOREVER__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_FOREVER__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#6", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V424*/ curfptr[423]); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#8", NULL != (/*_.CLASS_CLONEDSYMBOL__V62*/ curfptr[61])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V62*/ curfptr[61]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#9", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[10] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1668:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1059*/ curfptr[1058])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_951__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1059*/ curfptr[1058])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1668:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1059*/ curfptr[1058]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_943__COMPILOBJ_NREP_FOREVER#11", NULL != (/*_.VALROUT___V1059*/ curfptr[1058])); ((basilysroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V1059*/ curfptr[1058]); BASILYS_LOCATION("warmelt-genobj.melt:1629:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1058*/ curfptr[1057]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1060*/ curfptr[1059])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1060*/ curfptr[1059])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1058*/ curfptr[1057]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1060*/ curfptr[1059]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1062*/ curfptr[1061]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1061*/ curfptr[1060]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1064*/ curfptr[1063]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1063*/ curfptr[1062]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1066*/ curfptr[1065]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1065*/ curfptr[1064]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_EXIT#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_EXIT#1", NULL != (/*_.CLASS_NREP_EXIT__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_EXIT__V63*/ curfptr[62]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_EXIT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_EXIT#3", NULL != (/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_EXIT#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_EXIT#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V438*/ curfptr[437]); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1067*/ curfptr[1066])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:1679:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1067*/ curfptr[1066]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1068*/ curfptr[1067])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1067*/ curfptr[1066])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1068*/ curfptr[1067])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1067*/ curfptr[1066]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1068*/ curfptr[1067]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1070*/ curfptr[1069]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1069*/ curfptr[1068]); BASILYS_LOCATION("warmelt-genobj.melt:1718:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_956__COMPILOBJ_DISCRANY#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1071*/ curfptr[1070])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1718:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1071*/ curfptr[1070]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1072*/ curfptr[1071])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1071*/ curfptr[1070])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1072*/ curfptr[1071])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1071*/ curfptr[1070]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1072*/ curfptr[1071]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#0", NULL != (/*_.CLASS_NREP_LET__V64*/ curfptr[63])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_LET__V64*/ curfptr[63]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#5", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#7", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[9] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#10", NULL != (/*_.CLASS_SEXPR__V66*/ curfptr[65])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V66*/ curfptr[65]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_962__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_962__LAMBDA_#1", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_962__LAMBDA_#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_962__LAMBDA_#4", NULL != (/*_.CLASS_SEXPR__V66*/ curfptr[65])); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V66*/ curfptr[65]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:1753:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1074*/ curfptr[1073]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#13", NULL != (/*_.VALROUT___V1074*/ curfptr[1073])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#14", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[14] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#15", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[15] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1802:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_967__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1802:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_967__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1075*/ curfptr[1074])->tabval[1] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1802:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1075*/ curfptr[1074]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#16", NULL != (/*_.VALROUT___V1075*/ curfptr[1074])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[16] = (basilys_ptr_t)(/*_.VALROUT___V1075*/ curfptr[1074]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#17", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[17] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:1816:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1076*/ curfptr[1075])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_968__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1076*/ curfptr[1075])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1816:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1076*/ curfptr[1075])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1076*/ curfptr[1075])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:1816:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1076*/ curfptr[1075]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_958__COMPILOBJ_NREP_LET#19", NULL != (/*_.VALROUT___V1076*/ curfptr[1075])); ((basilysroutine_ptr_t)/*_.VALROUT___V1073*/ curfptr[1072])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1076*/ curfptr[1075]); BASILYS_LOCATION("warmelt-genobj.melt:1726:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1073*/ curfptr[1072]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1077*/ curfptr[1076])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1073*/ curfptr[1072])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1077*/ curfptr[1076])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1073*/ curfptr[1072]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1077*/ curfptr[1076]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1079*/ curfptr[1078]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1078*/ curfptr[1077]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1081*/ curfptr[1080]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1080*/ curfptr[1079]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1082*/ curfptr[1081])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1082*/ curfptr[1081])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1082*/ curfptr[1081]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1083*/ curfptr[1082]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1082*/ curfptr[1081]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#0", NULL != (/*_.CLASS_NREP_CITERATION__V67*/ curfptr[66])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_CITERATION__V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#3", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#4", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#6", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V448*/ curfptr[447]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#8", NULL != (/*_.CLASS_CITERATOR__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#9", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[10] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#11", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#13", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[13] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1085*/ curfptr[1084])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_975__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1085*/ curfptr[1084])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1085*/ curfptr[1084])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_975__LAMBDA_#1", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1085*/ curfptr[1084])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1085*/ curfptr[1084])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1085*/ curfptr[1084])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1085*/ curfptr[1084])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_975__LAMBDA_#3", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1085*/ curfptr[1084])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1870:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1085*/ curfptr[1084])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1085*/ curfptr[1084])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:1870:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1085*/ curfptr[1084]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#15", NULL != (/*_.VALROUT___V1085*/ curfptr[1084])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[15] = (basilys_ptr_t)(/*_.VALROUT___V1085*/ curfptr[1084]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#16", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[16] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#17", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#18", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[18] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#19", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[19] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#20", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[20] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_976__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1906:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_976__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[1] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1906:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1086*/ curfptr[1085]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#21", NULL != (/*_.VALROUT___V1086*/ curfptr[1085])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#22", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[22] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#23", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[23] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1918:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1087*/ curfptr[1086])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_977__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1087*/ curfptr[1086])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1918:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1087*/ curfptr[1086])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_977__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1087*/ curfptr[1086])->tabval[1] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1918:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1087*/ curfptr[1086]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#24", NULL != (/*_.VALROUT___V1087*/ curfptr[1086])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[24] = (basilys_ptr_t)(/*_.VALROUT___V1087*/ curfptr[1086]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#25", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[25] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#26", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[26] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#27", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[27] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[28] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#29", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[29] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[30] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#31", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[31] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[32] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__LAMBDA_#1", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__LAMBDA_#3", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__LAMBDA_#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:1934:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1088*/ curfptr[1087]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#33", NULL != (/*_.VALROUT___V1088*/ curfptr[1087])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[33] = (basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#34", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[34] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#35", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[35] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_979__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1089*/ curfptr[1088])->tabval[1] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1972:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1089*/ curfptr[1088]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_969__COMPILOBJ_NREP_CITERATION#36", NULL != (/*_.VALROUT___V1089*/ curfptr[1088])); ((basilysroutine_ptr_t)/*_.VALROUT___V1084*/ curfptr[1083])->tabval[36] = (basilys_ptr_t)(/*_.VALROUT___V1089*/ curfptr[1088]); BASILYS_LOCATION("warmelt-genobj.melt:1831:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1084*/ curfptr[1083]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1090*/ curfptr[1089])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1084*/ curfptr[1083])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1090*/ curfptr[1089])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1084*/ curfptr[1083]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1090*/ curfptr[1089]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1092*/ curfptr[1091]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1091*/ curfptr[1090]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1094*/ curfptr[1093]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1093*/ curfptr[1092]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__COMPILOBJ_NREP_SETQ#0", NULL != (/*_.CLASS_NREP_SETQ__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_SETQ__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__COMPILOBJ_NREP_SETQ#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__COMPILOBJ_NREP_SETQ#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__COMPILOBJ_NREP_SETQ#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V278*/ curfptr[277]); ((basilysroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); BASILYS_LOCATION("warmelt-genobj.melt:1988:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1095*/ curfptr[1094]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1096*/ curfptr[1095])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1096*/ curfptr[1095])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1095*/ curfptr[1094]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1096*/ curfptr[1095]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1098*/ curfptr[1097]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1097*/ curfptr[1096]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#0", NULL != (/*_.CLASS_NREP_PROGN__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_PROGN__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#5", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#6", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[6] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2026:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_988__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1100*/ curfptr[1099])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2026:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1100*/ curfptr[1099]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#7", NULL != (/*_.VALROUT___V1100*/ curfptr[1099])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1100*/ curfptr[1099]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_984__COMPILOBJ_NREP_PROGN#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1099*/ curfptr[1098])->tabval[8] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2010:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1099*/ curfptr[1098]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1101*/ curfptr[1100])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1099*/ curfptr[1098])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1101*/ curfptr[1100])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1099*/ curfptr[1098]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1101*/ curfptr[1100]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1103*/ curfptr[1102]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1102*/ curfptr[1101]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#0", NULL != (/*_.CLASS_NREP_MULTACC__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_MULTACC__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#4", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#5", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#7", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#8", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[8] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1105*/ curfptr[1104])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_993__LAMBDA_#0", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1105*/ curfptr[1104])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1105*/ curfptr[1104])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_993__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1105*/ curfptr[1104])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1105*/ curfptr[1104])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1105*/ curfptr[1104])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1105*/ curfptr[1104])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_993__LAMBDA_#3", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1105*/ curfptr[1104])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:2049:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1105*/ curfptr[1104])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_993__LAMBDA_#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1105*/ curfptr[1104])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2049:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1105*/ curfptr[1104]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_989__COMPILOBJ_NREP_MULTACC#9", NULL != (/*_.VALROUT___V1105*/ curfptr[1104])); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1105*/ curfptr[1104]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V226*/ curfptr[225]); ((basilysroutine_ptr_t)/*_.VALROUT___V1104*/ curfptr[1103])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]); BASILYS_LOCATION("warmelt-genobj.melt:2038:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1104*/ curfptr[1103]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1106*/ curfptr[1105])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1104*/ curfptr[1103])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1106*/ curfptr[1105])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1104*/ curfptr[1103]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1106*/ curfptr[1105]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1108*/ curfptr[1107]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1107*/ curfptr[1106]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#0", NULL != (/*_.CLASS_NREP_FIELDACC__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_FIELDACC__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#3", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#5", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#6", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#8", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[8] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#9", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_998__LAMBDA_#0", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_998__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_998__LAMBDA_#3", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:2103:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_998__LAMBDA_#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2103:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1110*/ curfptr[1109]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#10", NULL != (/*_.VALROUT___V1110*/ curfptr[1109])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#11", NULL != (/*_.CLASS_FIELD__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_FIELD__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#13", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V74*/ curfptr[73])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_994__COMPILOBJ_NREP_FIELDACC#14", NULL != (/*_.CLASS_NREP_DATA__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_NREP_DATA__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-genobj.melt:2090:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1109*/ curfptr[1108]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1111*/ curfptr[1110])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1111*/ curfptr[1110])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1109*/ curfptr[1108]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1111*/ curfptr[1110]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1112*/ curfptr[1111])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1112*/ curfptr[1111])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1112*/ curfptr[1111]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1113*/ curfptr[1112]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1112*/ curfptr[1111]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1115*/ curfptr[1114]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1114*/ curfptr[1113]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1117*/ curfptr[1116]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1116*/ curfptr[1115]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_NREP_UNSAFE_GET_FIELD__V75*/ curfptr[74])); ((basilysroutine_ptr_t)/*_.VALROUT___V1118*/ curfptr[1117])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V75*/ curfptr[74]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1118*/ curfptr[1117])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1118*/ curfptr[1117])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1118*/ curfptr[1117])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1003__COMPILOBJ_NREP_UNSAFE_GET_FIELD#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1118*/ curfptr[1117])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V674*/ curfptr[673]); ((basilysroutine_ptr_t)/*_.VALROUT___V1118*/ curfptr[1117])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-genobj.melt:2145:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1118*/ curfptr[1117]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1119*/ curfptr[1118])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1118*/ curfptr[1117])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1119*/ curfptr[1118])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1118*/ curfptr[1117]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1119*/ curfptr[1118]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1121*/ curfptr[1120]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1120*/ curfptr[1119]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V76*/ curfptr[75])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V76*/ curfptr[75]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#6", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[6] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#7", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#8", NULL != (/*_.CLASS_FIELD__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[9] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V652*/ curfptr[651]); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#11", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#12", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1011__LAMBDA_#0", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1011__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1011__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V652*/ curfptr[651]); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1011__LAMBDA_#4", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1011__LAMBDA_#5", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:2184:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1123*/ curfptr[1122]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1007__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#13", NULL != (/*_.VALROUT___V1123*/ curfptr[1122])); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1122*/ curfptr[1121])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:2167:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1122*/ curfptr[1121]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1124*/ curfptr[1123])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1122*/ curfptr[1121])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1124*/ curfptr[1123])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1122*/ curfptr[1121]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1124*/ curfptr[1123]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1126*/ curfptr[1125]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1125*/ curfptr[1124]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1128*/ curfptr[1127]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1127*/ curfptr[1126]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#0", NULL != (/*_.CLASS_NREP_APPLY__V78*/ curfptr[77])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_APPLY__V78*/ curfptr[77]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#4", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V278*/ curfptr[277]); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); BASILYS_LOCATION("warmelt-genobj.melt:2224:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1018__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2224:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V278*/ curfptr[277]); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V278*/ curfptr[277]); BASILYS_LOCATION("warmelt-genobj.melt:2224:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1130*/ curfptr[1129]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#7", NULL != (/*_.VALROUT___V1130*/ curfptr[1129])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1014__COMPILOBJ_NREP_APPLY#8", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V546*/ curfptr[545]); ((basilysroutine_ptr_t)/*_.VALROUT___V1129*/ curfptr[1128])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]); BASILYS_LOCATION("warmelt-genobj.melt:2213:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1129*/ curfptr[1128]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1131*/ curfptr[1130])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1129*/ curfptr[1128])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1131*/ curfptr[1130])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1129*/ curfptr[1128]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1131*/ curfptr[1130]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1133*/ curfptr[1132]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1132*/ curfptr[1131]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#0", NULL != (/*_.CLASS_NREP_MULTIAPPLY__V79*/ curfptr[78])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_MULTIAPPLY__V79*/ curfptr[78]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#3", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[3] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#5", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#7", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2258:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2258:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:2258:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:2258:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1135*/ curfptr[1134])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2258:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1135*/ curfptr[1134]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#8", NULL != (/*_.VALROUT___V1135*/ curfptr[1134])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1135*/ curfptr[1134]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#9", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#11", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#12", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[12] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#13", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[13] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2284:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1024__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2284:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1136*/ curfptr[1135]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#14", NULL != (/*_.VALROUT___V1136*/ curfptr[1135])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V560*/ curfptr[559]); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#16", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[16] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#17", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[17] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ curfptr[129]); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); BASILYS_LOCATION("warmelt-genobj.melt:2298:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1025__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2298:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ curfptr[129]); ((basilysroutine_ptr_t)/*_.VALROUT___V1137*/ curfptr[1136])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); BASILYS_LOCATION("warmelt-genobj.melt:2298:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1137*/ curfptr[1136]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#19", NULL != (/*_.VALROUT___V1137*/ curfptr[1136])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1137*/ curfptr[1136]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:2310:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1138*/ curfptr[1137])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1138*/ curfptr[1137])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:2310:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1138*/ curfptr[1137]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#21", NULL != (/*_.VALROUT___V1138*/ curfptr[1137])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1138*/ curfptr[1137]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[22] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:2321:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1139*/ curfptr[1138])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:2321:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1139*/ curfptr[1138]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1019__COMPILOBJ_NREP_MULTIAPPLY#23", NULL != (/*_.VALROUT___V1139*/ curfptr[1138])); ((basilysroutine_ptr_t)/*_.VALROUT___V1134*/ curfptr[1133])->tabval[23] = (basilys_ptr_t)(/*_.VALROUT___V1139*/ curfptr[1138]); BASILYS_LOCATION("warmelt-genobj.melt:2244:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1134*/ curfptr[1133]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1140*/ curfptr[1139])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1134*/ curfptr[1133])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1140*/ curfptr[1139])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1134*/ curfptr[1133]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1140*/ curfptr[1139]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1142*/ curfptr[1141]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1141*/ curfptr[1140]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#0", NULL != (/*_.CLASS_NREP_MSEND__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_MSEND__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#4", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2342:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1032__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2342:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1144*/ curfptr[1143]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#6", NULL != (/*_.VALROUT___V1144*/ curfptr[1143])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V570*/ curfptr[569]); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1028__COMPILOBJ_NREP_MSEND#8", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1143*/ curfptr[1142])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2330:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1143*/ curfptr[1142]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1145*/ curfptr[1144])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1143*/ curfptr[1142])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1145*/ curfptr[1144])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1143*/ curfptr[1142]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1145*/ curfptr[1144]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1147*/ curfptr[1146]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1146*/ curfptr[1145]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#0", NULL != (/*_.CLASS_NREP_MULTIMSEND__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_MULTIMSEND__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#3", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[3] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#5", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#7", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1149*/ curfptr[1148])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1149*/ curfptr[1148])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1149*/ curfptr[1148])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1149*/ curfptr[1148])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:2376:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1149*/ curfptr[1148])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1149*/ curfptr[1148])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:2376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1149*/ curfptr[1148])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1037__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1149*/ curfptr[1148])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2376:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1149*/ curfptr[1148]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#8", NULL != (/*_.VALROUT___V1149*/ curfptr[1148])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1149*/ curfptr[1148]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#9", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[10] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#11", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#12", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[12] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2398:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1038__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2398:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1150*/ curfptr[1149]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#13", NULL != (/*_.VALROUT___V1150*/ curfptr[1149])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V588*/ curfptr[587]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#16", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[16] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#17", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[17] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ curfptr[129]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); BASILYS_LOCATION("warmelt-genobj.melt:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2420:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V130*/ curfptr[129]); ((basilysroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]); BASILYS_LOCATION("warmelt-genobj.melt:2420:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1151*/ curfptr[1150]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#19", NULL != (/*_.VALROUT___V1151*/ curfptr[1150])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:2431:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:2431:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1152*/ curfptr[1151]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#21", NULL != (/*_.VALROUT___V1152*/ curfptr[1151])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[22] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:2441:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:2441:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1153*/ curfptr[1152]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__COMPILOBJ_NREP_MULTIMSEND#23", NULL != (/*_.VALROUT___V1153*/ curfptr[1152])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[23] = (basilys_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152]); BASILYS_LOCATION("warmelt-genobj.melt:2361:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1148*/ curfptr[1147]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1154*/ curfptr[1153])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1154*/ curfptr[1153])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1148*/ curfptr[1147]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1154*/ curfptr[1153]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1156*/ curfptr[1155]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1155*/ curfptr[1154]); BASILYS_LOCATION("warmelt-genobj.melt:2451:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1042__COMPILOBJ_ANY_BINDING#0", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:2451:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1042__COMPILOBJ_ANY_BINDING#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2451:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1042__COMPILOBJ_ANY_BINDING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2451:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1042__COMPILOBJ_ANY_BINDING#3", NULL != (/*_.DISPLAYDEBUGMSG__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1157*/ curfptr[1156])->tabval[3] = (basilys_ptr_t)(/*_.DISPLAYDEBUGMSG__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-genobj.melt:2451:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1157*/ curfptr[1156]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1158*/ curfptr[1157])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1157*/ curfptr[1156])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1158*/ curfptr[1157])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1157*/ curfptr[1156]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1158*/ curfptr[1157]); BASILYS_LOCATION("warmelt-genobj.melt:2465:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_VALUE_BINDING#0", NULL != (/*_.CLASS_VALUE_BINDING__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-genobj.melt:2465:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_VALUE_BINDING#1", NULL != (/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-genobj.melt:2465:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_VALUE_BINDING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2465:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1159*/ curfptr[1158])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2465:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1159*/ curfptr[1158]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1160*/ curfptr[1159])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1159*/ curfptr[1158])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1160*/ curfptr[1159])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1159*/ curfptr[1158]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1160*/ curfptr[1159]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1161*/ curfptr[1160])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1161*/ curfptr[1160])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1161*/ curfptr[1160]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1162*/ curfptr[1161]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1161*/ curfptr[1160]); BASILYS_LOCATION("warmelt-genobj.melt:2481:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1163*/ curfptr[1162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1048__COMPILOBJ_FIXED_BINDING#0", NULL != (/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82])); ((basilysroutine_ptr_t)/*_.VALROUT___V1163*/ curfptr[1162])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-genobj.melt:2481:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1163*/ curfptr[1162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1048__COMPILOBJ_FIXED_BINDING#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1163*/ curfptr[1162])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2481:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1163*/ curfptr[1162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1048__COMPILOBJ_FIXED_BINDING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1163*/ curfptr[1162])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2481:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1163*/ curfptr[1162])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1048__COMPILOBJ_FIXED_BINDING#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1163*/ curfptr[1162])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2481:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1163*/ curfptr[1162]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1164*/ curfptr[1163])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1163*/ curfptr[1162])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1164*/ curfptr[1163])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1163*/ curfptr[1162]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1164*/ curfptr[1163]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1165*/ curfptr[1164])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1165*/ curfptr[1164])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1165*/ curfptr[1164]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1166*/ curfptr[1165]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1165*/ curfptr[1164]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V120*/ curfptr[119]); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__PUTOBJDEST_OBJVALUE#2", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__PUTOBJDEST_OBJVALUE#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__PUTOBJDEST_OBJVALUE#6", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__PUTOBJDEST_OBJVALUE#8", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1167*/ curfptr[1166])->tabval[8] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2495:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1167*/ curfptr[1166]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1168*/ curfptr[1167])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1167*/ curfptr[1166])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1168*/ curfptr[1167])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1167*/ curfptr[1166]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1168*/ curfptr[1167]); BASILYS_LOCATION("warmelt-genobj.melt:2562:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2562:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1054__PUTOBJDEST_INTEGER#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2562:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1054__PUTOBJDEST_INTEGER#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2562:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:2562:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1054__PUTOBJDEST_INTEGER#4", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:2562:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1169*/ curfptr[1168]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1170*/ curfptr[1169])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1170*/ curfptr[1169])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1169*/ curfptr[1168]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1170*/ curfptr[1169]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__PUTOBJDEST_NULL#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__PUTOBJDEST_NULL#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__PUTOBJDEST_NULL#4", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__PUTOBJDEST_NULL#5", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2585:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1171*/ curfptr[1170]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1172*/ curfptr[1171])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1172*/ curfptr[1171])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1171*/ curfptr[1170]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1172*/ curfptr[1171]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1174*/ curfptr[1173]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1173*/ curfptr[1172]); BASILYS_LOCATION("warmelt-genobj.melt:2610:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2610:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2610:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:2610:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1175*/ curfptr[1174]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1176*/ curfptr[1175])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1176*/ curfptr[1175])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1175*/ curfptr[1174]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1176*/ curfptr[1175]); BASILYS_LOCATION("warmelt-genobj.melt:2638:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1177*/ curfptr[1176])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V386*/ curfptr[385]); ((basilysroutine_ptr_t)/*_.VALROUT___V1177*/ curfptr[1176])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-genobj.melt:2638:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1177*/ curfptr[1176])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1062__PUTOBJDEST_OBJMULTIBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1177*/ curfptr[1176])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2638:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1177*/ curfptr[1176])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1177*/ curfptr[1176])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:2638:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1177*/ curfptr[1176]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1178*/ curfptr[1177])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1177*/ curfptr[1176])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1178*/ curfptr[1177])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1177*/ curfptr[1176]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1178*/ curfptr[1177]); BASILYS_LOCATION("warmelt-genobj.melt:2653:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V424*/ curfptr[423]); ((basilysroutine_ptr_t)/*_.VALROUT___V1179*/ curfptr[1178])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]); BASILYS_LOCATION("warmelt-genobj.melt:2653:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1179*/ curfptr[1178])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2653:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1064__PUTOBJDEST_OBJLOOP#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1179*/ curfptr[1178])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2653:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1179*/ curfptr[1178])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:2653:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1064__PUTOBJDEST_OBJLOOP#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1179*/ curfptr[1178])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2653:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1179*/ curfptr[1178]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1180*/ curfptr[1179])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1180*/ curfptr[1179])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1179*/ curfptr[1178]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1180*/ curfptr[1179]); BASILYS_LOCATION("warmelt-genobj.melt:2677:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V438*/ curfptr[437]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]); BASILYS_LOCATION("warmelt-genobj.melt:2677:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2677:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1181*/ curfptr[1180]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1182*/ curfptr[1181])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1182*/ curfptr[1181])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1181*/ curfptr[1180]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1182*/ curfptr[1181]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1068__COMPILOBJ_NREP_IF#0", NULL != (/*_.CLASS_NREP_IF__V85*/ curfptr[84])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_IF__V85*/ curfptr[84]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1068__COMPILOBJ_NREP_IF#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1068__COMPILOBJ_NREP_IF#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1068__COMPILOBJ_NREP_IF#3", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1068__COMPILOBJ_NREP_IF#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1068__COMPILOBJ_NREP_IF#5", NULL != (/*_.CLASS_NREP_NIL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_NIL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:2687:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1183*/ curfptr[1182]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1184*/ curfptr[1183])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1184*/ curfptr[1183])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1183*/ curfptr[1182]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1184*/ curfptr[1183]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1186*/ curfptr[1185]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1185*/ curfptr[1184]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#0", NULL != (/*_.CLASS_NREP_IFISA__V86*/ curfptr[85])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_IFISA__V86*/ curfptr[85]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#3", NULL != (/*_.CLASS_CTYPE__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#5", NULL != (/*_.CLASS_NREP_NIL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_NIL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#7", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1072__COMPILOBJ_NREP_IFISA#8", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:2716:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1187*/ curfptr[1186]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1188*/ curfptr[1187])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1188*/ curfptr[1187])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1187*/ curfptr[1186]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1188*/ curfptr[1187]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1190*/ curfptr[1189]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1189*/ curfptr[1188]); BASILYS_LOCATION("warmelt-genobj.melt:2758:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:2758:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2758:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:2758:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1191*/ curfptr[1190]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1192*/ curfptr[1191])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1192*/ curfptr[1191])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1191*/ curfptr[1190]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1192*/ curfptr[1191]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1078__COMPILOBJ_NREP_CPPIF#0", NULL != (/*_.CLASS_NREP_CPPIF__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1193*/ curfptr[1192])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_CPPIF__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1078__COMPILOBJ_NREP_CPPIF#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1193*/ curfptr[1192])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1078__COMPILOBJ_NREP_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1193*/ curfptr[1192])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1078__COMPILOBJ_NREP_CPPIF#3", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1193*/ curfptr[1192])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1078__COMPILOBJ_NREP_CPPIF#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1193*/ curfptr[1192])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V484*/ curfptr[483]); ((basilysroutine_ptr_t)/*_.VALROUT___V1193*/ curfptr[1192])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]); BASILYS_LOCATION("warmelt-genobj.melt:2782:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1193*/ curfptr[1192]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1194*/ curfptr[1193])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1193*/ curfptr[1192])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1194*/ curfptr[1193])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1193*/ curfptr[1192]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1194*/ curfptr[1193]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1196*/ curfptr[1195]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1195*/ curfptr[1194]); BASILYS_LOCATION("warmelt-genobj.melt:2810:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1197*/ curfptr[1196])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V484*/ curfptr[483]); ((basilysroutine_ptr_t)/*_.VALROUT___V1197*/ curfptr[1196])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]); BASILYS_LOCATION("warmelt-genobj.melt:2810:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1197*/ curfptr[1196])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1197*/ curfptr[1196])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:2810:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1197*/ curfptr[1196])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1197*/ curfptr[1196])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:2810:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1197*/ curfptr[1196]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1198*/ curfptr[1197])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1197*/ curfptr[1196])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1198*/ curfptr[1197])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1197*/ curfptr[1196]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1198*/ curfptr[1197]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#0", NULL != (/*_.CLASS_NREP_RETURN__V88*/ curfptr[87])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_RETURN__V88*/ curfptr[87]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V780*/ curfptr[779]); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#8", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[8] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V332*/ curfptr[331]); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#10", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#11", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[11] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2858:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V332*/ curfptr[331]); ((basilysroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V332*/ curfptr[331]); BASILYS_LOCATION("warmelt-genobj.melt:2858:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1088__LAMBDA_#1", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2858:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1088__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2858:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1200*/ curfptr[1199]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1084__COMPILOBJ_NREP_RETURN#12", NULL != (/*_.VALROUT___V1200*/ curfptr[1199])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V346*/ curfptr[345]); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]); BASILYS_LOCATION("warmelt-genobj.melt:2834:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1199*/ curfptr[1198]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1201*/ curfptr[1200])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1201*/ curfptr[1200])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1199*/ curfptr[1198]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1201*/ curfptr[1200]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1203*/ curfptr[1202]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1202*/ curfptr[1201]); BASILYS_LOCATION("warmelt-genobj.melt:2878:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1204*/ curfptr[1203])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1089__LAMBDA_#0", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1204*/ curfptr[1203])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:2878:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1204*/ curfptr[1203]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1205*/ curfptr[1204])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1205*/ curfptr[1204])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1205*/ curfptr[1204]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1206*/ curfptr[1205]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1205*/ curfptr[1204]); BASILYS_LOCATION("warmelt-genobj.melt:2880:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206]))->obj_vartab[0] = (basilys_ptr_t)( /*_.CTYPE_VALUE__V17*/ curfptr[16]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1209*/ curfptr[1208]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1208*/ curfptr[1207]); BASILYS_LOCATION("warmelt-genobj.melt:2880:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALDATA___V1208*/ curfptr[1207]); BASILYS_LOCATION("warmelt-genobj.melt:2880:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1207*/ curfptr[1206]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#1", NULL != (/*_.CLASS_NREP_LAMBDA__V89*/ curfptr[88])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_LAMBDA__V89*/ curfptr[88]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V616*/ curfptr[615]); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1207*/ curfptr[1206]); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1207*/ curfptr[1206]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[9] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#10", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#11", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[11] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#12", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[12] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V702*/ curfptr[701]); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#14", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#15", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[15] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1099__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V702*/ curfptr[701]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1099__LAMBDA_#2", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2924:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1099__LAMBDA_#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2924:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1211*/ curfptr[1210]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1095__COMPILOBJ_NREP_LAMBDA#16", NULL != (/*_.VALROUT___V1211*/ curfptr[1210])); ((basilysroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[16] = (basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210]); BASILYS_LOCATION("warmelt-genobj.melt:2886:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1210*/ curfptr[1209]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1212*/ curfptr[1211])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1212*/ curfptr[1211])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1210*/ curfptr[1209]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1212*/ curfptr[1211]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1214*/ curfptr[1213]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1213*/ curfptr[1212]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#1", NULL != (/*_.CLASS_NREP_MAKE_INSTANCE__V90*/ curfptr[89])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_MAKE_INSTANCE__V90*/ curfptr[89]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#3", NULL != (/*_.CLASS_CLASS__V91*/ curfptr[90])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLASS__V91*/ curfptr[90]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1217*/ curfptr[1216]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1216*/ curfptr[1215]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#6", NULL != (/*_.VALDATA___V1216*/ curfptr[1215])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[7] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V598*/ curfptr[597]); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#10", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#11", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[11] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#12", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#13", NULL != (/*_.CLASS_FIELD__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_FIELD__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#14", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[14] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#15", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V652*/ curfptr[651]); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#17", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1108__LAMBDA_#0", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1108__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1108__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1108__LAMBDA_#3", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V652*/ curfptr[651]); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1108__LAMBDA_#5", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:2972:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1218*/ curfptr[1217]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1100__COMPILOBJ_NREP_MAKEINST#18", NULL != (/*_.VALROUT___V1218*/ curfptr[1217])); ((basilysroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[18] = (basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217]); BASILYS_LOCATION("warmelt-genobj.melt:2941:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1215*/ curfptr[1214]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1219*/ curfptr[1218])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1219*/ curfptr[1218])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1215*/ curfptr[1214]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1219*/ curfptr[1218]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1221*/ curfptr[1220]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1220*/ curfptr[1219]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1222*/ curfptr[1221])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1222*/ curfptr[1221])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1222*/ curfptr[1221]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1223*/ curfptr[1222]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1222*/ curfptr[1221]); BASILYS_LOCATION("warmelt-genobj.melt:2999:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1109__COMPILOBJ_ROUTPROC#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:2999:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1109__COMPILOBJ_ROUTPROC#1", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:2999:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1109__COMPILOBJ_ROUTPROC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:2999:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1224*/ curfptr[1223]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1225*/ curfptr[1224])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1225*/ curfptr[1224])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1224*/ curfptr[1223]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1225*/ curfptr[1224]); BASILYS_LOCATION("warmelt-genobj.melt:3009:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1226*/ curfptr[1225])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_PREDEF#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1226*/ curfptr[1225])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3009:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1226*/ curfptr[1225])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V178*/ curfptr[177]); ((basilysroutine_ptr_t)/*_.VALROUT___V1226*/ curfptr[1225])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V178*/ curfptr[177]); BASILYS_LOCATION("warmelt-genobj.melt:3009:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1226*/ curfptr[1225])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_PREDEF#2", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1226*/ curfptr[1225])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:3009:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1226*/ curfptr[1225]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1227*/ curfptr[1226])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1226*/ curfptr[1225])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1227*/ curfptr[1226])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1226*/ curfptr[1225]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1227*/ curfptr[1226]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1229*/ curfptr[1228]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1228*/ curfptr[1227]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#0", NULL != (/*_.CLASS_NREP_DATA__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_DATA__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V120*/ curfptr[119]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#4", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#5", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[5] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#6", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V74*/ curfptr[73])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1232*/ curfptr[1231]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1231*/ curfptr[1230]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#8", NULL != (/*_.VALDATA___V1231*/ curfptr[1230])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1234*/ curfptr[1233]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1233*/ curfptr[1232]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#9", NULL != (/*_.VALDATA___V1233*/ curfptr[1232])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#10", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#11", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#13", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#14", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V376*/ curfptr[375]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#16", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[16] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#18", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[18] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#19", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[19] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[20] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#21", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[21] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1235*/ curfptr[1234])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1121__LAMBDA_#0", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1235*/ curfptr[1234])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1235*/ curfptr[1234])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1235*/ curfptr[1234])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1235*/ curfptr[1234])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1121__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1235*/ curfptr[1234])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3102:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1235*/ curfptr[1234])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1235*/ curfptr[1234])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:3102:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#23", NULL != (/*_.VALROUT___V1235*/ curfptr[1234])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[23] = (basilys_ptr_t)(/*_.VALROUT___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#24", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[24] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#25", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[25] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#26", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[26] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V652*/ curfptr[651]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[27] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1236*/ curfptr[1235])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1122__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1236*/ curfptr[1235])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1236*/ curfptr[1235])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1122__LAMBDA_#1", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1236*/ curfptr[1235])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1236*/ curfptr[1235])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1122__LAMBDA_#2", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1236*/ curfptr[1235])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3121:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1236*/ curfptr[1235])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V652*/ curfptr[651]); ((basilysroutine_ptr_t)/*_.VALROUT___V1236*/ curfptr[1235])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); BASILYS_LOCATION("warmelt-genobj.melt:3121:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1236*/ curfptr[1235]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#28", NULL != (/*_.VALROUT___V1236*/ curfptr[1235])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[28] = (basilys_ptr_t)(/*_.VALROUT___V1236*/ curfptr[1235]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[30] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:3150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:3150:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1237*/ curfptr[1236]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__COMPIL_DATA_AND_SLOTS_FILL#31", NULL != (/*_.VALROUT___V1237*/ curfptr[1236])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[31] = (basilys_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236]); BASILYS_LOCATION("warmelt-genobj.melt:3027:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1230*/ curfptr[1229]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1238*/ curfptr[1237])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1238*/ curfptr[1237])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1230*/ curfptr[1229]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1238*/ curfptr[1237]); BASILYS_LOCATION("warmelt-genobj.melt:3172:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3172:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3172:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#2", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[2] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:3172:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:3177:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1240*/ curfptr[1239])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1012*/ curfptr[1011]); ((basilysroutine_ptr_t)/*_.VALROUT___V1240*/ curfptr[1239])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V1012*/ curfptr[1011]); BASILYS_LOCATION("warmelt-genobj.melt:3177:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1240*/ curfptr[1239]); BASILYS_LOCATION("warmelt-genobj.melt:3172:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1124__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#4", NULL != (/*_.VALROUT___V1240*/ curfptr[1239])); ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1240*/ curfptr[1239]); BASILYS_LOCATION("warmelt-genobj.melt:3172:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1239*/ curfptr[1238]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1241*/ curfptr[1240])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1241*/ curfptr[1240])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1239*/ curfptr[1238]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1241*/ curfptr[1240]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#1", NULL != (/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#6", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[6] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#7", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1127__COMPILOBJ_DATASYMBOL#8", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1238*/ curfptr[1237]); ((basilysroutine_ptr_t)/*_.VALROUT___V1242*/ curfptr[1241])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1238*/ curfptr[1237]); BASILYS_LOCATION("warmelt-genobj.melt:3180:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1242*/ curfptr[1241]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1243*/ curfptr[1242])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1242*/ curfptr[1241])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1243*/ curfptr[1242])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1242*/ curfptr[1241]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1243*/ curfptr[1242]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1129__COMPILOBJ_DATAINSTANCE#0", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1129__COMPILOBJ_DATAINSTANCE#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1129__COMPILOBJ_DATAINSTANCE#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ curfptr[215]); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1129__COMPILOBJ_DATAINSTANCE#5", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1129__COMPILOBJ_DATAINSTANCE#6", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1129__COMPILOBJ_DATAINSTANCE#7", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1238*/ curfptr[1237]); ((basilysroutine_ptr_t)/*_.VALROUT___V1244*/ curfptr[1243])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1238*/ curfptr[1237]); BASILYS_LOCATION("warmelt-genobj.melt:3231:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1244*/ curfptr[1243]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1245*/ curfptr[1244])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1244*/ curfptr[1243])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1245*/ curfptr[1244])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1244*/ curfptr[1243]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1245*/ curfptr[1244]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#0", NULL != (/*_.CLASS_NREP_DATATUPLE__V93*/ curfptr[92])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_DATATUPLE__V93*/ curfptr[92]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#4", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3327:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1135__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1247*/ curfptr[1246])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3327:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1247*/ curfptr[1246]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#6", NULL != (/*_.VALROUT___V1247*/ curfptr[1246])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[7] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#8", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1249*/ curfptr[1248]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1248*/ curfptr[1247]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#10", NULL != (/*_.VALDATA___V1248*/ curfptr[1247])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1251*/ curfptr[1250]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1250*/ curfptr[1249]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#11", NULL != (/*_.VALDATA___V1250*/ curfptr[1249])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V226*/ curfptr[225]); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#13", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[13] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#14", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#15", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[15] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V634*/ curfptr[633]); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#17", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3355:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1252*/ curfptr[1251])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V634*/ curfptr[633]); ((basilysroutine_ptr_t)/*_.VALROUT___V1252*/ curfptr[1251])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]); BASILYS_LOCATION("warmelt-genobj.melt:3355:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1252*/ curfptr[1251])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1140__LAMBDA_#1", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1252*/ curfptr[1251])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3355:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1131__COMPILOBJ_DATATUPLE#18", NULL != (/*_.VALROUT___V1252*/ curfptr[1251])); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[18] = (basilys_ptr_t)(/*_.VALROUT___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1246*/ curfptr[1245])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3309:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1246*/ curfptr[1245]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1253*/ curfptr[1252])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1246*/ curfptr[1245])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1253*/ curfptr[1252])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1246*/ curfptr[1245]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1253*/ curfptr[1252]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1255*/ curfptr[1254]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1254*/ curfptr[1253]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#0", NULL != (/*_.CLASS_NREP_DATASTRING__V94*/ curfptr[93])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASTRING__V94*/ curfptr[93]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1258*/ curfptr[1257]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1257*/ curfptr[1256]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#7", NULL != (/*_.VALDATA___V1257*/ curfptr[1256])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V252*/ curfptr[251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1141__COMPILOBJ_DATASTRING#9", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3380:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1256*/ curfptr[1255]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1259*/ curfptr[1258])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1259*/ curfptr[1258])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1256*/ curfptr[1255]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1259*/ curfptr[1258]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1261*/ curfptr[1260]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1260*/ curfptr[1259]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#0", NULL != (/*_.CLASS_NREP_DATACLOSURE__V95*/ curfptr[94])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_DATACLOSURE__V95*/ curfptr[94]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1263*/ curfptr[1262])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1263*/ curfptr[1262])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1263*/ curfptr[1262]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1264*/ curfptr[1263]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1263*/ curfptr[1262]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#7", NULL != (/*_.VALDATA___V1263*/ curfptr[1262])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1263*/ curfptr[1262]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1266*/ curfptr[1265]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1265*/ curfptr[1264]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#8", NULL != (/*_.VALDATA___V1265*/ curfptr[1264])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#9", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V236*/ curfptr[235]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V236*/ curfptr[235]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#11", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[11] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#12", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#13", NULL != (/*_.CLASS_NREP_DATAROUTINE__V96*/ curfptr[95])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V96*/ curfptr[95]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V688*/ curfptr[687]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#15", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V814*/ curfptr[813]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#17", NULL != (/*_.MULTIPLE_EVERY__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[17] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#18", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[18] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V702*/ curfptr[701]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#20", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[20] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1157__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[0] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V702*/ curfptr[701]); ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]); BASILYS_LOCATION("warmelt-genobj.melt:3496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1157__LAMBDA_#2", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3496:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1267*/ curfptr[1266]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__COMPILOBJ_DATACLOSURE#21", NULL != (/*_.VALROUT___V1267*/ curfptr[1266])); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1262*/ curfptr[1261])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3429:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1262*/ curfptr[1261]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1262*/ curfptr[1261])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1268*/ curfptr[1267])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1262*/ curfptr[1261]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1268*/ curfptr[1267]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1270*/ curfptr[1269]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1269*/ curfptr[1268]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1272*/ curfptr[1271]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1271*/ curfptr[1270]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#0", NULL != (/*_.CLASS_NREP_DATAROUTINE__V96*/ curfptr[95])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V96*/ curfptr[95]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V832*/ curfptr[831]); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V909*/ curfptr[908]); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V909*/ curfptr[908]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1275*/ curfptr[1274]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1274*/ curfptr[1273]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#5", NULL != (/*_.VALDATA___V1274*/ curfptr[1273])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#6", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#7", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[8] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V242*/ curfptr[241]); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#10", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[10] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#11", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#12", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#13", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1277*/ curfptr[1276]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1276*/ curfptr[1275]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#14", NULL != (/*_.VALDATA___V1276*/ curfptr[1275])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#15", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[15] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#16", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[16] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#17", NULL != (/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#18", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#19", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[19] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#20", NULL != (/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[20] = (basilys_ptr_t)(/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V744*/ curfptr[743]); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[21] = (basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#22", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[22] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V726*/ curfptr[725]); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[23] = (basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#24", NULL != (/*_.CLASS_NREP_QUASIDATA__V97*/ curfptr[96])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[24] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA__V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#1", NULL != (/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#2", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#4", NULL != (/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V744*/ curfptr[743]); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#6", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V726*/ curfptr[725]); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__LAMBDA_#8", NULL != (/*_.CLASS_NREP_QUASIDATA__V97*/ curfptr[96])); ((basilysroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA__V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-genobj.melt:3582:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1278*/ curfptr[1277]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__COMPILOBJ_DATAROUTINE#25", NULL != (/*_.VALROUT___V1278*/ curfptr[1277])); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[25] = (basilys_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1273*/ curfptr[1272])->tabval[26] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3520:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1273*/ curfptr[1272]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1279*/ curfptr[1278])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1273*/ curfptr[1272])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1279*/ curfptr[1278])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1273*/ curfptr[1272]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1279*/ curfptr[1278]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1281*/ curfptr[1280]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1280*/ curfptr[1279]); BASILYS_LOCATION("warmelt-genobj.melt:3647:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-genobj.melt:3647:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-genobj.melt:3647:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3647:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1282*/ curfptr[1281]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1283*/ curfptr[1282])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1283*/ curfptr[1282])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1282*/ curfptr[1281]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1283*/ curfptr[1282]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1285*/ curfptr[1284]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1284*/ curfptr[1283]); BASILYS_LOCATION("warmelt-genobj.melt:3659:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V99*/ curfptr[98])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-genobj.melt:3659:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-genobj.melt:3659:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1171__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3659:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1286*/ curfptr[1285]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1287*/ curfptr[1286])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1286*/ curfptr[1285]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1287*/ curfptr[1286]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1289*/ curfptr[1288]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1288*/ curfptr[1287]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#0", NULL != (/*_.CLASS_NREP_STORE_PREDEFINED__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_STORE_PREDEFINED__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[3] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#5", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V258*/ curfptr[257]); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#7", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__COMPILOBJ_NREP_STORE_PREDEFINED#9", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[9] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:3671:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1290*/ curfptr[1289]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1291*/ curfptr[1290])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1291*/ curfptr[1290])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1290*/ curfptr[1289]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1291*/ curfptr[1290]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1293*/ curfptr[1292]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1292*/ curfptr[1291]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V101*/ curfptr[100])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V101*/ curfptr[100]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_INITGENERCONTEXT__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V376*/ curfptr[375]); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#6", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[7] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#8", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[8] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#9", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V814*/ curfptr[813]); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#11", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[11] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#12", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V242*/ curfptr[241]); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#14", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[14] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#15", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[15] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#16", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V726*/ curfptr[725]); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#18", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[18] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#20", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[20] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[21] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#22", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[22] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V814*/ curfptr[813]); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#3", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V242*/ curfptr[241]); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#5", NULL != (/*_.LIST_EVERY__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[5] = (basilys_ptr_t)(/*_.LIST_EVERY__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#7", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V726*/ curfptr[725]); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#9", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#11", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#13", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[13] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#1", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V726*/ curfptr[725]); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#3", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V750*/ curfptr[749]); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#5", NULL != (/*_.DISCR_STRING__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_STRING__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#7", NULL != (/*_.LIST1__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[7] = (basilys_ptr_t)(/*_.LIST1__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-genobj.melt:3754:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1296*/ curfptr[1295]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1183__LAMBDA_#14", NULL != (/*_.VALROUT___V1296*/ curfptr[1295])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295]); BASILYS_LOCATION("warmelt-genobj.melt:3737:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1295*/ curfptr[1294]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1179__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#23", NULL != (/*_.VALROUT___V1295*/ curfptr[1294])); ((basilysroutine_ptr_t)/*_.VALROUT___V1294*/ curfptr[1293])->tabval[23] = (basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294]); BASILYS_LOCATION("warmelt-genobj.melt:3705:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1294*/ curfptr[1293]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1297*/ curfptr[1296])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1297*/ curfptr[1296])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1294*/ curfptr[1293]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1297*/ curfptr[1296]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1299*/ curfptr[1298]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1298*/ curfptr[1297]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1301*/ curfptr[1300]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1300*/ curfptr[1299]); BASILYS_LOCATION("warmelt-genobj.melt:3809:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1303*/ curfptr[1302]); BASILYS_LOCATION("warmelt-genobj.melt:3809:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1302*/ curfptr[1301]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1305*/ curfptr[1304]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1304*/ curfptr[1303]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1307*/ curfptr[1306]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1306*/ curfptr[1305]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1309*/ curfptr[1308]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_PROPED__V102*/ curfptr[101]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1310*/ curfptr[1309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1310*/ curfptr[1309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1310*/ curfptr[1309]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_PROPED__V102*/ curfptr[101]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1310*/ curfptr[1309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1310*/ curfptr[1309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1310*/ curfptr[1309]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_PROPED__V102*/ curfptr[101]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1310*/ curfptr[1309]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V1310*/ curfptr[1309]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1312*/ curfptr[1311]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1311*/ curfptr[1310]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1314*/ curfptr[1313]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1313*/ curfptr[1312]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1316*/ curfptr[1315]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1315*/ curfptr[1314]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1318*/ curfptr[1317]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1317*/ curfptr[1316]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1320*/ curfptr[1319]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1319*/ curfptr[1318]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1322*/ curfptr[1321]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1321*/ curfptr[1320]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_PROPED__V102*/ curfptr[101]),6))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1323*/ curfptr[1322]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1323*/ curfptr[1322]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V1323*/ curfptr[1322]); BASILYS_LOCATION("warmelt-genobj.melt:3813:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1308*/ curfptr[1307]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1325*/ curfptr[1324]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1324*/ curfptr[1323]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1327*/ curfptr[1326]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1326*/ curfptr[1325]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1329*/ curfptr[1328]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1328*/ curfptr[1327]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1330*/ curfptr[1329])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1330*/ curfptr[1329])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1330*/ curfptr[1329]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1331*/ curfptr[1330]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1330*/ curfptr[1329]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1333*/ curfptr[1332]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1332*/ curfptr[1331]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1335*/ curfptr[1334]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1334*/ curfptr[1333]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1337*/ curfptr[1336]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1336*/ curfptr[1335]); BASILYS_LOCATION("warmelt-genobj.melt:3830:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1339*/ curfptr[1338]); BASILYS_LOCATION("warmelt-genobj.melt:3830:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1338*/ curfptr[1337]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1340*/ curfptr[1339])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1340*/ curfptr[1339])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1340*/ curfptr[1339]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1341*/ curfptr[1340]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1340*/ curfptr[1339]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1343*/ curfptr[1342]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_PROPED__V102*/ curfptr[101]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_PROPED__V102*/ curfptr[101]),5))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[1] = (basilys_ptr_t)(/*_.CLASS_PROPED__V102*/ curfptr[101]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1344*/ curfptr[1343]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V1344*/ curfptr[1343]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1346*/ curfptr[1345]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1345*/ curfptr[1344]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1348*/ curfptr[1347]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1347*/ curfptr[1346]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348]))->tabval[0] = (basilys_ptr_t)(/*multacc*/(basilys_multiple_nth((/*fieldacc*/(basilys_field_object((basilys_ptr_t)(/*_.CLASS_PROPED__V102*/ curfptr[101]),6))), (0)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1349*/ curfptr[1348]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1349*/ curfptr[1348]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V1349*/ curfptr[1348]); BASILYS_LOCATION("warmelt-genobj.melt:3833:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1342*/ curfptr[1341]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1351*/ curfptr[1350]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1350*/ curfptr[1349]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1353*/ curfptr[1352]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1352*/ curfptr[1351]); BASILYS_LOCATION("warmelt-genobj.melt:3842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1354*/ curfptr[1353])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1239__COMPILTST_ANYTESTER#0", NULL != (/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1354*/ curfptr[1353])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:3842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1354*/ curfptr[1353])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1239__COMPILTST_ANYTESTER#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1354*/ curfptr[1353])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3842:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1354*/ curfptr[1353])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1354*/ curfptr[1353])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:3842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1354*/ curfptr[1353])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1239__COMPILTST_ANYTESTER#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1354*/ curfptr[1353])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3842:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1354*/ curfptr[1353]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1355*/ curfptr[1354])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1354*/ curfptr[1353])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1355*/ curfptr[1354])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1354*/ curfptr[1353]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1355*/ curfptr[1354]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1357*/ curfptr[1356]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1356*/ curfptr[1355]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#0", NULL != (/*_.CLASS_NREP_MATCH__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_MATCH__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#4", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V386*/ curfptr[385]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V410*/ curfptr[409]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#8", NULL != (/*_.DISCR_INTEGER__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V396*/ curfptr[395]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#11", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[11] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#12", NULL != (/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:4034:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1360*/ curfptr[1359])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1256__NORMTESTER_LABELINSTR#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1360*/ curfptr[1359])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4034:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1360*/ curfptr[1359])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1256__NORMTESTER_LABELINSTR#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1360*/ curfptr[1359])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4034:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1360*/ curfptr[1359])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1256__NORMTESTER_LABELINSTR#2", NULL != (/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1360*/ curfptr[1359])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:4034:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1360*/ curfptr[1359])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1256__NORMTESTER_LABELINSTR#3", NULL != (/*_.CLASS_NREP_MATCH__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V1360*/ curfptr[1359])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_MATCH__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1360*/ curfptr[1359])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V396*/ curfptr[395]); ((basilysroutine_ptr_t)/*_.VALROUT___V1360*/ curfptr[1359])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-genobj.melt:4034:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1360*/ curfptr[1359]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1359*/ curfptr[1358])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1360*/ curfptr[1359])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1359*/ curfptr[1358])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1360*/ curfptr[1359]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1359*/ curfptr[1358]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1359*/ curfptr[1358]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1359*/ curfptr[1358]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1338*/ curfptr[1337]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#15", NULL != (/*_.LIST_APPEND2LIST__V105*/ curfptr[104])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[15] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V105*/ curfptr[104]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#16", NULL != (/*_.CLASS_NORMTESTER_SUCCESS__V106*/ curfptr[105])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_SUCCESS__V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#17", NULL != (/*_.MAPOBJECT_EVERY__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[17] = (basilys_ptr_t)(/*_.MAPOBJECT_EVERY__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#18", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[18] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#19", NULL != (/*_.LIST_FIND__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[19] = (basilys_ptr_t)(/*_.LIST_FIND__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-genobj.melt:3969:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1361*/ curfptr[1360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1253__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1361*/ curfptr[1360])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:3969:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1361*/ curfptr[1360])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1253__LAMBDA_#1", NULL != (/*_.LIST_FIND__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V1361*/ curfptr[1360])->tabval[1] = (basilys_ptr_t)(/*_.LIST_FIND__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-genobj.melt:3969:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1361*/ curfptr[1360]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#20", NULL != (/*_.VALROUT___V1361*/ curfptr[1360])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[20] = (basilys_ptr_t)(/*_.VALROUT___V1361*/ curfptr[1360]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#21", NULL != (/*_.LIST_FIND__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[21] = (basilys_ptr_t)(/*_.LIST_FIND__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1010*/ curfptr[1009]); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[23] = (basilys_ptr_t)(/*_.VALCLO___V1010*/ curfptr[1009]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#24", NULL != (/*_.LIST_TO_MULTIPLE__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[24] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1243__COMPILOBJ_NREP_MATCH#25", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[25] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:3856:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1358*/ curfptr[1357]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1362*/ curfptr[1361])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1362*/ curfptr[1361])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1358*/ curfptr[1357]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1362*/ curfptr[1361]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1363*/ curfptr[1362])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1363*/ curfptr[1362])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1363*/ curfptr[1362]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1364*/ curfptr[1363]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1363*/ curfptr[1362]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1366*/ curfptr[1365]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1365*/ curfptr[1364]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1368*/ curfptr[1367]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1367*/ curfptr[1366]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1370*/ curfptr[1369]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1369*/ curfptr[1368]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1371*/ curfptr[1370])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1371*/ curfptr[1370])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1371*/ curfptr[1370]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1372*/ curfptr[1371]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1371*/ curfptr[1370]); BASILYS_LOCATION("warmelt-genobj.melt:4066:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1373*/ curfptr[1372])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1258__NORMTESTER_GOTOINSTR#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1373*/ curfptr[1372])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4066:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1373*/ curfptr[1372])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1258__NORMTESTER_GOTOINSTR#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1373*/ curfptr[1372])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4066:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1373*/ curfptr[1372])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1258__NORMTESTER_GOTOINSTR#2", NULL != (/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1373*/ curfptr[1372])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:4066:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1373*/ curfptr[1372])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1258__NORMTESTER_GOTOINSTR#3", NULL != (/*_.CLASS_NREP_MATCH__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V1373*/ curfptr[1372])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_MATCH__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-genobj.melt:4066:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1373*/ curfptr[1372])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V410*/ curfptr[409]); ((basilysroutine_ptr_t)/*_.VALROUT___V1373*/ curfptr[1372])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-genobj.melt:4066:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1373*/ curfptr[1372]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1374*/ curfptr[1373])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1373*/ curfptr[1372])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1374*/ curfptr[1373])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1373*/ curfptr[1372]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1374*/ curfptr[1373]); BASILYS_LOCATION("warmelt-genobj.melt:4099:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1260__ENDMATCH_GOTOINSTR#0", NULL != (/*_.CLASS_NREP_MATCH__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_MATCH__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-genobj.melt:4099:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1260__ENDMATCH_GOTOINSTR#1", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4099:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1260__ENDMATCH_GOTOINSTR#2", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:4099:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V410*/ curfptr[409]); ((basilysroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-genobj.melt:4099:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1260__ENDMATCH_GOTOINSTR#4", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4099:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1375*/ curfptr[1374]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1376*/ curfptr[1375])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1376*/ curfptr[1375])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1375*/ curfptr[1374]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1376*/ curfptr[1375]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#1", NULL != (/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#2", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#4", NULL != (/*_.LIST_MAP__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[4] = (basilys_ptr_t)(/*_.LIST_MAP__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#5", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#7", NULL != (/*_.CLASS_NREP_SYMOCC__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NREP_SYMOCC__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-genobj.melt:4134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1264__LAMBDA_#0", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-genobj.melt:4134:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V915*/ curfptr[914]); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-genobj.melt:4134:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1264__LAMBDA_#2", NULL != (/*_.CLASS_NREP_SYMOCC__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_SYMOCC__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-genobj.melt:4134:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1378*/ curfptr[1377]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#8", NULL != (/*_.VALROUT___V1378*/ curfptr[1377])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1262__NORMTESTER_FREE_OBJLOC_LIST#9", NULL != (/*_.LIST_APPEND2LIST__V105*/ curfptr[104])); ((basilysroutine_ptr_t)/*_.VALROUT___V1377*/ curfptr[1376])->tabval[9] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V105*/ curfptr[104]); BASILYS_LOCATION("warmelt-genobj.melt:4121:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1377*/ curfptr[1376]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1379*/ curfptr[1378])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1377*/ curfptr[1376])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1379*/ curfptr[1378])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1377*/ curfptr[1376]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1379*/ curfptr[1378]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1380*/ curfptr[1379])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1380*/ curfptr[1379])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1380*/ curfptr[1379]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1381*/ curfptr[1380]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1380*/ curfptr[1379]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1267__COMPILTST_NORMTESTER_MATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1267__COMPILTST_NORMTESTER_MATCHER#1", NULL != (/*_.CLASS_NORMTESTER_MATCHER__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1267__COMPILTST_NORMTESTER_MATCHER#2", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1374*/ curfptr[1373]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1374*/ curfptr[1373]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1267__COMPILTST_NORMTESTER_MATCHER#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1379*/ curfptr[1378]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1379*/ curfptr[1378]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1376*/ curfptr[1375]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1376*/ curfptr[1375]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1308*/ curfptr[1307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1302*/ curfptr[1301]); ((basilysroutine_ptr_t)/*_.VALROUT___V1382*/ curfptr[1381])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]); BASILYS_LOCATION("warmelt-genobj.melt:4150:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1382*/ curfptr[1381]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1383*/ curfptr[1382])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1382*/ curfptr[1381])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1383*/ curfptr[1382])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1382*/ curfptr[1381]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1383*/ curfptr[1382]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1385*/ curfptr[1384]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1384*/ curfptr[1383]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#1", NULL != (/*_.CLASS_NORMTESTER_INSTANCE__V111*/ curfptr[110])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_INSTANCE__V111*/ curfptr[110]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#2", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1376*/ curfptr[1375]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1376*/ curfptr[1375]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1374*/ curfptr[1373]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1374*/ curfptr[1373]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[7] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1379*/ curfptr[1378]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1379*/ curfptr[1378]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V268*/ curfptr[267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#11", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#12", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#16", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#17", NULL != (/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1271__COMPILTST_NORMTESTER_INSTANCE#18", NULL != (/*_.CLASS_NREP_UNSAFE_GET_FIELD__V75*/ curfptr[74])); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V75*/ curfptr[74]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V856*/ curfptr[855]); ((basilysroutine_ptr_t)/*_.VALROUT___V1386*/ curfptr[1385])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]); BASILYS_LOCATION("warmelt-genobj.melt:4210:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1386*/ curfptr[1385]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1387*/ curfptr[1386])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1386*/ curfptr[1385])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1387*/ curfptr[1386])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1386*/ curfptr[1385]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1387*/ curfptr[1386]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1389*/ curfptr[1388]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1388*/ curfptr[1387]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#1", NULL != (/*_.CLASS_NORMTESTER_SAME__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_SAME__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#2", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[4] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1376*/ curfptr[1375]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1376*/ curfptr[1375]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1374*/ curfptr[1373]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1374*/ curfptr[1373]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1379*/ curfptr[1378]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1379*/ curfptr[1378]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#8", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V268*/ curfptr[267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#11", NULL != (/*_.DISCR_MULTIPLE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1275__COMPILTST_NORMTESTER_SAME#12", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V136*/ curfptr[135]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V136*/ curfptr[135]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1390*/ curfptr[1389])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:4317:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1390*/ curfptr[1389]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1391*/ curfptr[1390])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1390*/ curfptr[1389])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1391*/ curfptr[1390])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1390*/ curfptr[1389]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1391*/ curfptr[1390]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1392*/ curfptr[1391])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1392*/ curfptr[1391])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1392*/ curfptr[1391]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1393*/ curfptr[1392]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1392*/ curfptr[1391]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1279__COMPILTST_NORMTESTER_SUCCESS#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1279__COMPILTST_NORMTESTER_SUCCESS#1", NULL != (/*_.CLASS_NORMTESTER_SUCCESS__V106*/ curfptr[105])); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_SUCCESS__V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1279__COMPILTST_NORMTESTER_SUCCESS#2", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1342*/ curfptr[1341]); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1376*/ curfptr[1375]); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1376*/ curfptr[1375]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1279__COMPILTST_NORMTESTER_SUCCESS#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[5] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1279__COMPILTST_NORMTESTER_SUCCESS#6", NULL != (/*_.LIST2__V113*/ curfptr[112])); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[6] = (basilys_ptr_t)(/*_.LIST2__V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-genobj.melt:4394:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1394*/ curfptr[1393]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1395*/ curfptr[1394])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1395*/ curfptr[1394])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1394*/ curfptr[1393]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1395*/ curfptr[1394]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1397*/ curfptr[1396]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1396*/ curfptr[1395]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#1", NULL != (/*_.CLASS_CMATCHER__V114*/ curfptr[113])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V114*/ curfptr[113]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1308*/ curfptr[1307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#3", NULL != (/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_GENERCONTEXT__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#4", NULL != (/*_.DISCR_MAPOBJECTS__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#5", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#6", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#7", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#8", NULL != (/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[9] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#10", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#11", NULL != (/*_.MULTIPLE_EVERY_BOTH__V115*/ curfptr[114])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[11] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY_BOTH__V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#12", NULL != (/*_.CLASS_NORMTESTER_MATCHER__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#13", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[13] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#14", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#15", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[15] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#16", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:4474:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1399*/ curfptr[1398])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1289__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1399*/ curfptr[1398])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4474:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1399*/ curfptr[1398])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1289__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1399*/ curfptr[1398])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:4474:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1399*/ curfptr[1398])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1289__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1399*/ curfptr[1398])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4474:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1399*/ curfptr[1398])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1289__LAMBDA_#3", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1399*/ curfptr[1398])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:4474:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1399*/ curfptr[1398]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#17", NULL != (/*_.VALROUT___V1399*/ curfptr[1398])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[17] = (basilys_ptr_t)(/*_.VALROUT___V1399*/ curfptr[1398]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#18", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[18] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#19", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[19] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#20", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[20] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#21", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:4488:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1400*/ curfptr[1399])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1290__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1400*/ curfptr[1399])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-genobj.melt:4488:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1400*/ curfptr[1399])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1290__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1400*/ curfptr[1399])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:4488:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1400*/ curfptr[1399])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1290__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1400*/ curfptr[1399])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-genobj.melt:4488:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1400*/ curfptr[1399])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1290__LAMBDA_#3", NULL != (/*_.CLASS_ANY_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1400*/ curfptr[1399])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-genobj.melt:4488:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1400*/ curfptr[1399]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#22", NULL != (/*_.VALROUT___V1400*/ curfptr[1399])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[22] = (basilys_ptr_t)(/*_.VALROUT___V1400*/ curfptr[1399]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#23", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[23] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#24", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[24] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1308*/ curfptr[1307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[25] = (basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#26", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[26] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#27", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[27] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1291__LAMBDA_#0", NULL != (/*_.MULTIPLE_MAP__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1401*/ curfptr[1400])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1291__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1401*/ curfptr[1400])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1308*/ curfptr[1307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1401*/ curfptr[1400])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1291__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1401*/ curfptr[1400])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1291__LAMBDA_#4", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1401*/ curfptr[1400])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4505:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1402*/ curfptr[1401])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1292__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1402*/ curfptr[1401])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-genobj.melt:4505:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1402*/ curfptr[1401])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1308*/ curfptr[1307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1402*/ curfptr[1401])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]); BASILYS_LOCATION("warmelt-genobj.melt:4505:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1402*/ curfptr[1401])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1292__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1402*/ curfptr[1401])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-genobj.melt:4505:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1402*/ curfptr[1401])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1292__LAMBDA_#3", NULL != (/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1402*/ curfptr[1401])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-genobj.melt:4505:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1402*/ curfptr[1401]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1291__LAMBDA_#5", NULL != (/*_.VALROUT___V1402*/ curfptr[1401])); ((basilysroutine_ptr_t)/*_.VALROUT___V1401*/ curfptr[1400])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V1402*/ curfptr[1401]); BASILYS_LOCATION("warmelt-genobj.melt:4502:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1401*/ curfptr[1400]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#28", NULL != (/*_.VALROUT___V1401*/ curfptr[1400])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[28] = (basilys_ptr_t)(/*_.VALROUT___V1401*/ curfptr[1400]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V268*/ curfptr[267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#30", NULL != (/*_.CTYPE_LONG__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[30] = (basilys_ptr_t)(/*_.CTYPE_LONG__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#31", NULL != (/*_.CTYPE_VOID__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[31] = (basilys_ptr_t)(/*_.CTYPE_VOID__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#32", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[32] = (basilys_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V362*/ curfptr[361]); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[33] = (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[34] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1283__COMPILMATCHER_CMATCHER#35", NULL != (/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[35] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V352*/ curfptr[351]); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[36] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-genobj.melt:4428:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1398*/ curfptr[1397]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1403*/ curfptr[1402])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1403*/ curfptr[1402])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1398*/ curfptr[1397]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1403*/ curfptr[1402]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1405*/ curfptr[1404]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1404*/ curfptr[1403]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1407*/ curfptr[1406]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1406*/ curfptr[1405]); /**COMMENT: before toplevel body **/; /*block*/{ /*cond*/ if ( /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ curfptr[1]) /*then*/ { /*_.OR___V1408*/ curfptr[1407] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/ /*_.CONTENV___V2*/ curfptr[1];; } else { /*block*/{ { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V1409*/ curfptr[1408] = slot; }; ; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_cstring = "warmelt-genobj-3.c"; /*_.FUN___V1410*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V1409*/ curfptr[1408]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OR___V1408*/ curfptr[1407] = /*_.FUN___V1410*/ curfptr[1409];; /*epilog*/ /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V1409*/ curfptr[1408] = 0 ; /*clear*/ /*_.FUN___V1410*/ curfptr[1409] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-genobj.melt:3:/ block"); /*com.block:upd.cur.mod.env.cont : at very start*/{}/*com.end block:upd.cur.mod.env.cont : at very start*/ ; /*epilog*/ /*clear*/ /*_.OR___V1408*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:456:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1411*/ curfptr[1408] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V832*/ curfptr[831]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INITIALROUTINEOBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V835*/ curfptr[834]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIROUT_DATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V837*/ curfptr[836]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIROUT_PROLOG*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V844*/ curfptr[843]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V839*/ curfptr[838]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIROUT_FILL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V546*/ curfptr[545]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJAPPLY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V549*/ curfptr[548]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBAPP_CLOS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V551*/ curfptr[550]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBAPP_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V362*/ curfptr[361]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJBLOCK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V365*/ curfptr[364]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBLO_BODYL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V367*/ curfptr[366]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBLO_EPIL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V448*/ curfptr[447]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCITERBLOCK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V451*/ curfptr[450]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCITER_CITER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V453*/ curfptr[452]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCITER_BEFORE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V455*/ curfptr[454]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCITER_AFTER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V352*/ curfptr[351]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCLEAR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V355*/ curfptr[354]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OCLR_VLOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V154*/ curfptr[153]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCLOCCV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V157*/ curfptr[156]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBC_OFF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V159*/ curfptr[158]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBC_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V161*/ curfptr[160]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBC_NAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V376*/ curfptr[375]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCOMMENTEDBLOCK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V379*/ curfptr[378]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OCOMBLO_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V288*/ curfptr[287]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCOMMENTINSTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V291*/ curfptr[290]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCI_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V308*/ curfptr[307]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCOMPUTE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V311*/ curfptr[310]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCPT_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V466*/ curfptr[465]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCOND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V469*/ curfptr[468]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCOND_TEST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V471*/ curfptr[470]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCOND_THEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V473*/ curfptr[472]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCOND_ELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V172*/ curfptr[171]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCONSTV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V484*/ curfptr[483]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJCPPIF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V487*/ curfptr[486]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBIFP_COND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V489*/ curfptr[488]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBIFP_THEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V491*/ curfptr[490]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBIFP_ELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V298*/ curfptr[297]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJDESTINSTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V301*/ curfptr[300]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBDI_DESTLIST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V438*/ curfptr[437]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJEXIT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V441*/ curfptr[440]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBEXIT_LABEL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V258*/ curfptr[257]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJEXPV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V261*/ curfptr[260]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBX_CONT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V346*/ curfptr[345]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJFINALRETURN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V318*/ curfptr[317]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJGETARG*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V321*/ curfptr[320]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBARG_OBLOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V323*/ curfptr[322]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBARG_BIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V524*/ curfptr[523]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJGETNAMEDCOMMON*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V527*/ curfptr[526]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBGNAMED_IOBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V540*/ curfptr[539]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJGETNAMEDKEYWORD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V538*/ curfptr[537]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V534*/ curfptr[533]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJGETNAMEDSYMBOL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V674*/ curfptr[673]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJGETSLOT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V677*/ curfptr[676]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OGETSL_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V679*/ curfptr[678]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OGETSL_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V410*/ curfptr[409]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJGOTOINSTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V413*/ curfptr[412]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBGOTO_PREFIX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V415*/ curfptr[414]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBGOTO_RANK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V236*/ curfptr[235]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINITCLOSURE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V194*/ curfptr[193]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINITELEM*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V197*/ curfptr[196]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIE_CNAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V199*/ curfptr[198]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIE_DATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V201*/ curfptr[200]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIE_DISCR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V203*/ curfptr[202]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIE_LOCVAR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V226*/ curfptr[225]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINITMULTIPLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V229*/ curfptr[228]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIM_TUPVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V216*/ curfptr[215]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINITOBJECT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V219*/ curfptr[218]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIO_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V242*/ curfptr[241]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINITROUTINE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V240*/ curfptr[239]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V245*/ curfptr[244]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OIR_PROCROUTINE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V252*/ curfptr[251]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINITSTRING*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V250*/ curfptr[249]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V278*/ curfptr[277]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINSTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V281*/ curfptr[280]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBI_LOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V502*/ curfptr[501]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINTERNCOMMON*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V505*/ curfptr[504]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBINTERN_IOBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V518*/ curfptr[517]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINTERNKEYWORD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V512*/ curfptr[511]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJINTERNSYMBOL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V396*/ curfptr[395]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJLABELINSTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V394*/ curfptr[393]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V399*/ curfptr[398]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBLAB_PREFIX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V401*/ curfptr[400]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBLAB_RANK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V268*/ curfptr[267]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJLOCATEDEXPV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V271*/ curfptr[270]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBCX_LOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V136*/ curfptr[135]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJLOCV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V139*/ curfptr[138]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBL_OFF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V141*/ curfptr[140]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBL_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V143*/ curfptr[142]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBL_CNAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V150*/ curfptr[149]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V424*/ curfptr[423]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJLOOP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V427*/ curfptr[426]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBLOOP_LABEL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V429*/ curfptr[428]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBLOOP_RESV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V570*/ curfptr[569]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJMSEND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V573*/ curfptr[572]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBMSND_SEL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V580*/ curfptr[579]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V575*/ curfptr[574]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBMSND_RECV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V577*/ curfptr[576]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBMSND_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V560*/ curfptr[559]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJMULTIAPPLY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V563*/ curfptr[562]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBMULTAPP_XRES*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V386*/ curfptr[385]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJMULTIBLOCK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V389*/ curfptr[388]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OMULBLO_SUBCOMP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V588*/ curfptr[587]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJMULTIMSEND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V591*/ curfptr[590]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBMULTSND_XRES*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V616*/ curfptr[615]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJNEWCLOSURE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V619*/ curfptr[618]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBNCLO_DISCR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V621*/ curfptr[620]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBNCLO_ROUT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V623*/ curfptr[622]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBNCLO_LEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V188*/ curfptr[187]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJNIL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V178*/ curfptr[177]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V181*/ curfptr[180]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBPREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V130*/ curfptr[129]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUREVALUE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V720*/ curfptr[719]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTCLOSEDNOTNULLV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V702*/ curfptr[701]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTCLOSEDV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V705*/ curfptr[704]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPCLOV_CLOS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V707*/ curfptr[706]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPCLOV_OFF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V709*/ curfptr[708]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPCLOV_CVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V688*/ curfptr[687]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTCLOSUROUT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V686*/ curfptr[685]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V691*/ curfptr[690]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPCLOR_CLOS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V696*/ curfptr[695]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V693*/ curfptr[692]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPCLOR_ROUT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V726*/ curfptr[725]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTROUTCONST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V729*/ curfptr[728]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPRCONST_ROUT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V736*/ curfptr[735]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V731*/ curfptr[730]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPRCONST_OFF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V733*/ curfptr[732]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPRCONST_CVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V744*/ curfptr[743]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTROUTCONSTNOTNULL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V652*/ curfptr[651]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTSLOT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V655*/ curfptr[654]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OSLOT_ODATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V657*/ curfptr[656]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OSLOT_OFFSET*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V659*/ curfptr[658]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OSLOT_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V661*/ curfptr[660]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OSLOT_VALUE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V670*/ curfptr[669]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V634*/ curfptr[633]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTUPLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V637*/ curfptr[636]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPUTU_TUPLED*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V639*/ curfptr[638]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPUTU_OFFSET*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V641*/ curfptr[640]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPUTU_VALUE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V332*/ curfptr[331]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJPUTXTRARESULT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V335*/ curfptr[334]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBXRES_RANK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V337*/ curfptr[336]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBXRES_OBLOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V598*/ curfptr[597]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJRAWALLOCOBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V601*/ curfptr[600]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBRALLOBJ_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V608*/ curfptr[607]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V603*/ curfptr[602]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBRALLOBJ_LEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V605*/ curfptr[604]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBRALLOBJ_CLASSNAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V764*/ curfptr[763]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJSETPREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V767*/ curfptr[766]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OSPR_OBJECT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V769*/ curfptr[768]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OSPR_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V750*/ curfptr[749]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJTOUCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V753*/ curfptr[752]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OTOUCH_VAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V755*/ curfptr[754]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OTOUCH_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V120*/ curfptr[119]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_OBJVALUE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V123*/ curfptr[122]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBV_TYPE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V814*/ curfptr[813]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PROCROUTINEOBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V817*/ curfptr[816]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPROUT_GETARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V819*/ curfptr[818]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPROUT_LOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V821*/ curfptr[820]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OPROUT_FUNAM*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V780*/ curfptr[779]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ROUTINEOBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V776*/ curfptr[775]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V783*/ curfptr[782]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V785*/ curfptr[784]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V787*/ curfptr[786]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_NBVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V789*/ curfptr[788]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_NBLONG*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V791*/ curfptr[790]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_OTHERS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V793*/ curfptr[792]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_RETVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V795*/ curfptr[794]; BASILYS_LOCATION("warmelt-genobj.melt:456:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OBROUT_CNTCITER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1411*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1411*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:553:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1412*/ curfptr[1409] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V860*/ curfptr[859]; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OUTPUT_C_CODE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1412*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V852*/ curfptr[851]; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OUTPUT_C_DECLINIT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1412*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V864*/ curfptr[863]; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OUTPUT_C_INITFILL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1412*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V868*/ curfptr[867]; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : OUTPUT_C_INITPREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1412*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:553:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PUT_OBJDEST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1412*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1412*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:572:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:572:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:572:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V871*/ curfptr[870]; /*_.INSTALL_METHOD__V1413*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1413*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:581:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:581:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:581:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V883*/ curfptr[882]; /*_.INSTALL_METHOD__V1414*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_OBJCODE__V7*/ curfptr[6]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1414*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:592:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:592:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:592:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V885*/ curfptr[884]; /*_.INSTALL_METHOD__V1415*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.DISCR_ANYRECV__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1415*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:598:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:598:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GET_CTYPE__V16*/ curfptr[15]; BASILYS_LOCATION("warmelt-genobj.melt:598:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V889*/ curfptr[888]; /*_.INSTALL_METHOD__V1416*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1416*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:608:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:608:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GET_CTYPE__V16*/ curfptr[15]; BASILYS_LOCATION("warmelt-genobj.melt:608:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V893*/ curfptr[892]; /*_.INSTALL_METHOD__V1417*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V188*/ curfptr[187]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1417*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:617:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:617:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DBG_OUTPUT__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-genobj.melt:617:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V897*/ curfptr[896]; /*_.INSTALL_METHOD__V1418*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1418*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:636:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:636:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:636:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V903*/ curfptr[902]; /*_.INSTALL_METHOD__V1419*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1419*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:661:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:661:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:661:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V907*/ curfptr[906]; /*_.INSTALL_METHOD__V1420*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1420*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1089:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1421*/ curfptr[1409] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:1089:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1089:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V972*/ curfptr[971]; BASILYS_LOCATION("warmelt-genobj.melt:1089:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE2OBJ_INITPROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1421*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:1089:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1089:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V919*/ curfptr[918]; BASILYS_LOCATION("warmelt-genobj.melt:1089:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE2OBJ_PROCEDURE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1421*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1421*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1335:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1335:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1335:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1019*/ curfptr[1018]; /*_.INSTALL_METHOD__V1422*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_CHUNK__V50*/ curfptr[49]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1422*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1342:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1342:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GET_CTYPE__V16*/ curfptr[15]; BASILYS_LOCATION("warmelt-genobj.melt:1342:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1023*/ curfptr[1022]; /*_.INSTALL_METHOD__V1423*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_TYPEXPR__V51*/ curfptr[50]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1423*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1354:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1354:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1354:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1027*/ curfptr[1026]; /*_.INSTALL_METHOD__V1424*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_NIL__V52*/ curfptr[51]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1424*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1377:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1377:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1377:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1031*/ curfptr[1030]; /*_.INSTALL_METHOD__V1425*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_COMMENT__V53*/ curfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1425*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1415:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1415:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1415:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1035*/ curfptr[1034]; /*_.INSTALL_METHOD__V1426*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V54*/ curfptr[53]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1426*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1469:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1469:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1469:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1039*/ curfptr[1038]; /*_.INSTALL_METHOD__V1427*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_CLOSEDOCC__V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1427*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1521:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1521:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1521:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1043*/ curfptr[1042]; /*_.INSTALL_METHOD__V1428*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1428*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1537:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1537:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1537:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1047*/ curfptr[1046]; /*_.INSTALL_METHOD__V1429*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V39*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1429*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1598:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1598:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1598:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1051*/ curfptr[1050]; /*_.INSTALL_METHOD__V1430*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_QUASICONSTANT__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1430*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1625:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1625:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1625:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1055*/ curfptr[1054]; /*_.INSTALL_METHOD__V1431*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1431*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1675:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1675:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1675:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1060*/ curfptr[1059]; /*_.INSTALL_METHOD__V1432*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_FOREVER__V60*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1432*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1715:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1715:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1715:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1068*/ curfptr[1067]; /*_.INSTALL_METHOD__V1433*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_EXIT__V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1433*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1723:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1723:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1723:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1072*/ curfptr[1071]; /*_.INSTALL_METHOD__V1434*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.DISCR_ANYRECV__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1434*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1827:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1827:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1827:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1077*/ curfptr[1076]; /*_.INSTALL_METHOD__V1435*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_LET__V64*/ curfptr[63]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1435*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:1984:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:1984:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:1984:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1090*/ curfptr[1089]; /*_.INSTALL_METHOD__V1436*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_CITERATION__V67*/ curfptr[66]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1436*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2005:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2005:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2005:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1096*/ curfptr[1095]; /*_.INSTALL_METHOD__V1437*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_SETQ__V69*/ curfptr[68]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1437*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2035:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2035:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2035:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1101*/ curfptr[1100]; /*_.INSTALL_METHOD__V1438*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_PROGN__V70*/ curfptr[69]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1438*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2087:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2087:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2087:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1106*/ curfptr[1105]; /*_.INSTALL_METHOD__V1439*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_MULTACC__V71*/ curfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1439*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2141:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2141:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2141:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1111*/ curfptr[1110]; /*_.INSTALL_METHOD__V1440*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_FIELDACC__V72*/ curfptr[71]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1440*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2162:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2162:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2162:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1119*/ curfptr[1118]; /*_.INSTALL_METHOD__V1441*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1441*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2210:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2210:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2210:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1124*/ curfptr[1123]; /*_.INSTALL_METHOD__V1442*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1442*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2241:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2241:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2241:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1131*/ curfptr[1130]; /*_.INSTALL_METHOD__V1443*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_APPLY__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1443*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2325:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2325:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2325:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1140*/ curfptr[1139]; /*_.INSTALL_METHOD__V1444*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_MULTIAPPLY__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1444*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2357:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2357:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2357:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1145*/ curfptr[1144]; /*_.INSTALL_METHOD__V1445*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_MSEND__V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1445*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2446:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2446:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2446:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1154*/ curfptr[1153]; /*_.INSTALL_METHOD__V1446*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_MULTIMSEND__V81*/ curfptr[80]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1446*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2461:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2461:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2461:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1158*/ curfptr[1157]; /*_.INSTALL_METHOD__V1447*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V48*/ curfptr[47]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1447*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2478:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2478:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2478:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1160*/ curfptr[1159]; /*_.INSTALL_METHOD__V1448*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V82*/ curfptr[81]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1448*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2491:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2491:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2491:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1164*/ curfptr[1163]; /*_.INSTALL_METHOD__V1449*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_FIXED_BINDING__V83*/ curfptr[82]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1449*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2558:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2558:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2558:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1168*/ curfptr[1167]; /*_.INSTALL_METHOD__V1450*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V120*/ curfptr[119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1450*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2582:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2582:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2582:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1170*/ curfptr[1169]; /*_.INSTALL_METHOD__V1451*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.DISCR_INTEGER__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1451*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2607:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2607:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2607:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1172*/ curfptr[1171]; /*_.INSTALL_METHOD__V1452*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.DISCR_NULLRECV__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1452*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2634:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2634:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2634:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1176*/ curfptr[1175]; /*_.INSTALL_METHOD__V1453*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1453*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2651:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2651:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2651:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1178*/ curfptr[1177]; /*_.INSTALL_METHOD__V1454*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1454*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2673:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2673:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2673:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1180*/ curfptr[1179]; /*_.INSTALL_METHOD__V1455*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1455*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2682:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2682:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2682:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1182*/ curfptr[1181]; /*_.INSTALL_METHOD__V1456*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1456*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2712:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2712:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2712:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1184*/ curfptr[1183]; /*_.INSTALL_METHOD__V1457*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_IF__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1457*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2754:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2754:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2754:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1188*/ curfptr[1187]; /*_.INSTALL_METHOD__V1458*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_IFISA__V86*/ curfptr[85]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1458*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2779:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2779:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2779:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1192*/ curfptr[1191]; /*_.INSTALL_METHOD__V1459*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1459*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2806:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2806:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2806:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1194*/ curfptr[1193]; /*_.INSTALL_METHOD__V1460*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_CPPIF__V87*/ curfptr[86]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1460*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2831:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2831:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855]; BASILYS_LOCATION("warmelt-genobj.melt:2831:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1198*/ curfptr[1197]; /*_.INSTALL_METHOD__V1461*/ curfptr[1407] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1461*/ curfptr[1407] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2875:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2875:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2875:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1201*/ curfptr[1200]; /*_.INSTALL_METHOD__V1462*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_RETURN__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1462*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2878:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2878:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V1464*/ curfptr[1407] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1204*/ curfptr[1203]), (0)); ; /*_.LAMBDA___V1463*/ curfptr[1409] = /*_.LAMBDA___V1464*/ curfptr[1407];;} ; BASILYS_LOCATION("warmelt-genobj.melt:2877:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2877:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.GET_CTYPE__V16*/ curfptr[15]; BASILYS_LOCATION("warmelt-genobj.melt:2877:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1463*/ curfptr[1409]; /*_.INSTALL_METHOD__V1465*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_RETURN__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1463*/ curfptr[1409] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1465*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2938:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2938:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2938:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1212*/ curfptr[1211]; /*_.INSTALL_METHOD__V1466*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_LAMBDA__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1466*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:2995:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:2995:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:2995:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1219*/ curfptr[1218]; /*_.INSTALL_METHOD__V1467*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_MAKE_INSTANCE__V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1467*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3006:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3006:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3006:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1225*/ curfptr[1224]; /*_.INSTALL_METHOD__V1468*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1468*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3019:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3019:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3019:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1227*/ curfptr[1226]; /*_.INSTALL_METHOD__V1469*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_PREDEF__V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1469*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3226:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3226:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3226:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1243*/ curfptr[1242]; /*_.INSTALL_METHOD__V1470*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V44*/ curfptr[43]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1470*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3304:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3304:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3304:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1245*/ curfptr[1244]; /*_.INSTALL_METHOD__V1471*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V74*/ curfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1471*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3375:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3375:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3375:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1253*/ curfptr[1252]; /*_.INSTALL_METHOD__V1472*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_DATATUPLE__V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1472*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3425:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3425:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3425:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1259*/ curfptr[1258]; /*_.INSTALL_METHOD__V1473*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_DATASTRING__V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1473*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3515:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3515:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3515:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1268*/ curfptr[1267]; /*_.INSTALL_METHOD__V1474*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_DATACLOSURE__V95*/ curfptr[94]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1474*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3644:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3644:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3644:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1279*/ curfptr[1278]; /*_.INSTALL_METHOD__V1475*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V96*/ curfptr[95]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1475*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3655:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3655:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3655:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1283*/ curfptr[1282]; /*_.INSTALL_METHOD__V1476*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V98*/ curfptr[97]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1476*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3667:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3667:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3667:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1287*/ curfptr[1286]; /*_.INSTALL_METHOD__V1477*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V99*/ curfptr[98]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1477*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3700:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3700:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3700:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1291*/ curfptr[1290]; /*_.INSTALL_METHOD__V1478*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_STORE_PREDEFINED__V100*/ curfptr[99]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1478*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3794:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3794:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:3794:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1297*/ curfptr[1296]; /*_.INSTALL_METHOD__V1479*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V101*/ curfptr[100]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1479*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3812:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1480*/ curfptr[1409] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3812:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3812:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1302*/ curfptr[1301]; BASILYS_LOCATION("warmelt-genobj.melt:3812:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_MATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1480*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1480*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3822:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1481*/ curfptr[1408] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1308*/ curfptr[1307]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MATCHCOMPILCONTEXT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1311*/ curfptr[1310]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MCX_LOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1313*/ curfptr[1312]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MCX_NORMTESTER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1315*/ curfptr[1314]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MCX_GOTOTHEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1317*/ curfptr[1316]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MCX_GOTOELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1330*/ curfptr[1329]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1319*/ curfptr[1318]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MCX_OLIST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1321*/ curfptr[1320]; BASILYS_LOCATION("warmelt-genobj.melt:3822:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MCX_PREFIX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1481*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1481*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3832:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1482*/ curfptr[1409] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3832:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3832:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1338*/ curfptr[1337]; BASILYS_LOCATION("warmelt-genobj.melt:3832:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_TESTER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1482*/ curfptr[1409]), (basilys_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1482*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3838:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1483*/ curfptr[1408] = slot; }; ; BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1342*/ curfptr[1341]; BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_TESTERCOMPILCONTEXT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1483*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1340*/ curfptr[1339]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1345*/ curfptr[1344]; BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : TCX_NRMATCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1483*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1347*/ curfptr[1346]; BASILYS_LOCATION("warmelt-genobj.melt:3838:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : TCX_FREELIST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1483*/ curfptr[1408]), (basilys_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1483*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:3852:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:3852:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1338*/ curfptr[1337]; BASILYS_LOCATION("warmelt-genobj.melt:3852:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1355*/ curfptr[1354]; /*_.INSTALL_METHOD__V1484*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V103*/ curfptr[102]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1484*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4030:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4030:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-genobj.melt:4030:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1362*/ curfptr[1361]; /*_.INSTALL_METHOD__V1485*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NREP_MATCH__V104*/ curfptr[103]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1485*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4207:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4207:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1338*/ curfptr[1337]; BASILYS_LOCATION("warmelt-genobj.melt:4207:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1383*/ curfptr[1382]; /*_.INSTALL_METHOD__V1486*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V110*/ curfptr[109]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1486*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4315:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4315:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1338*/ curfptr[1337]; BASILYS_LOCATION("warmelt-genobj.melt:4315:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1387*/ curfptr[1386]; /*_.INSTALL_METHOD__V1487*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NORMTESTER_INSTANCE__V111*/ curfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1487*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4390:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4390:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1338*/ curfptr[1337]; BASILYS_LOCATION("warmelt-genobj.melt:4390:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1391*/ curfptr[1390]; /*_.INSTALL_METHOD__V1488*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NORMTESTER_SAME__V112*/ curfptr[111]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1488*/ curfptr[1409] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4425:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4425:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1338*/ curfptr[1337]; BASILYS_LOCATION("warmelt-genobj.melt:4425:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1395*/ curfptr[1394]; /*_.INSTALL_METHOD__V1489*/ curfptr[1408] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_NORMTESTER_SUCCESS__V106*/ curfptr[105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1489*/ curfptr[1408] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-genobj.melt:4576:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-genobj.melt:4576:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1302*/ curfptr[1301]; BASILYS_LOCATION("warmelt-genobj.melt:4576:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1403*/ curfptr[1402]; /*_.INSTALL_METHOD__V1490*/ curfptr[1409] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.CLASS_CMATCHER__V114*/ curfptr[113]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1490*/ curfptr[1409] = 0 ;} /**COMMENT: after toplevel body **/; /**COMMENT: compute boxloc again **/; /*cond*/ if (/*_.CONTENV___V2*/ curfptr[1] || basilys_object_length((basilys_ptr_t)BASILYSG(INITIAL_SYSTEM_DATA))", /*_.FRESHENV___V3*/ curfptr[2], __FILE__, __LINE__);;; /*apply*/{ /*_.CONTENV___V2*/ curfptr[1] = basilys_apply ((basilysclosure_ptr_t)(/*_.FRESHENV___V3*/ curfptr[2]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ;}/*com.end block:compute fresh module environment*/ ; } /**COMMENT: intern symbols **/; /*internsym:CLASS_OBJVALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V116*/ curfptr[115])); /*internsym:CLASS_OBJCODE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V118*/ curfptr[117])); /*internsym:OBV_TYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125])); /*internsym:CLASS_OBJPUREVALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127])); /*internsym:CLASS_OBJLOCV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133])); /*internsym:OBL_OFF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])); /*internsym:OBL_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147])); /*internsym:OBL_CNAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V150*/ curfptr[149])); /*internsym:CLASS_OBJCLOCCV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V152*/ curfptr[151])); /*internsym:OBC_OFF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163])); /*internsym:OBC_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V166*/ curfptr[165])); /*internsym:OBC_NAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])); /*internsym:CLASS_OBJCONSTV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169])); /*internsym:CLASS_OBJPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V176*/ curfptr[175])); /*internsym:OBPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183])); /*internsym:CLASS_OBJNIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V186*/ curfptr[185])); /*internsym:CLASS_OBJINITELEM*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191])); /*internsym:OIE_CNAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205])); /*internsym:OIE_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207])); /*internsym:OIE_DISCR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V210*/ curfptr[209])); /*internsym:OIE_LOCVAR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V212*/ curfptr[211])); /*internsym:CLASS_OBJINITOBJECT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213])); /*internsym:OIO_PREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])); /*internsym:CLASS_OBJINITMULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])); /*internsym:OIM_TUPVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231])); /*internsym:CLASS_OBJINITCLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233])); /*internsym:CLASS_OBJINITROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V240*/ curfptr[239])); /*internsym:OIR_PROCROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247])); /*internsym:CLASS_OBJINITSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V250*/ curfptr[249])); /*internsym:CLASS_OBJEXPV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V256*/ curfptr[255])); /*internsym:OBX_CONT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V264*/ curfptr[263])); /*internsym:CLASS_OBJLOCATEDEXPV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])); /*internsym:OBCX_LOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V274*/ curfptr[273])); /*internsym:CLASS_OBJINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V276*/ curfptr[275])); /*internsym:OBI_LOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])); /*internsym:CLASS_OBJCOMMENTINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])); /*internsym:OBCI_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])); /*internsym:CLASS_OBJDESTINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V296*/ curfptr[295])); /*internsym:OBDI_DESTLIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])); /*internsym:CLASS_OBJCOMPUTE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])); /*internsym:OBCPT_EXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])); /*internsym:CLASS_OBJGETARG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315])); /*internsym:OBARG_OBLOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])); /*internsym:OBARG_BIND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327])); /*internsym:CLASS_OBJPUTXTRARESULT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V330*/ curfptr[329])); /*internsym:OBXRES_RANK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339])); /*internsym:OBXRES_OBLOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341])); /*internsym:CLASS_OBJFINALRETURN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343])); /*internsym:CLASS_OBJCLEAR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349])); /*internsym:OCLR_VLOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V358*/ curfptr[357])); /*internsym:CLASS_OBJBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])); /*internsym:OBLO_BODYL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V370*/ curfptr[369])); /*internsym:OBLO_EPIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V372*/ curfptr[371])); /*internsym:CLASS_OBJCOMMENTEDBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V374*/ curfptr[373])); /*internsym:OCOMBLO_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])); /*internsym:CLASS_OBJMULTIBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])); /*internsym:OMULBLO_SUBCOMP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V392*/ curfptr[391])); /*internsym:CLASS_OBJLABELINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V394*/ curfptr[393])); /*internsym:OBLAB_PREFIX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403])); /*internsym:OBLAB_RANK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405])); /*internsym:CLASS_OBJGOTOINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407])); /*internsym:OBGOTO_PREFIX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V418*/ curfptr[417])); /*internsym:OBGOTO_RANK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])); /*internsym:CLASS_OBJLOOP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])); /*internsym:OBLOOP_LABEL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])); /*internsym:OBLOOP_RESV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V434*/ curfptr[433])); /*internsym:CLASS_OBJEXIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])); /*internsym:OBEXIT_LABEL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])); /*internsym:CLASS_OBJCITERBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])); /*internsym:OBCITER_CITER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457])); /*internsym:OBCITER_BEFORE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459])); /*internsym:OBCITER_AFTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])); /*internsym:CLASS_OBJCOND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])); /*internsym:OBCOND_TEST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475])); /*internsym:OBCOND_THEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477])); /*internsym:OBCOND_ELSE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])); /*internsym:CLASS_OBJCPPIF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])); /*internsym:OBIFP_COND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493])); /*internsym:OBIFP_THEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495])); /*internsym:OBIFP_ELSE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497])); /*internsym:CLASS_OBJINTERNCOMMON*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499])); /*internsym:OBINTERN_IOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507])); /*internsym:CLASS_OBJINTERNSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509])); /*internsym:CLASS_OBJINTERNKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])); /*internsym:CLASS_OBJGETNAMEDCOMMON*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])); /*internsym:OBGNAMED_IOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529])); /*internsym:CLASS_OBJGETNAMEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531])); /*internsym:CLASS_OBJGETNAMEDKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V538*/ curfptr[537])); /*internsym:CLASS_OBJAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])); /*internsym:OBAPP_CLOS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V554*/ curfptr[553])); /*internsym:OBAPP_ARGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])); /*internsym:CLASS_OBJMULTIAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])); /*internsym:OBMULTAPP_XRES*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])); /*internsym:CLASS_OBJMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V568*/ curfptr[567])); /*internsym:OBMSND_SEL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V580*/ curfptr[579])); /*internsym:OBMSND_RECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V582*/ curfptr[581])); /*internsym:OBMSND_ARGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V584*/ curfptr[583])); /*internsym:CLASS_OBJMULTIMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585])); /*internsym:OBMULTSND_XRES*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593])); /*internsym:CLASS_OBJRAWALLOCOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])); /*internsym:OBRALLOBJ_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V608*/ curfptr[607])); /*internsym:OBRALLOBJ_LEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])); /*internsym:OBRALLOBJ_CLASSNAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])); /*internsym:CLASS_OBJNEWCLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])); /*internsym:OBNCLO_DISCR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625])); /*internsym:OBNCLO_ROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V628*/ curfptr[627])); /*internsym:OBNCLO_LEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V630*/ curfptr[629])); /*internsym:CLASS_OBJPUTUPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])); /*internsym:OPUTU_TUPLED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])); /*internsym:OPUTU_OFFSET*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])); /*internsym:OPUTU_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])); /*internsym:CLASS_OBJPUTSLOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649])); /*internsym:OSLOT_ODATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])); /*internsym:OSLOT_OFFSET*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665])); /*internsym:OSLOT_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667])); /*internsym:OSLOT_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V670*/ curfptr[669])); /*internsym:CLASS_OBJGETSLOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])); /*internsym:OGETSL_OBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])); /*internsym:OGETSL_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])); /*internsym:CLASS_OBJPUTCLOSUROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V686*/ curfptr[685])); /*internsym:OPCLOR_CLOS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V696*/ curfptr[695])); /*internsym:OPCLOR_ROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])); /*internsym:CLASS_OBJPUTCLOSEDV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])); /*internsym:OPCLOV_CLOS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])); /*internsym:OPCLOV_OFF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])); /*internsym:OPCLOV_CVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])); /*internsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])); /*internsym:CLASS_OBJPUTROUTCONST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])); /*internsym:OPRCONST_ROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V736*/ curfptr[735])); /*internsym:OPRCONST_OFF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V738*/ curfptr[737])); /*internsym:OPRCONST_CVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V740*/ curfptr[739])); /*internsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])); /*internsym:CLASS_OBJTOUCH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])); /*internsym:OTOUCH_VAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])); /*internsym:OTOUCH_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V760*/ curfptr[759])); /*internsym:CLASS_OBJSETPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])); /*internsym:OSPR_OBJECT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771])); /*internsym:OSPR_PREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773])); /*internsym:CLASS_ROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V776*/ curfptr[775])); /*internsym:CLASS_NAMED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V778*/ curfptr[777])); /*internsym:OBROUT_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])); /*internsym:OBROUT_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V800*/ curfptr[799])); /*internsym:OBROUT_NBVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])); /*internsym:OBROUT_NBLONG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])); /*internsym:OBROUT_OTHERS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V806*/ curfptr[805])); /*internsym:OBROUT_RETVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])); /*internsym:OBROUT_CNTCITER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])); /*internsym:CLASS_PROCROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])); /*internsym:OPROUT_GETARGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])); /*internsym:OPROUT_LOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])); /*internsym:OPROUT_FUNAM*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827])); /*internsym:CLASS_INITIALROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V830*/ curfptr[829])); /*internsym:OIROUT_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841])); /*internsym:OIROUT_PROLOG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V844*/ curfptr[843])); /*internsym:OIROUT_FILL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])); /*internsym:OUTPUT_C_DECLINIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])); /*internsym:CLASS_SELECTOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V850*/ curfptr[849])); /*internsym:PUT_OBJDEST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V854*/ curfptr[853])); /*internsym:OUTPUT_C_CODE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V858*/ curfptr[857])); /*internsym:OUTPUT_C_INITFILL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])); /*internsym:OUTPUT_C_INITPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V866*/ curfptr[865])); /*internsym:DEBUG_MSG_FUN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V872*/ curfptr[871])); /*internsym:DISPLAYDEBUGMSG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])); /*internsym:INSTALL_METHOD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])); /*internsym:CLASS_NREP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V878*/ curfptr[877])); /*internsym:COMPILE_OBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V880*/ curfptr[879])); /*internsym:DISCR_ANYRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V886*/ curfptr[885])); /*internsym:GET_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])); /*internsym:CTYPE_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])); /*internsym:DBGOUT_NAMEDOBJECT_METHOD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])); /*internsym:DBG_OUTPUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])); /*internsym:DISCR_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])); /*internsym:CLASS_NREP_ROUTPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V920*/ curfptr[919])); /*internsym:CLASS_MODULCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])); /*internsym:DISCR_STRBUF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])); /*internsym:DISCR_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V926*/ curfptr[925])); /*internsym:DISCR_INTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V928*/ curfptr[927])); /*internsym:DISCR_MAPOBJECTS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])); /*internsym:CLASS_GENERCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])); /*internsym:_RETVAL_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])); /*internsym:MULTIPLE_MAP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V934*/ curfptr[933])); /*internsym:CLASS_FORMAL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V936*/ curfptr[935])); /*internsym:CTYPE_LONG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V938*/ curfptr[937])); /*internsym:LIST_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V940*/ curfptr[939])); /*internsym:INITIALSYSTEMDATA_OBJPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V942*/ curfptr[941])); /*internsym:INITIAL_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V945*/ curfptr[944])); /*internsym:CLASS_NREP_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V973*/ curfptr[972])); /*internsym:CLASS_INITGENERCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V975*/ curfptr[974])); /*internsym:LIST_MAP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V977*/ curfptr[976])); /*internsym:_RETINIT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])); /*internsym:_CONTENV_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V955*/ curfptr[954])); /*internsym:_FRESHENV_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])); /*internsym:_PREVENV_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])); /*internsym:_VALEXPORT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])); /*internsym:_VALIMPORT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V963*/ curfptr[962])); /*internsym:LIST1*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])); /*internsym:SYSDATA_CONT_FRESH_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])); /*internsym:DISCR_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V983*/ curfptr[982])); /*internsym:DISCR_VERBATIMSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V985*/ curfptr[984])); /*internsym:CLASS_NREP_IMPORTEDVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])); /*internsym:LIST_TO_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])); /*internsym:CLASS_NREP_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V991*/ curfptr[990])); /*internsym:MULTIPLE_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V993*/ curfptr[992])); /*internsym:CLASS_NREP_DATAKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])); /*internsym:CLASS_NREP_DATASYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V997*/ curfptr[996])); /*internsym:SYSDATA_VALUE_IMPORTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V999*/ curfptr[998])); /*internsym:COMPILE2OBJ_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])); /*internsym:COMPILE2OBJ_PROCEDURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002])); /*internsym:CLASS_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1005*/ curfptr[1004])); /*internsym:CTYPE_VOID*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006])); /*internsym:CLASS_ANY_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1013*/ curfptr[1012])); /*internsym:CLASS_LET_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1015*/ curfptr[1014])); /*internsym:CLASS_NREP_CHUNK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019])); /*internsym:CLASS_NREP_TYPEXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])); /*internsym:CLASS_NREP_NIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1028*/ curfptr[1027])); /*internsym:CLASS_NREP_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])); /*internsym:CLASS_NREP_LOCSYMOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1036*/ curfptr[1035])); /*internsym:CLASS_NREP_CLOSEDOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])); /*internsym:CLASS_NREP_CONSTOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])); /*internsym:CLASS_SYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])); /*internsym:CLASS_NREP_QUASICONSTANT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])); /*internsym:CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055])); /*internsym:CLASS_NREP_FOREVER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])); /*internsym:CLASS_LABEL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])); /*internsym:CLASS_CLONEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])); /*internsym:CLASS_NREP_EXIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])); /*internsym:CLASS_NREP_LET*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077])); /*internsym:CLASS_NORMLET_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])); /*internsym:CLASS_SEXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1082*/ curfptr[1081])); /*internsym:CLASS_NREP_CITERATION*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])); /*internsym:CLASS_CITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])); /*internsym:CLASS_NREP_SETQ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1097*/ curfptr[1096])); /*internsym:CLASS_NREP_PROGN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1102*/ curfptr[1101])); /*internsym:CLASS_NREP_MULTACC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])); /*internsym:CLASS_NREP_FIELDACC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1112*/ curfptr[1111])); /*internsym:CLASS_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])); /*internsym:CLASS_NREP_DATAINSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])); /*internsym:CLASS_NREP_UNSAFE_GET_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119])); /*internsym:CLASS_NREP_UNSAFE_PUT_FIELDS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1125*/ curfptr[1124])); /*internsym:CLASS_NREP_FIELDASSIGN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126])); /*internsym:CLASS_NREP_APPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131])); /*internsym:CLASS_NREP_MULTIAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1141*/ curfptr[1140])); /*internsym:CLASS_NREP_MSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145])); /*internsym:CLASS_NREP_MULTIMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])); /*internsym:CLASS_VALUE_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1161*/ curfptr[1160])); /*internsym:CLASS_FIXED_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1165*/ curfptr[1164])); /*internsym:DISCR_NULLRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1173*/ curfptr[1172])); /*internsym:CLASS_NREP_IF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])); /*internsym:CLASS_NREP_IFISA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])); /*internsym:CLASS_NREP_CPPIF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])); /*internsym:CLASS_NREP_RETURN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])); /*internsym:DISCRCLOSURE_OBJPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1205*/ curfptr[1204])); /*internsym:DISCR_CLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])); /*internsym:CLASS_NREP_LAMBDA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])); /*internsym:CLASS_NREP_MAKE_INSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1220*/ curfptr[1219])); /*internsym:CLASS_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1222*/ curfptr[1221])); /*internsym:INST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])); /*internsym:CLASS_NREP_PREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])); /*internsym:_VALDATA_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230])); /*internsym:_VALUEDATA_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])); /*internsym:CLASS_NREP_DATATUPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253])); /*internsym:_VALTUP_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])); /*internsym:_INITUP_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249])); /*internsym:CLASS_NREP_DATASTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1260*/ curfptr[1259])); /*internsym:_VALSTR_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])); /*internsym:CLASS_NREP_DATACLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])); /*internsym:_VALCLO_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1263*/ curfptr[1262])); /*internsym:_DATACLOSURE_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])); /*internsym:CLASS_NREP_DATAROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1271*/ curfptr[1270])); /*internsym:_VALROUT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273])); /*internsym:_IROUTVAL_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])); /*internsym:CLASS_NREP_QUASIDATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])); /*internsym:CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])); /*internsym:CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1288*/ curfptr[1287])); /*internsym:CLASS_NREP_STORE_PREDEFINED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])); /*internsym:CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])); /*internsym:COMPILE_MATCHER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])); /*internsym:CLASS_MATCHCOMPILCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303])); /*internsym:CLASS_PROPED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305])); /*internsym:MCX_LOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323])); /*internsym:MCX_NORMTESTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325])); /*internsym:MCX_GOTOTHEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327])); /*internsym:MCX_GOTOELSE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1330*/ curfptr[1329])); /*internsym:MCX_OLIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331])); /*internsym:MCX_PREFIX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333])); /*internsym:COMPILE_TESTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])); /*internsym:CLASS_TESTERCOMPILCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1340*/ curfptr[1339])); /*internsym:TCX_NRMATCH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349])); /*internsym:TCX_FREELIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351])); /*internsym:CLASS_NORMTESTER_ANY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355])); /*internsym:CLASS_NREP_MATCH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1363*/ curfptr[1362])); /*internsym:LIST_APPEND2LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364])); /*internsym:CLASS_NORMTESTER_SUCCESS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])); /*internsym:MAPOBJECT_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368])); /*internsym:LIST_FIND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1371*/ curfptr[1370])); /*internsym:CLASS_NREP_SYMOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1380*/ curfptr[1379])); /*internsym:CLASS_NORMTESTER_MATCHER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])); /*internsym:CLASS_NORMTESTER_INSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387])); /*internsym:CLASS_NORMTESTER_SAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1392*/ curfptr[1391])); /*internsym:LIST2*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395])); /*internsym:CLASS_CMATCHER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403])); /*internsym:MULTIPLE_EVERY_BOTH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])); /**COMMENT: set retinit from boxloc **/; /*_.RETINIT___V1*/ curfptr[0] = /*final freshenv get*/ basilys_container_value((basilys_ptr_t)(/*_.CONTENV___V2*/ curfptr[1])); /**COMMENT: end the initproc **/; ; goto labend_rout; labend_rout: basilys_topframe = (struct callframe_basilys_st *) curfram__.prev; initial_frame_basilys = (void*)0; return /*_.RETINIT___V1*/ curfptr[0]; #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /* end start_module_basilys */ void mark_module_basilys(void*fp) { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; for(ix=0; ix<1490; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); } /* end mark_module_basilys */ /* exported field offsets */ const int fieldoff__MCX_GOTOELSE = 4; const int fieldoff__MCX_GOTOTHEN = 3; const int fieldoff__MCX_LOC = 1; const int fieldoff__MCX_NORMTESTER = 2; const int fieldoff__MCX_OLIST = 5; const int fieldoff__MCX_PREFIX = 6; const int fieldoff__OBAPP_ARGS = 3; const int fieldoff__OBAPP_CLOS = 2; const int fieldoff__OBARG_BIND = 2; const int fieldoff__OBARG_OBLOC = 1; const int fieldoff__OBCITER_AFTER = 5; const int fieldoff__OBCITER_BEFORE = 4; const int fieldoff__OBCITER_CITER = 3; const int fieldoff__OBCI_COMMENT = 1; const int fieldoff__OBCOND_ELSE = 3; const int fieldoff__OBCOND_TEST = 1; const int fieldoff__OBCOND_THEN = 2; const int fieldoff__OBCPT_EXPR = 2; const int fieldoff__OBCX_LOC = 2; const int fieldoff__OBC_NAME = 3; const int fieldoff__OBC_OFF = 1; const int fieldoff__OBC_PROC = 2; const int fieldoff__OBDI_DESTLIST = 1; const int fieldoff__OBEXIT_LABEL = 1; const int fieldoff__OBGNAMED_IOBJ = 1; const int fieldoff__OBGOTO_PREFIX = 1; const int fieldoff__OBGOTO_RANK = 2; const int fieldoff__OBIFP_COND = 1; const int fieldoff__OBIFP_ELSE = 3; const int fieldoff__OBIFP_THEN = 2; const int fieldoff__OBINTERN_IOBJ = 1; const int fieldoff__OBI_LOC = 0; const int fieldoff__OBLAB_PREFIX = 1; const int fieldoff__OBLAB_RANK = 2; const int fieldoff__OBLOOP_LABEL = 3; const int fieldoff__OBLOOP_RESV = 4; const int fieldoff__OBLO_BODYL = 1; const int fieldoff__OBLO_EPIL = 2; const int fieldoff__OBL_CNAME = 3; const int fieldoff__OBL_OFF = 1; const int fieldoff__OBL_PROC = 2; const int fieldoff__OBMSND_ARGS = 4; const int fieldoff__OBMSND_RECV = 3; const int fieldoff__OBMSND_SEL = 2; const int fieldoff__OBMULTAPP_XRES = 4; const int fieldoff__OBMULTSND_XRES = 5; const int fieldoff__OBNCLO_DISCR = 2; const int fieldoff__OBNCLO_LEN = 4; const int fieldoff__OBNCLO_ROUT = 3; const int fieldoff__OBPREDEF = 1; const int fieldoff__OBRALLOBJ_CLASS = 2; const int fieldoff__OBRALLOBJ_CLASSNAME = 4; const int fieldoff__OBRALLOBJ_LEN = 3; const int fieldoff__OBROUT_BODY = 3; const int fieldoff__OBROUT_CNTCITER = 8; const int fieldoff__OBROUT_NBLONG = 5; const int fieldoff__OBROUT_NBVAL = 4; const int fieldoff__OBROUT_OTHERS = 6; const int fieldoff__OBROUT_PROC = 2; const int fieldoff__OBROUT_RETVAL = 7; const int fieldoff__OBV_TYPE = 0; const int fieldoff__OBXRES_OBLOC = 2; const int fieldoff__OBXRES_RANK = 1; const int fieldoff__OBX_CONT = 1; const int fieldoff__OCLR_VLOC = 1; const int fieldoff__OCOMBLO_COMMENT = 3; const int fieldoff__OGETSL_FIELD = 3; const int fieldoff__OGETSL_OBJ = 2; const int fieldoff__OIE_CNAME = 1; const int fieldoff__OIE_DATA = 2; const int fieldoff__OIE_DISCR = 3; const int fieldoff__OIE_LOCVAR = 4; const int fieldoff__OIM_TUPVAL = 5; const int fieldoff__OIO_PREDEF = 5; const int fieldoff__OIROUT_DATA = 9; const int fieldoff__OIROUT_FILL = 11; const int fieldoff__OIROUT_PROLOG = 10; const int fieldoff__OIR_PROCROUTINE = 5; const int fieldoff__OMULBLO_SUBCOMP = 3; const int fieldoff__OPCLOR_CLOS = 1; const int fieldoff__OPCLOR_ROUT = 2; const int fieldoff__OPCLOV_CLOS = 1; const int fieldoff__OPCLOV_CVAL = 3; const int fieldoff__OPCLOV_OFF = 2; const int fieldoff__OPRCONST_CVAL = 3; const int fieldoff__OPRCONST_OFF = 2; const int fieldoff__OPRCONST_ROUT = 1; const int fieldoff__OPROUT_FUNAM = 11; const int fieldoff__OPROUT_GETARGS = 9; const int fieldoff__OPROUT_LOC = 10; const int fieldoff__OPUTU_OFFSET = 2; const int fieldoff__OPUTU_TUPLED = 1; const int fieldoff__OPUTU_VALUE = 3; const int fieldoff__OSLOT_FIELD = 3; const int fieldoff__OSLOT_ODATA = 1; const int fieldoff__OSLOT_OFFSET = 2; const int fieldoff__OSLOT_VALUE = 4; const int fieldoff__OSPR_OBJECT = 1; const int fieldoff__OSPR_PREDEF = 2; const int fieldoff__OTOUCH_COMMENT = 2; const int fieldoff__OTOUCH_VAL = 1; const int fieldoff__TCX_FREELIST = 2; const int fieldoff__TCX_NRMATCH = 1; /* exported class lengths */ const int classlen__CLASS_INITIALROUTINEOBJ = 12; const int classlen__CLASS_MATCHCOMPILCONTEXT = 7; const int classlen__CLASS_OBJAPPLY = 4; const int classlen__CLASS_OBJBLOCK = 3; const int classlen__CLASS_OBJCITERBLOCK = 6; const int classlen__CLASS_OBJCLEAR = 2; const int classlen__CLASS_OBJCLOCCV = 4; const int classlen__CLASS_OBJCOMMENTEDBLOCK = 4; const int classlen__CLASS_OBJCOMMENTINSTR = 2; const int classlen__CLASS_OBJCOMPUTE = 3; const int classlen__CLASS_OBJCOND = 4; const int classlen__CLASS_OBJCONSTV = 4; const int classlen__CLASS_OBJCPPIF = 4; const int classlen__CLASS_OBJDESTINSTR = 2; const int classlen__CLASS_OBJEXIT = 2; const int classlen__CLASS_OBJEXPV = 2; const int classlen__CLASS_OBJFINALRETURN = 1; const int classlen__CLASS_OBJGETARG = 3; const int classlen__CLASS_OBJGETNAMEDCOMMON = 2; const int classlen__CLASS_OBJGETNAMEDKEYWORD = 2; const int classlen__CLASS_OBJGETNAMEDSYMBOL = 2; const int classlen__CLASS_OBJGETSLOT = 4; const int classlen__CLASS_OBJGOTOINSTR = 3; const int classlen__CLASS_OBJINITCLOSURE = 5; const int classlen__CLASS_OBJINITELEM = 5; const int classlen__CLASS_OBJINITMULTIPLE = 6; const int classlen__CLASS_OBJINITOBJECT = 6; const int classlen__CLASS_OBJINITROUTINE = 6; const int classlen__CLASS_OBJINITSTRING = 5; const int classlen__CLASS_OBJINSTR = 1; const int classlen__CLASS_OBJINTERNCOMMON = 2; const int classlen__CLASS_OBJINTERNKEYWORD = 2; const int classlen__CLASS_OBJINTERNSYMBOL = 2; const int classlen__CLASS_OBJLABELINSTR = 3; const int classlen__CLASS_OBJLOCATEDEXPV = 3; const int classlen__CLASS_OBJLOCV = 4; const int classlen__CLASS_OBJLOOP = 5; const int classlen__CLASS_OBJMSEND = 5; const int classlen__CLASS_OBJMULTIAPPLY = 5; const int classlen__CLASS_OBJMULTIBLOCK = 4; const int classlen__CLASS_OBJMULTIMSEND = 6; const int classlen__CLASS_OBJNEWCLOSURE = 5; const int classlen__CLASS_OBJNIL = 1; const int classlen__CLASS_OBJPREDEF = 2; const int classlen__CLASS_OBJPUREVALUE = 1; const int classlen__CLASS_OBJPUTCLOSEDNOTNULLV = 4; const int classlen__CLASS_OBJPUTCLOSEDV = 4; const int classlen__CLASS_OBJPUTCLOSUROUT = 3; const int classlen__CLASS_OBJPUTROUTCONST = 4; const int classlen__CLASS_OBJPUTROUTCONSTNOTNULL = 4; const int classlen__CLASS_OBJPUTSLOT = 5; const int classlen__CLASS_OBJPUTUPLE = 4; const int classlen__CLASS_OBJPUTXTRARESULT = 3; const int classlen__CLASS_OBJRAWALLOCOBJ = 5; const int classlen__CLASS_OBJSETPREDEF = 3; const int classlen__CLASS_OBJTOUCH = 3; const int classlen__CLASS_OBJVALUE = 1; const int classlen__CLASS_PROCROUTINEOBJ = 12; const int classlen__CLASS_ROUTINEOBJ = 9; const int classlen__CLASS_TESTERCOMPILCONTEXT = 3; /**** end of warmelt-genobj-3.c ****/